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

dp_redble(DPOLY1,DPOLY2)
     :: ƬɤǽɤĴ٤.

RETURN
     
DPOLY1, DPOLY2
     ʬɽ¿༰

   * DPOLY1 Ƭब DPOLY2 Ƭǳڤ 1, ڤʤ0 
     ֤.
   * ¿༰δԤ, ɤιǤ뤫õΤѤ.

     [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


     `dp_red'

