var i,j,k,n:comp;s:array[byte]of string;begin read(n);repeat inc(i);str(s[j],i,^`,s[j]);if(j=0)&(i<n)then begin inc(k);j:=k+1end;dec(j)until i=n;for i:=-k to 0do writeln(trim(s[-i]))end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).