`dp_lcm'
--------

dp_lcm(DPOLY1,DPOLY2)
     :: $B:G>.8xG\9`$rJV$9(B.

RETURN
     $BJ,;6I=8=B?9`<0(B

DPOLY1, DPOLY2
     $BJ,;6I=8=B?9`<0(B

   * $B$=$l$>$l$N0z?t$NF,9`$N:G>.8xG\9`$rJV$9(B. $B78?t$O(B 1 $B$G$"$k(B.

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

$B;2>H(B
     *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.

