RosettaCodeData/Task/Least-common-multiple/F-Sharp/least-common-multiple.fs

let rec gcd x y = if y = 0 then abs x else gcd y (x % y)

let lcm x y = x * y / (gcd x y)