`prim', `cont'
--------------

prim(POLY[,V])
     :: POLY $B$N86;OE*ItJ,(B (primitive part).

cont(POLY[,V])
     :: POLY $B$NMFNL(B (content).

RETURN POLY
     $BM-M}?t78?tB?9`<0(B

V
     $BITDj85(B

   * POLY $B$N<gJQ?t(B ($B0z?t(B V $B$,$"$k>l9g$K$O(B V) $B$K4X$9$k86;OE*ItJ,(B,
     $BMFNL$r5a$a$k(B.

     [0] E=(y-z)*(x+y)*(x-z)*(2*x-y);
     (2*y-2*z)*x^3+(y^2-3*z*y+2*z^2)*x^2+(-y^3+z^2*y)*x+z*y^3-z^2*y^2
     [1] prim(E);
     2*x^3+(y-2*z)*x^2+(-y^2-z*y)*x+z*y^2
     [2] cont(E);
     y-z
     [3] prim(E,z);
     (y-z)*x-z*y+z^2

$B;2>H(B
     *Note `var': var, *Note `ord': ord.

