         all-moves (get-in game [:moves player])]
     (transduce
       (map #(move-strength (:cells-strength game) converted-filter %))
-      max
-      all-moves)))
+      max all-moves)))
 
 (defn best-move
   "[SIMPLISTIC] Return the best move for a player based on:
    * The immediate gain
    * The worse immediate lost afterwards"
-  {:pre (player? player)}
+  {:pre [(player? player)]}
   [game player]
   (let [moves (get-in game [:moves player])
         others (remove #{player} players)]

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

(def player? (set players))
(def cell-types? (conj player? :wall :empty))


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

(def board (reagent/cursor app-state [:board]))
(def scores (reagent/cursor app-state [:scores]))
(def current-player (reagent/cursor app-state [:player]))


;; -----------------------------------------
;; DISPLAY
