RosettaCodeData/Task/Greatest-common-divisor/PicoLisp/greatest-common-divisor.l

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