   (setup-gol!)
   (setup-soe!)
   (start-rendering!)
-  (start-soe!)
+;  (start-soe!)
   (start-gol!)
   )
 

  (swap! state assoc-in [:soe :channel] (chan-of-primes)))

(defn teardown-soe! []
  (swap! state assoc-in [:soe :channel] nil))

(defn update-soe! [primes-ch]
  (swap! state update-in [:soe :prime-count] inc)


(defn teardown-gol! []
  (swap! state assoc-in [:gol :busy?] false)
  (swap! state assoc-in [:gol :cells] nil)
  (swap! state assoc-in [:gol :generation] 0))

(defn swap-gol! [cells]
  (swap! state assoc-in [:gol :cells] cells)
