                               grid-width
                               grid-height)]
         (prn "Decision: " decision)
-        (into [] decision)
-
-        )))
+        (into [] decision))))
 
   (defn chantest
     []

(defn calc-heuristic
  ""
  [list-to-check player opponent]
  (- (calc-positive-heuristic list-to-check player opponent)
     (calc-positive-heuristic (reverse list-to-check) opponent player)))


    ""
    [is-first-player state timeout grid-width grid-height]
    ; TODO Return if timeout
    (let [[negamax-value move] (negamax-inner state Double/NEGATIVE_INFINITY Double/POSITIVE_INFINITY timeout is-first-player 5 grid-width grid-height)]
      (prn "Negamax-value" negamax-value)
        move))

