`dp_subd'
---------

dp_subd(DPOLY1,DPOLY2)
     :: $@F,9`$N>&C19`<0$rJV$9(J.

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

   * `dp_ht(DPOLY1)/dp_ht(DPOLY2)' $@$r5a$a$k(J. $@7k2L$N78?t$O(J 1 $@$G$"$k(J.
   * $@3d$j@Z$l$k$3$H$,$"$i$+$8$a$o$+$C$F$$$kI,MW$,$"$k(J.

     [162] dp_subd(<<1,2,3,4,5>>,<<1,1,2,3,4>>);
     (1)*<<0,1,1,1,1>>

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

