Program fsfhas;
type vec=array[1..20] of integer;
var  i,j,n:integer; a,b:vec;
     g,f:text;

procedure bin(c:integer; var q:vec);
var w,t : integer;
begin
t:=1;
w:=c+1;
repeat
dec(w);
 if q[w]=0 then  begin
  q[w]:=t; t:=0 end else begin
  q[w]:=0; t:=1 end;
  until t=0;
end;

begin
assign(f, 'submultimi.in'); reset(f);
assign(g, 'submultimi.out'); rewrite(g);
readln(f,n);
for i:=1 to n do
 a[i]:=i;
for i:=round(exp(n*ln(2))) downto 1 do begin
bin(n,b);
for j:=1 to n do
if b[j]=1 then write(g,a[j], ' ');
writeln(g);
end;
end.