Program Submultimile;
var i,k,n,m:word;
    b1,b2: array [1..1 shl 16] of char;
    fi,fo:text;
begin
assign(fi,'submultimi.in');
 assign(fo,'submultimi.out');
 settextbuf(fi,b1);
 settextbuf(fo,b2);
reset(fi);
 rewrite(fo);
  readln(fi,n);
for i:=1 to 1 shl n-1 do begin
                          k:=i;
                           m:=1;
                         while k>0 do begin
                                       if k and 1=1 then write(fo,m,' ');
                                       k:=k shr 1;
                                       inc(m);
                                       end;
                         writeln(fo);
                         end;
close(fo);
end.