function gcdp(a, b)
	if b = 0 then return a
	return gcdp(b, a mod b)
end function

function gcd(a, b)
	return gcdp(abs(a), abs(b))
end function

function lcm(a, b)
	return abs(a * b) / gcd(a, b)
end function

print "lcm( 12, -18) = "; lcm( 12, -18)
print "lcm( 15,  12) = "; lcm( 15,  12)
print "lcm(-10, -14) = "; lcm(-10, -14)
print "lcm(  0,   1) = "; lcm(  0,   1)