tail10(num) = { \
	lift(Mod(num,10^10));
}

tail5(num) = { \
	lift(Mod(num,10^5));
}

round2(full2) = { \
	rounded2=(round(100*full2)/100.00); \
	rounded2;
}



TENTO3=10^3
TENTO5=10^5
TENTO6=10^6
TENTO10=10^10


t=9;t3=3+t;leadplus=1+2^t;dp=1+2*t;d4=4*dp;prp=1+leadplus*(2^t3)
starter=17000;
for(k=starter,starter+1000,t1=1+k;t2=2+k; \
	leadplus=(1+2^k); \
	nmo=leadplus*(2*2^t2); \
	prp=1+nmo; \
	pow2=((2^t1)*(1+2^k)); \
	pow2adjusted=pow2/2; \
	if(-1==Mod(2,prp)^pow2adjusted,print("t=",k," gives -1 for 2^pow2adjusted")); \
	if(k>starter&&0==k%500,print("-- loop marker -- t=",k)); \
);