`dp_redble'
-----------

dp_redble(DPOLY1,DPOLY2)
     :: $@F,9`$I$&$7$,@0=|2DG=$+$I$&$+D4$Y$k(J.

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

   * DPOLY1 $@$NF,9`$,(J DPOLY2 $@$NF,9`$G3d$j@Z$l$l$P(J 1, $@3d$j@Z$l$J$1$l$P(J0 
     $@$rJV$9(J.
   * $@B?9`<0$N4JLs$r9T$&:](J, $@$I$N9`$r4JLs$G$-$k$+$rC5$9$N$KMQ$$$k(J.

     [148] C;
     (1)*<<1,1,1,0,0>>+(1)*<<0,1,1,1,0>>+(1)*<<1,1,0,0,1>>+(1)*<<1,0,0,1,1>>
     [149] T;
     (3)*<<2,1,0,0,0>>+(3)*<<1,2,0,0,0>>+(1)*<<0,3,0,0,0>>+(6)*<<1,1,1,0,0>>
     [150] for ( ; T; T = dp_rest(T)) print(dp_redble(T,C));
     0
     0
     0
     1

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

