#!/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)) )