RosettaCodeData/Task/Least-common-multiple/Phix/least-common-multiple.phix

function lcm(integer m, integer n)
    return m / gcd(m, n) * n
end function