Haskell Blackjack implementation