 ;; Board.
 ;;------------------------------------------------------------
 
-(def empty-board [[0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]
-                  [0 0 0 0 0 0 0 0 0 0]])
+(def empty-row (vec (repeat 10 0)))
+(def empty-board (vec (repeat 22 empty-row)))
 
 ; The starting position of all pieces.
 (def start-position [4 2])

  []
  (swap! state assoc :piece (get-rand-piece)
                     :position start-position))

(defn go-go-gravity!
  "Starts the gravity routine."

          (swap! state assoc-in [:position 1] ny)
          (do
            (swap! state assoc :board (write-piece-to-board piece x y board))
            (try-collapse!)
            (spawn-piece!))))
      (recur))))

