var n:byte;
     i,j:longint;
     a:array[1..100] of byte;




begin
assign(input,'submultimi.in');
assign(output,'submultimi.out');
reset(input);
rewrite(output);
  readln(n);

  for i:=1 to (1 shl n)-1 do
    begin
     inc(a[1]);
      for j:=1 to n do
       begin
        if a[j]>1 then begin
                        inc(a[j+1]);
                        dec(a[j],2);
                       end;
        if a[j]=1 then write(j,' ');
       end;
     writeln;
    end;


close(input);
close(output);
{Totusi este trist in lume}
end.