       [-1 1] [1 1] [-1 -1] [1 -1]]
      )))
 
+(defn take-empty-cell-move
+  "Create a move to take an empty cell" 
+  [player pos]
+  {:winner player
+   :looser :empty
+   :taken [pos]})
+
 
 ;; -----------------------------------------
 ;; ON PLAYER MOVE

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

(defn play-move
  "On player playing the move [x y]" ;; TODO - Handle the scores
  [{:keys [player board] :as game} [x y]]
  (let [moves (get (available-moves-at board [x y]) player)]
    (if moves
      (reduce apply-move (assoc-in game [:board x y] player) moves)
      game)))


;; -----------------------------------------

     }))

(defn show-scores
  [scores player]
  (into [:div.scores]
    (for [p players]
      ^{:key p}
      [(if (= player p) :div.score--is-current :div.score)
       (str (name p) ": " (get scores p))])
    ))

(defn greeting []
