; Bridge hands starter kit

(define ranks '(a k q j 10 9 8 7 6 5 4 3 2))
(define suits '(s h d c))
(define (numeric-rank rank)       ; may or may not find this function useful
   (cond ((equal? rank 'a) 14)
         ((equal? rank 'k) 13)
         ((equal? rank 'q) 12)
         ((equal? rank 'j) 11)
         (else rank)))
(define (make-card suit rank)
   (word suit rank))
(define (rank card) (bf card))
(define (suit card) (first card))