`modfctr'
---------

modfctr(POLY,MOD)
     :: $BM-8BBN>e$G$N(B 1 $BJQ?tB?9`<0$N0x?tJ,2r(B

RETURN
     $B%j%9%H(B

POLY
     $B@0?t78?t$N(B 1 $BJQ?tB?9`<0(B

MOD
     $B<+A3?t(B

   * 2^31 $BL$K~$N<+A3?t(B MOD $B$rI8?t$H$9$kAGBN>e$G0lJQ?tB?9`<0(B POLY
     $B$r4{Ls0x;R$KJ,2r$9$k(B.

   * $B7k2L$O(B [[$B?t78?t(B,1],[$B0x;R(B,$B=EJ#EY(B],...] $B$J$k%j%9%H(B.

   * $B?t78?t(B $B$H(B $BA4$F$N(B $B0x;R(B^$B=EJ#EY(B $B$N@Q$,(B POLY $B$HEy$7$$(B.

   * $BBg$-$J0L?t$r;}$DM-8BBN>e$N0x?tJ,2r$K$O(B `fctr_ff' $B$rMQ$$$k(B.  (*Note
     $BM-8BBN$K4X$9$k1i;;(B::,*note fctr_ff::).

     [0] modfctr(x^10+x^2+1,2147483647);
     [[1,1],[x+1513477736,1],[x+2055628767,1],[x+91854880,1],
     [x+634005911,1],[x+1513477735,1],[x+634005912,1],
     [x^4+1759639395*x^2+2045307031,1]]

$B;2>H(B
     *Note `fctr sqfr': fctr sqfr.

