`ufctrhint'
-----------

ufctrhint(POLY,HINT)
     :: $@<!?t>pJs$rMQ$$$?(J 1 $@JQ?tB?9`<0$N0x?tJ,2r(J

RETURN
     $@%j%9%H(J
POLY
     $@M-M}?t78?t$N(J 1 $@JQ?tB?9`<0(J
HINT
     $@<+A3?t(J

   * $@3F4{Ls0x;R$N<!?t$,(J HINT $@$NG\?t$G$"$k$3$H$,$o$+$C$F$$$k>l9g$K(JPOLY 
     $@$N4{Ls0x;RJ,2r$r(J `fctr()' $@$h$j8zN(NI$/9T$&(J. POLY $@$,(J, D $@<!$N3HBgBN(J
     $@>e$K$*$1$k$"$kB?9`<0$N%N%k%`(J (*Note $@Be?tE*?t$K4X$9$k1i;;(J::) $@$GL5(J
     $@J?J}$G$"$k>l9g(J, $@3F4{Ls0x;R$N<!?t$O(J D $@$NG\?t$H$J$k(J. $@$3$N$h$&$J>l9g(J
     $@$KMQ$$$i$l$k(J.

     [10] A=t^9-15*t^6-87*t^3-125;               
     t^9-15*t^6-87*t^3-125
     0msec
     [11] N=res(t,subst(A,t,x-2*t),A);           
     -x^81+1215*x^78-567405*x^75+139519665*x^72-19360343142*x^69+1720634125410*x^66
     -88249977024390*x^63-4856095669551930*x^60+1999385245240571421*x^57
     -15579689952590251515*x^54+15956967531741971462865*x^51
     ...
     +140395588720353973535526123612661444550659875*x^6
     +10122324287343155430042768923500799484375*x^3
     +139262743444407310133459021182733314453125
     980msec + gc : 250msec
     [12] sqfr(N);
     [[-1,1],[x^81-1215*x^78+567405*x^75-139519665*x^72+19360343142*x^69
     -1720634125410*x^66+88249977024390*x^63+4856095669551930*x^60
     -1999385245240571421*x^57+15579689952590251515*x^54
     ...
     -10122324287343155430042768923500799484375*x^3
     -139262743444407310133459021182733314453125,1]]
     20msec
     [13] fctr(N);                               
     [[-1,1],[x^9-405*x^6-63423*x^3-2460375,1],
     [x^18-486*x^15+98739*x^12-9316620*x^9+945468531*x^6-12368049246*x^3
     +296607516309,1],[x^18-8667*x^12+19842651*x^6+19683,1],
     [x^18-324*x^15+44469*x^12-1180980*x^9+427455711*x^6+2793253896*x^3+31524548679,1],
     [x^18+10773*x^12+2784051*x^6+307546875,1]]
     167.050sec + gc : 1.890sec
     [14] ufctrhint(N,9);
     [[-1,1],[x^9-405*x^6-63423*x^3-2460375,1],
     [x^18-486*x^15+98739*x^12-9316620*x^9+945468531*x^6-12368049246*x^3
     +296607516309,1],[x^18-8667*x^12+19842651*x^6+19683,1],
     [x^18-324*x^15+44469*x^12-1180980*x^9+427455711*x^6+2793253896*x^3+31524548679,1],
     [x^18+10773*x^12+2784051*x^6+307546875,1]]
     119.340sec + gc : 1.300sec

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

