; Errors
(define f1  (list (a-card 14 'hearts) (a-card 12 'hearts) (a-card 13 'clubs)
	          (a-card 13 'diamonds) (a-card 9 'diamonds) (a-card 4 'spades)
		  (a-card 9 'hearts) (a-card 2 'spades) (a-card 6 'spades)
		  (a-card 11 'hearts) (a-card 3 'diamonds) (a-card 5 'diamonds)
	    )
)

(define f2  (list (a-card 14 'hearts) (a-card 12 'hearts) (a-card 13 'clubs)
	          (a-card 13 'diamonds) (a-card 9 'diamonds) (a-card 4 'spades)
		  (a-card 9 'hearts) (a-card 2 'spades) (a-card 6 'spades)
		  (a-card 11 'hearts) (a-card 3 'diamonds) (a-card 5 'diamonds)
                  (a-card 10 'hearts) (a-card 3 'spades)
	    )
)

(define f3  (list (a-card 14 'hearts) (a-card 12 'hearts) (a-card 13 'clubs)
	          (a-card 13 'diamonds) (a-card 9 'diamonds) (a-card 4 'spades)
		  (a-card 9 'hearts) (a-card 2 'spades) (a-card 6 'spades)
		  (a-card 11 'hearts) (a-card 3 'diamonds) (a-card 5 'diamonds)
                  (a-card 12 'hearts)
	    )
)

; Valid hands

;;; 19 = 10 + 9
(define hand1 (list (a-card 9 'diamonds) (a-card 10 'diamonds) (a-card 11 'diamonds) (a-card 12 'diamonds) (a-card 13 'diamonds) (a-card 14 'diamonds) (a-card 2 'diamonds) (a-card 3 'diamonds) (a-card 4 'diamonds) (a-card 5 'diamonds) (a-card 6 'diamonds) (a-card 7 'diamonds) (a-card 8 'diamonds) ))

;;; 0
(define hand2 (list (a-card 6 'clubs) (a-card 3 'clubs) (a-card 4 'clubs) (a-card 4 'diamonds) (a-card 3 'diamonds) (a-card 6 'diamonds) (a-card 3 'hearts) (a-card 6 'hearts) (a-card 4 'hearts) (a-card 7 'spades) (a-card 6 'spades) (a-card 3 'spades) (a-card 4 'spades)))

;;; 23 = 17 + 6
(define hand3 (list (a-card 8 'clubs) (a-card 5 'clubs) (a-card 2 'clubs) (a-card 3 'clubs) (a-card 4 'clubs) (a-card 6 'clubs) (a-card 10 'clubs) (a-card 11 'clubs) (a-card 12 'clubs) (a-card 13 'clubs) (a-card 13 'spades) (a-card 14 'hearts) (a-card 14 'diamonds)))

;;; 18 = 18 + 0
(define hand4 (list (a-card 10 'hearts) (a-card 10 'spades) (a-card 12 'hearts) (a-card 9 'hearts) (a-card 13 'diamonds) (a-card 14 'diamonds) (a-card 11 'spades) (a-card 12 'spades) (a-card 13 'spades) (a-card 13 'clubs) (a-card 9 'clubs) (a-card 10 'clubs) (a-card 8 'diamonds)))

;;; 3 = 0 + 3
(define hand5 (list (a-card 7 'spades) (a-card 7 'clubs) (a-card 7 'hearts) (a-card 3 'spades) (a-card 3 'clubs) (a-card 3 'hearts) (a-card 8 'spades) (a-card 8 'clubs) (a-card 8 'hearts) (a-card 5 'spades) (a-card 5 'clubs) (a-card 5 'hearts) (a-card 6 'hearts)))