a=1
for(i in 0:9){write(sprintf("%s",a),1,1e5)
a=c(b<-cumsum(a),rep(sum(a),i),rev(b))}