n:?read(); s:"";p:1;c:1;for i thru n do(if(p=i)then(f:" ",c:c+1,p:p+c)else f:" ",s:concat(s,string(i),f));print(s);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page