   (size-canvas!)
   (try-spawn-piece!)
   (add-key-events)
+  (go-go-draw!)
   (go-go-gravity!)
-  (go-go-draw!)
 
   (repl/connect)
   (connect-socket!)

  "Spawns the given piece at the starting position."
  [piece]
    (swap! state assoc :piece piece
                       :position start-position))

(defn try-spawn-piece!
  "Checks if new piece can be written to starting position."

        board (:board @state)]
    (swap! state assoc  :board (write-piece-to-board piece x y board)
                        :piece nil)
    (put! pause-grav 0)

    ; If collapse routine returns a channel...
    ; then wait for it before spawning a new piece.
