#!/usr/local/bin/gosh (use srfi-1) (define (A m n) (cond ((= m 0) (+ n 1)) ((= n 0) (A (- m 1) 1)) (else (A (- m 1) (A m (- n 1)))))) (display (list '(A 3 13) (A 3 13)) )