program unu;
var  n:integer;
procedure afis(ps,pd:integer);
var i,mij:integer;
begin
if ps=pd then begin
              for i:=1 to ps-1 do write(' ');
              write(ps);
             writeln;
             end
             else begin
             mij:=(ps+pd) div 2;
             afis(ps, mij);
             afis(mij+1, pd);
end;
end;
begin
readln(n);
afis(1,n);
end.