(= r 2)(n-of 100(= r(mod(expt r 10)(expt 10 1000))))pr.r