P32

(de gcd (A B)
   (until (=0 B)
      (let M (% A B)
         (setq A B B M) ) )
   (abs A) )

http://picolisp.com/wiki/?99p32

10jul10

abu