(de lcm (A B)
   (abs (*/ A B (gcd A B))) )