#!awk -f { max=$1 print 0 for(b=1;;b*=10) { n=b for(j=10;--j>0;n+=b) { if(n>max) next print n } } }