   (with-available-moves
     {:board (new-board)
      :player (rand-nth players)
+     :moves {}
+     :help false
      :scores
      {:blue 12
       :red 12

    (update-in [:scores looser] - (count taken))
    ))

(defn play-move
  "On player playing the move [x y]"
  [{:keys [player board] :as game} point]
  (if-let [moves (get-in game [:moves player point])]
    (->
      (reduce apply-move game moves)
      (apply-move (take-empty-cell-move player point))

   ])

(defn empty-cell
  [x y game]
  (rect-cell x y
    (if-not
      (and (:help game) (get-move-at game (:player game) [x y]))
      "lightgray"
      "lightblue")
    {:on-click #(swap! app-state play-move [x y])}
    ))

