program submultimi;
var n,m,i,j:integer;
    st:array[1..17] of integer;

procedure back(k:integer);
var i,j:integer;
begin
for i:=st[k-1]+1 to n do begin
                             st[k]:=i;
                             for j:=1 to k do write(st[j],' ');
                             writeln;
                             back(k+1);
                          end;
end;
begin
    assign(input,'submultimi.in'); reset(input);
    assign(output,'submultimi.out'); rewrite(output);
    readln(n);
    back(1);
    close(input);
    close(output);
end.