`lmptop'
--------

lmptop(OBJ)
     :: GF(p) $B78?tB?9`<0$N78?t$r@0?t$KJQ49(B

RETURN
     $B@0?t78?tB?9`<0(B

OBJ
     GF(p) $B78?tB?9`<0(B

   * GF(p) $B78?tB?9`<0$N78?t$r@0?t$KJQ49$9$k(B.

   * GF(p) $B$N85$O(B, 0 $B0J>e(B p $BL$K~$N@0?t$GI=8=$5$l$F$$$k(B.
     $BB?9`<0$N3F78?t$O(B, $B$=$NCM$r@0?t%*%V%8%'%/%H(B($B?t<1JL;R(B 0)$B$H$7$?$b$N$K(B
     $BJQ49$5$l$k(B.

     [0] setmod_ff(pari(nextprime,2^40));
     1099511627791
     [1] F=simp_ff((x-1)^10);
     1*x^10+1099511627781*x^9+45*x^8+1099511627671*x^7+210*x^6
     +1099511627539*x^5+210*x^4+1099511627671*x^3+45*x^2+1099511627781*x+1
     [2] setmod_ff(547);
     547
     [3] F=simp_ff((x-1)^10);
     1*x^10+537*x^9+45*x^8+427*x^7+210*x^6+295*x^5+210*x^4+427*x^3+45*x^2+537*x+1
     [4] lmptop(F);
     x^10+537*x^9+45*x^8+427*x^7+210*x^6+295*x^5+210*x^4+427*x^3+45*x^2+537*x+1
     [5] lmptop(coef(F,1));
     537
     [6] ntype(@@);
     0

$B;2>H(B
     *Note `simp_ff': simp_ff

