do for j=0to i?a+0^(a<1e7) a=a+2^i next i=i+1loop