Program Submultimi;
        var a : array[1..16] of byte;
            fi, fo : text;
            i, j, n : longint;
 begin
  assign(fi,'submultimi.in'); reset(fi);
  assign(fo,'submultimi.out'); rewrite(fo);

  read(fi,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
                                                                a[j]:=0;
                                                                inc(a[j+1]);
                                                          end;
                                           if a[j]=1 then write(fo, j,' ');
                                           end;
                             writeln(fo);
                             end;
  close(fi);
  close(fo);
end.