        (q/rect (* x cell-size)
                (* y cell-size)
                cell-size
-               cell-size)))))
+               cell-size))))
+  (when (:paused state)
+   (q/no-stroke)
+   (q/fill 0 0 0 150)
+   (q/rect 0 0 130 40)
+   (q/fill 255 255 255)
+   (q/text "PAUSED" 8 29)))
+  
 
 (q/defsketch life
   :title "Game of life"

    (update state :board step)))

(defn draw-state [state]
  (q/no-stroke)
  (doall
   (for [x (range board-size)
         y (range board-size)]

            [clojure.string :as s]))

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

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