                         #_(println "newest:" (count newest) (map :entry-time newest) (map :entry-time newest-plus))
                         (swap! seen-polys
                                (fn [seen]
-                                #_(println "merge-in")
+                                 #_(println "merge-in")
                                  (time (reduce
                                          (fn [seen [prev-config next-config]]
                                            (reduce

                 :now (:entry-time config))))

(defn make-world []
  (let [ids #{                                              ;:ga :gb :gc :gd :ge
              :m
              }
        walls #{[0 0 256 8]

              ; so we have to make one or the other choice.
              ; it's easier to add two than to remove one, so we do that.
              (and os-in-new? oe-in-new?) (do
                                            #_(println "split poly")
                                            (assert (not= old-start-in-new-terms :no-solution))
                                            (assert (not= old-end-in-new-terms :no-solution))
                                            [[nid
                                              nstate
                                              nv0
