Inter game in haskell