program submultimi;
var fi,fo:text;
   n:longint;
   st:array[0..50] of longint;
procedure tipar(k:integer);
var i:integer;
begin
for i:=1 to k do write(fo,st[i],' ');writeln(fo);
end;
procedure back(k:integer);
var i:integer;
begin
for i:=st[k-1]+1 to n do begin
                        st[k]:=i;
                        tipar(k);
                        back(k+1);
                        end;
end;
begin
assign(fi,'submultimi.in');reset(fi);
assign(fo,'submultimi.out');rewrite(fo); read(fi,n);
back(1); close(fi);close(fo);
end.