             (if (> (:dist outlier) 0)
               ; There is work to be done, so do it
               (recur
-              (p :usr/inner-clean
                 (->
                   ; first remove the most distal point from the cluster it was in;
                   (map

                  ; next add a new cluster containing only said point.
                  (conj {:id (inc (apply max (map :id clusters)))
                         :members [(:id outlier)]
                         :center (get-row-by-name data (:id outlier))}))))
              ; Else just return recentered clusters
              clusters))
          ; Else just return recentered clusters

      [{:id (inc (apply max (map :id clusters)))
        :members (rownames data)
        :center (mean (matrix (get-matrix data)))}]
      clsts)))


(defn merge-clusters [clst1 clst2]
