add card in haskell2