1 (defun no-more? (coins)
2   (null coins))
3 (defun except-first-denomination (coins)
4   (cdr coins))
5 (defun first-denomination (oins)
6   (car coins))
7 (defun cc (amount coin-values)
8   (cond ((= amount 0) 1)
9 	((or (< amount 0) (no-more? coin-values)) 0)
10 	(t
11 	 (+ (cc amount
12 		(except-first-denomination coin-values))
13 	    (cc (- amount
14 		   (first-denomination coin-values))
15 		coin-values)))))