((^r(dotimes'100(set! r(mod(expt r 10)(expt 10 1000))))(print r))2)