var n:Byte;
    st:array[0..12] of byte;
procedure tipar(k:byte);
var i:byte;
begin
for i:=1 to k 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;
 tipar(k);
 if k<n then back(k+1);
 end;
end;

begin
assign(input,'submultimi.in');reset(input);
readln(n);
assign(output,'submultimi.out');rewrite(output);
back(1);
close(input);close(output);
end.