boardFromMinmax:: Board->Color->Board
boardFromMinmax board color = addToBoard board (moves!!fromJust(elemIndex (maximum minMaxOfMoves) minMaxOfMoves)) color
    where
        maxLevelOfMinmax = 4
        moves = possibleMoves board
        minMaxOfMoves = Prelude.map (\move -> (minmax (buildTree (addToBoard board move color ) color) color maxLevelOfMinmax)) moves