tic-tac-toe in haskell