program submultimi;
var f,g:text; i,n:byte; st:array[1..17] of byte;
procedure afisare(p:byte);
begin
For i:=1 to p do Write(g,st[i],' ');
Writeln(g);
end;
procedure subm(p:byte);
var i:byte;
begin
For i:=1 to n do
 begin
 st[p]:=i;
 If (p=1)or(st[p]>st[p-1]) then
  begin
  afisare(p);
  If p<n then subm(p+1);
  end;
 end;
end;
begin
Assign(f,'submultimi.in'); Reset(f);
Assign(g,'submultimi.out');Rewrite(g);
Read(f,n); Close(f);
subm(1); Close(g);
end.