#!/usr/local/bin/gosh (define (ackermann m n) (cond [(zero? m) (+ 1 n)] [(zero? n) (ackermann (- m 1) 1)] [else (ackermann (- m 1) (ackermann m (- n 1)))])) (display (list(ackermann 3 10) '(ackermann 4 1)) )