Someone

; count change
(define coins '(200 100 50 20 10 5 2 1))
(define (cc am c)
        (if (eq? am 0) 1
        (if (or (< am 0) (null? c)) 0
        (+ (cc (- am (car c)) c)
              (cc am (cdr c))))))