`dp_lcm'
--------

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

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

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

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

$@;2>H(J
     `dp_ht'

