program submultimi;
  var buf:array[1..100000]of byte;
      n,j:byte;
      i:longint;
      a:array[1..17]of byte;

begin
  assign(input,'submultimi.in');
  reset(input);
  assign(output,'submultimi.out');
  rewrite(output);
  settextbuf(output,buf);
  readln(n);
  for i:=1 to ((1 shl n)-1) do
    begin
      inc(a[1]);
      j:=1;
      while a[j]=2 do
        begin
          a[j]:=0;
          inc(a[j+1]);
          inc(j);
        end;
      for j:=1 to n do
        if a[j]=1 then write(j,' ');
      writeln;
    end;
  close(input);close(output);
end.