`ptozp'
-------

ptozp(POLY)
     :: POLY $B$rM-M}?tG\$7$F@0?t78?tB?9`<0$K$9$k(B.

RETURN
     $BB?9`<0(B

POLY
     $BB?9`<0(B

   * $BM?$($i$l$?B?9`<0(B POLY $B$KE,Ev$JM-M}?t$r3]$1$F(B, $B@0?t78?t$+$D(B $B78?t$N(B
     GCD $B$,(B 1 $B$K$J$k$h$&$K$9$k(B.

   * $BJ,?t$N;MB'1i;;$O(B, $B@0?t$N1i;;$KHf3S$7$FCY$$$?$a(B, $B<o!9$NB?9`<01i;;(B
     $B$NA0$K(B, $BB?9`<0$r@0?t78?t$K$7$F$*$/$3$H$,K>$^$7$$(B.

   * $BM-M}<0$rLsJ,$9$k(B `red()' $B$GJ,?t78?tM-M}<0$rLsJ,$7$F$b(B,
     $BJ,;RB?9`<0$N78?t$OM-M}?t$N$^$^$G$"$j(B, $BM-M}<0$NJ,;R$r5a$a$k(B `nm()'
     $B$G$O(B, $BJ,?t78?tB?9`<0$O(B, $BJ,?t78?t$N$^$^$N7A$G=PNO$5$l$k$?$a(B,
     $BD>$A$K@0?t78?tB?9`<0$rF@$k;v$O=PMh$J$$(B.

     [0] ptozp(2*x+5/3);
     6*x+5
     [1] nm(2*x+5/3);
     2*x+5/3

$B;2>H(B
     *Note `nm dn': nm dn.

