;  Code of Figure 1.5, page 17 from
;  Kenneth C. Louden, Programming Languages
;  Principles and Practice  2nd Edition
;  Copyright (C) Brooks-Cole/ITP, 2003

(define (gcd u v)
  (if (= v 0) u
      (gcd v (modulo u v))))