Noughts and Crosses game in Haskell