? s=0;n=8;for(j=1,n,for(k=1,j,s=s*10^length(digits(j))+j));print(s)
122333444455555666666777777788888888
? s=0;n=10;for(j=1,n,for(k=1,j,s=s*10^length(digits(j))+j));print(s)
12233344445555566666677777778888888899999999910101010101010101010
?

? s=0;n=8;forstep(j=n,1,-1,for(k=1,j,s=s*10^length(digits(j))+j));print(s)
888888887777777666666555554444333221
? s=0;n=10;forstep(j=n,1,-1,for(k=1,j,s=s*10^length(digits(j))+j));print(s)
10101010101010101010999999999888888887777777666666555554444333221
?