procedure lcm(i, j)		#: least common multiple
   if (i =  0) | (j = 0) then return 0	
   return abs(i * j) / gcd(i, j)
end