 
 (def starting-state {:pos 0
                      :score 0
+                     :time 10
                      :status (vec (take num-letters (repeat :init)))})
 
 (def app-state (atom starting-state))

(defn init! []
  (reset-state!)
  (hook-browser-navigation!)
  (hook-keyboard-listener)
  (mount-root))

    (swap! app-state update-in [:pos] #(or first-greater-pos first-pos))))


(defn no-more-letters-to-answer? []
  (every? #(or (= :failed %) (= :ok %)) (:status @app-state)))

(defn no-more-time-left? []
  (> 1 (:time @app-state)))

(defn end-game? []
  (or (no-more-letters-to-answer?) (no-more-time-left?)))

(defn end-game []
  (secretary/dispatch! "/end"))
