program submultimi;
var n:byte;
v:array[0..17]of byte;

procedure afis(m:byte);
var i:byte;
begin
for i:=1 to m do write(v[i],' ');
writeln;
end;

procedure go(k:byte);
begin
v[k]:=v[k-1]+1;
while v[k]<=n do begin
      afis(k);
      go(k+1);
      inc(v[k]);
end;
end;

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