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);