Program sub_mult;
var fi,fo:text;
    n,m,nr,i :longint;
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.