updated BlackJack.hs