`dp_red'
--------

dp_red(DPOLY1,DPOLY2,DPOLY3)
     :: $@0l2s$N4JLsA`:n(J

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

   * DPOLY1 + DPOLY2 $@$J$kJ,;6I=8=B?9`<0$r(J DPOLY3 $@$G(J1 $@2s4JLs$9$k(J.
   * $@4JLs$5$l$k9`$O(J DPOLY2 $@$NF,9`$G$"$k(J. $@=>$C$F(J, DPOLY2 $@$NF,9`$,(J 
     DPOLY3 $@$NF,9`$G3d$j@Z$l$k$3$H$,$"$i$+$8$a$o$+$C$F$$$J$1$l$P$J$i$J(J
     $@$$(J.
   * $@0z?t$,@0?t78?t$N;~(J, $@4JLs$O(J, $@J,?t$,8=$l$J$$$h$&(J, $@@0?t(J A, B, $@9`(J T 
     $@$K$h$j(J A(DPOLY1 + DPOLY2)-BT DPOLY3 $@$H$7$F7W;;$5$l$k(J.
   * $@7k2L$O(J, `[A DPOLY1,A DPOLY2 - BT DPOLY3]' $@$J$k%j%9%H$G$"$k(J.

     [157] D=(3)*<<2,1,0,0,0>>+(3)*<<1,2,0,0,0>>+(1)*<<0,3,0,0,0>>;
     (3)*<<2,1,0,0,0>>+(3)*<<1,2,0,0,0>>+(1)*<<0,3,0,0,0>>
     [158] R=(6)*<<1,1,1,0,0>>;                                    
     (6)*<<1,1,1,0,0>>
     [159] C=12*<<1,1,1,0,0>>+(1)*<<0,1,1,1,0>>+(1)*<<1,1,0,0,1>>; 
     (12)*<<1,1,1,0,0>>+(1)*<<0,1,1,1,0>>+(1)*<<1,1,0,0,1>>
     [160] dp_red(D,R,C);                                         
     [(6)*<<2,1,0,0,0>>+(6)*<<1,2,0,0,0>>+(2)*<<0,3,0,0,0>>,(-1)*<<0,1,1,1,0>>
     +(-1)*<<1,1,0,0,1>>]

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

