     :ptpt-growth-fn (fn [conv] 10)
     :cmnt-growth-fn (fn [conv] 1)
     :poll-count-fn (fn [conv]
-                     (println (:comments conv) (count (:members conv)))
                      (+ 10 (int (/ (* (:comments conv) (inc (count (:members conv))))
                                 10))))))
 

      (let [[new-convs vote-batches]
              (unzip
                (map #(poll! %1 %2 last-timestamp) pollers convs))]
        [new-convs (apply concat vote-batches)]))))




(defn int-opt [& args]



(defn sim-conv
  [& {:keys [zid n-grps grp-dists n-ptpts n-cmnts] :or {n-grps 3 n-ptpts 0 n-comnts 0}}]
  (-> {:zid (or zid (rand-int 1000))
       :groups (repeat n-grps (new-group))
       :unvoted []
       :members [] ; actually a map of member indices to group indices
       :comments 0
