`tdiv'
------

tdiv(POLY1,POLY2)
     :: POLY1  POLY2 ǳڤ뤫ɤĴ٤.

RETURN	
     ڤʤо, ڤʤ 0
POLY1 POLY2
     ¿༰

   * POLY2  POLY1 ¿༰ȤƳڤ뤫ɤĴ٤.
   * ¿༰ҤǤ뤳ȤϤ狼äƤ뤬, νʣ٤狼
     ʤ, `tdiv()' 򷫤֤Ƥ֤Ȥˤʣ٤狼.

     [11] Y=(x+y+z)^5*(x-y-z)^3;  
     x^8+(2*y+2*z)*x^7+(-2*y^2-4*z*y-2*z^2)*x^6+(-6*y^3-18*z*y^2-18*z^2*y-6*z^3)*x^5
     +(6*y^5+30*z*y^4+60*z^2*y^3+60*z^3*y^2+30*z^4*y+6*z^5)*x^3+(2*y^6+12*z*y^5
     +30*z^2*y^4+40*z^3*y^3+30*z^4*y^2+12*z^5*y+2*z^6)*x^2+(-2*y^7-14*z*y^6
     -42*z^2*y^5-70*z^3*y^4-70*z^4*y^3-42*z^5*y^2-14*z^6*y-2*z^7)*x-y^8-8*z*y^7
     -28*z^2*y^6-56*z^3*y^5-70*z^4*y^4-56*z^5*y^3-28*z^6*y^2-8*z^7*y-z^8
     [12] for(I=0,F=x+y+z,T=Y; T=tdiv(T,F); I++); 
     [13] I;
     5


     `sdiv', `srem'

