Program Submultimile;const dim=16;
type tabel=array[1..16] of integer;
     valori=array[1..16] of integer;
var t:tabel;
    v:valori;
    b:boolean;
    n,i,j,s:integer;

Procedure Citire;
var f:text;
begin
assign(f,'submultimi.in');
reset(f);
readln(f,n);
close(f);
end;

Procedure Cautare;
var f2:text;
begin
assign(f2,'submultimi.out');
rewrite(f2);
for i:=1 to n do v[i]:=0;
repeat
s:=0;
b:=false;
v[1]:=v[1]+1;
for i:=1 to n-1 do
if v[i]>n+1-i then
begin
b:=true;
v[i+1]:=v[i+1]+1;
j:=i+1;
end;
if b=true then begin
for i:=j downto 1 do v[i-1]:=v[i]+1;
end;
for i:=n downto 1 do
if v[i]<>0 then write(f2,v[i],' ');
writeln(f2);
until v[n]=1;
close(f2);
end;

begin
Citire;
Cautare;
end.