TicTacToe in Haskell