         grid  (-> world render)
         new   (-> world
                   (assoc :grid grid, :x x, :y 0, :rotations 0, :block block)
-                  (update :score + (count marked)))]
+                  (update :score + (* 100
+                                      (count marked)
+                                      (/ (count marked)
+                                         2))))]
     (if (valid? new)
       new
       (assoc new :game-over? true))))

       [:a.title
        {:href     "#"
         :on-click #(reset! world-atom
                            (new-block {:grid empty-grid}))}
        "GAME OVER"])]))

(defonce world-atom (r/atom (new-block {:grid empty-grid})))

(defonce key-listener
  (.addEventListener (.-body js/document) "keydown"


(defn tick! []
  (move! world-atom :down)
  (let [tick-frequency (max (- initial-tick-frequency
                               (-> world-atom deref :speed))
                            min-tick-frequency)]
    (js/setTimeout tick! tick-frequency)))

(defonce game-loop
