tictactoe in haskell