     (update state :board step)))
 
 (defn draw-state [state]
-  (q/no-stroke)
+  (q/stroke 200 200 200)
   (doall
    (for [x (range board-size)
          y (range board-size)]

            [clojure.string :as s]))

(def cell-size 10)
(def board-size 30)

(def state->color {0 [255 255 255]
                   1 [0 0 0]})


(defn setup []
  (q/frame-rate 10)
  (q/text-font (q/create-font "Sans Serif" 28 true))
  {:board (add-glider initial-board)
   :paused false})

