add Card in Haskell