a=0
for(i in 1:9)cat(sprintf("%9d * 9 +%3d = %d
",a<-a*10+i,i+1,a*9+i+1))