;;; -*-Scheme-*-
;;;
;;; The Ackermann function
(define (acker x y)
(cond
((zero? x)
(+ y 1))
((zero? y)
(acker (- x 1) 1))
(else
(acker (- x 1) (acker x (- y 1))))))
(print (acker 3 2))