Connect four in haskell