`dp_lcm'
--------

dp_lcm(DPOLY1,DPOLY2)
     :: Returns the least common multiple of the head terms of the
     given two polynomials.

RETURN
     distributed polynomial

DPOLY1, DPOLY2
     distributed polynomial

   * Returns the least common multiple of the head terms of the given
     two polynomials, where coefficient is always set to 1.

     [100] dp_lcm(<<1,2,3,4,5>>,<<5,4,3,2,1>>);
     (1)*<<5,4,3,4,5>>

References
     *Note `p_nf p_nf_mod p_true_nf p_true_nf_mod': p_nf p_nf_mod
     p_true_nf p_true_nf_mod.

