1 (define (pascal-rec row col)
2   (cond ((= row col) 1)
3 	((= col 1) 1)
4 	(else (+ (pascal-rec (- row 1) (- col 1))
5 		 (pascal-rec (- row 1) col)))))
6 
7 (define (test-case actual expected)
8   (load-option 'format)
9   (format #t "Actual: ~A Expected: ~A" actual expected))
10 (test-case (pascal-rec 1 1) 1)
11 (test-case (pascal-rec 2 1) 1)
12 (test-case (pascal-rec 2 2) 1)
13 (test-case (pascal-rec 3 1) 1)
14 (test-case (pascal-rec 3 2) 2)
15 (test-case (pascal-rec 3 3) 1)
16 (test-case (pascal-rec 4 1) 1)
17 (test-case (pascal-rec 4 2) 3)
18 (test-case (pascal-rec 4 3) 3)
19 (test-case (pascal-rec 4 4) 1)
20 (test-case (pascal-rec 5 1) 1)
21 (test-case (pascal-rec 5 2) 4)
22 (test-case (pascal-rec 5 3) 6)
23 (test-case (pascal-rec 5 4) 4)
24 (test-case (pascal-rec 5 5) 1)