                   :position start-position
                   :board empty-board
 
-                  :flashing-rows #{}}))
+                  :flashing-rows #{}
+
+                  :score 0}))
 
 ;;------------------------------------------------------------
 ;; STATE MONITOR

  (let [board (:board @state)
        cleared-board (remove #(every? cell-filled? %) board)
        n (- (count board) (count cleared-board))
        new-board (into (vec (repeat n empty-row)) cleared-board)]
    (swap! state assoc :board new-board)))

(defn go-go-collapse!
  "Starts the collapse animation if we need to, returning nil or the animation channel."

                          create-drawable-board
                          get-filled-row-indices
                          write-to-board]]
    [client.rules :refer [get-points]]
    [client.paint :refer [size-canvas!
                          draw-board!]]
    [client.repl :as repl]
