Changed some things in BlackJack.hs