Haskell implementation of the card game "500"