> (load "solution1.scm")
#<unspecified>
>  (define 5hearts (a-card 5 'hearts))
#<unspecified>
> (define KingOfSpades (a-card 13 'spades))
#<unspecified>
> (a-card 0 'spades)

Attention: Not a valid card (0 spades)
>  (a-card 25 'diamonds)

Attention: Not a valid card (25 diamonds)
>  (a-card 3 'apples)

Attention: Not a valid card (3 apples)
>  (a-card 'K 'hearts)

Attention: Not a valid card (k hearts)
>  (= (rank 5hearts) 5)
#t
> (eq? (suit KingOfSpades) 'spades)
#t
>  (card? KingOfSpades)
#t
> (card? 10)
#f
>  (load "sample-hands.scm")
#<unspecified>
> (bridge-score f1)

Attention: A hand has to have 13 cards
>  (bridge-score f2)

Attention: A hand has to have 13 cards
>  (bridge-score f3)

Attention: Repeated card in the hand
> (bridge-score hand1)
19
>  (bridge-score hand2)
0
>  (bridge-score hand3)
23
>  (bridge-score hand4)
18
> (bridge-score hand5)
3