Simple naughts and crosses game in haskell