Mock out a card datatype.

Mock out a card datatype in Haskell.