main = do
    let tree = gameTree initialState
    print $ state tree
    print $ map state $ take 2 $ children tree
--    print $ map (negamax 10 X) $ nextStates
--        $ State (fromList [Right X, Right O, Left 2,
--                           Left 3, Left 4, Left 5,
--                           Left 6, Left 7, Left 8]) X
main = do
    let tree = gameTree initialState
    print $ state tree
    print $ map state $ take 2 $ children tree
--    print $ map (negamax 10 X) $ nextStates
--        $ State (fromList [Right X, Right O, Left 2,
--                           Left 3, Left 4, Left 5,
--                           Left 6, Left 7, Left 8]) X
main = do
    let tree = gameTree initialState
    print $ state tree
    print $ map state $ take 2 $ children tree
--    print $ map (negamax 10 X) $ nextStates
--        $ State (fromList [Right X, Right O, Left 2,
--                           Left 3, Left 4, Left 5,
--                           Left 6, Left 7, Left 8]) X