Blackjack written in Haskell