1 665c255d 2023-08-04 jrmu (define (gcd a b)
2 665c255d 2023-08-04 jrmu   (if (= b 0)
3 665c255d 2023-08-04 jrmu       a
4 665c255d 2023-08-04 jrmu       (gcd b (remainder a b))))