   (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)

       ((juxt inc      inc identity dec dec      dec identity inc) x)
       ((juxt identity inc inc      inc identity dec dec      dec) y)))

(defn living-neighbors [cells k]
  (keep #(get cells %1) (neighbors k)))

(defn create-cell
  ([]
   (create-cell {:r (rand-int 256) :g (rand-int 256) :b (rand-int 256)}))
