simple blackjack game in haskell