Welcome to the CHICKEN Scheme pasting service
test added by test on Sun Jul 1 16:46:20 2012
(define (gcd a b)
(let ((c (remainder a b)))
(if (= c 0)
b
(gcd b c))))(define (gcd a b)
(let ((c (remainder a b)))
(if (= c 0)
b
(gcd b c))))