A rough implementation of blackjack in prolog and haskell