lcm x y
returns the least common multiple of x and y
Source code:
if { $x==0} { return 0 } if { $y==0} { return 0 } abs [expr $x/[gcd $x $y]*$y]