A card game written in Haskell