(define (gcd x y) (if (= y 0) x (gcd y (modulo x y)) ) ) (writeln (gcd 999 33))