Blackjack in haskell