 
 (defn init-game! [state screen]
   (init-key-handler! state (.getContainer screen))
-  (game-loop! app-state screen))
+  (game-loop! state screen))
 
 ;; -------------------------
 ;; Views

              input (get *keys* (if (<= 96 key-code 105)
                                  (- key-code 48)
                                  key-code))]
          (when (:game @app-state)
            (swap! state assoc-in [:game :input] input)))
        (recur)))))

(defmulti draw-ui

    game))

(defn tick-game [state screen]
  (reset! state (-> @state
                    handle-input
                    (draw-game screen))))

(defn game-loop! [state screen]
  (tick-game state screen)
