Program arena_submultimi;
var fi,fo:text;
    n,i,m,nr : integer;
begin
     assign(fi,'submultimi.in'); reset(fi); read(fi,n);
     close(fi); assign(fo,'submultimi.out'); rewrite(fo);
     for m:=1 to 1 shl n-1 do begin
                              nr:=0;
                              while m>1 shl nr do nr:=nr+1;
                              for i:=0 to nr do
                                                if m and ( 1 shl i ) <> 0 then write(fo,i+1,' ');
                              writeln(fo);
                              end;
     close(fo);
end.