RosettaCodeData/Task/Least-common-multiple/Retro/least-common-multiple.retro

: gcd ( ab-n ) [ tuck mod dup ] while drop ;
: lcm ( ab-n ) 2over gcd [ * ] dip / ;