var n,comb:Byte;
    st:Array[0..12] of byte;

procedure tipar;
var i:byte;
begin
for i:=1 to comb do
write(st[i],' ');
writeln;
end;

procedure back(k:byte);
var i:byte;
begin
for i:=st[k-1]+1 to n do
 begin
 st[k]:=i;
 if k<comb then back(k+1) else tipar;
 end;
end;

begin
assign(input,'submultimi.in');reset(input);
readln(n);
assign(output,'submultimi.out');rewrite(output);
for comb:=1 to n do back(1);
close(input);close(output);
end.