                 (max-key group-clusterings-silhouettes (keys group-clusterings))))
 
       :bid-to-pid (plmb/fnk [base-clusters]
-                     (time2 "bid-to-pid"
-                      (greedy
-                       (map :members (sort-by :id base-clusters)))))
+                    (greedy
+                      (map :members (sort-by :id base-clusters))))
 
       ;; returns {tid {
       ;;           :agree [0 4 2 0 6 0 0 1]
       ;;           :disagree [3 0 0 1 0 23 0 ]}
       ;; where the indices in the arrays are bids
       :votes-base (plmb/fnk [bid-to-pid rating-mat]
-                     (time2 "votes-base"
-                       (->> rating-mat
-                          colnames
-                          (map (fn [tid]
-                             {:tid tid
-                              :A (agg-bucket-votes-for-tid bid-to-pid rating-mat agree? tid)
-                              :D (agg-bucket-votes-for-tid bid-to-pid rating-mat disagree? tid)}))
-                          (reduce (fn [o entry] (assoc o (:tid entry) (dissoc entry :tid)))))))
-
+                    (->> rating-mat
+                      colnames
+                      (map (fn [tid]
+                        {:tid tid
+                         :A (agg-bucket-votes-for-tid bid-to-pid rating-mat agree? tid)
+                         :D (agg-bucket-votes-for-tid bid-to-pid rating-mat disagree? tid)}))
+                      (reduce (fn [o entry] (assoc o (:tid entry) (dissoc entry :tid))))))
      ; End of large-update
      }))
 

                    (kmeans in-conv-mat
                      (:base-k opts')
                      :last-clusters (:base-clusters conv)
                      :cluster-iters (:base-iters opts')))))))

      :base-clusters-proj
            (plmb/fnk [base-clusters]

                  (fn [k]
                    [k
                      (sort-by :id
                        (kmeans base-clusters-proj k
                          :last-clusters
                            ; A little pedantic here in case no clustering yet for this k
