gameTree :: State -> GameTree 
gameTree s = GameTree s (map gameTree $ nextStates s)
gameTree :: State -> GameTree
gameTree s = GameTree s (map gameTree $ nextStates s)
gameTree s = GameTree s (map gameTree $ nextStates s)