     [] clusters))
 
 
-(defnp clean-start-clusters
+(defn clean-start-clusters
   "This function takes care of some possible messy situations which can crop up with using 'last-clusters'
   in kmeans computation, and generally gets the last set of clusters ready as the basis for a new round of
   clustering given the latest set of data."

     :center (mean (map :center [clst1 clst2]))}))


(defnp most-distal
  "Finds the most distal point in all clusters"
  [data clusters]
  (let [[dist clst-id id]

              (dissoc :positions)))))


(defn recenter-clusters
  "Replace cluster centers with a center computed from new positions"
  [data clusters]
  (greedy
