set I3, 3000000
REDO:   time I1
print I1
print "\n"
set I2 0
SPIN:   inc I2
le I2, I3, SPIN, REDO