// Works in MIT scheme or DrRacket http://www.racket-lang.org/

(define gcd2
   (lambda (a b)
      (cond ((= a b) a)
            ((> a b) (gcd2 (- a b) b))
            (else (gcd2 (- b a) a)))))

(gcd2 1870 1045)

(gcd2 210 231)

// For patched version of Little JavaScripter (http://ranger.uta.edu/~weems/NOTES3302/LITTLEJS/)

(define gcd2
   (lambda (a b)
      (cond ((isEqn a b) a)
            ((gt a b) (gcd2 (minus a b) b))
            (else (gcd2 (minus b a) a)
            )
      )
   )
)