nfeltmulmodpr(nfinit(x),x,x,1);
