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.