Tic Tac Toe in Haskell