#!/usr/local/bin/gosh
(use srfi-1)
(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 9) '(ackermann 4 1)) )