blackjack.hs