RosettaCodeData/Task/Least-common-multiple/PicoLisp/least-common-multiple.l

(de lcm (A B)
   (abs (*/ A B (gcd A B))) )