(bi-cluster data)
(bi-cluster data [left right] distance)
(cluster distance-fn average-fn dataset)
(find-closest distance-fn points)
Loop through every pair looking for the smallest distance
(prefix-walk visitor-fn clust)
(prefix-walk visitor-fn clust level)