program sub;
var i,i1,j,n:longint;
    p:string;
    f:text;
    a:array[1..17]of byte;
function du(v:longint):longint;
var u,y:longint;
begin
u:=1;
for y:=1 to v do
    u:=u*2;
du:=u;
end;
procedure bin(l:longint; var b:string);
var k,k1,k2:longint;
    b1:string;
begin
k1:=l;
repeat
k:=k1 div 2;
k2:=k1 mod 2;
str(k2,b1);
b:=b+b1;
k1:=k;
until k=0;
end;
begin
assign(f,'submultimi.in');
reset(f);
readln(f,n);
close(f);
assign(f,'submultimi.out');
rewrite(f);
i:=0;
for i :=1 to n do
begin
a[i]:=i;
end;
i1:=i;
for i:=1 to du(i1)-1 do
begin
bin(i,p);
for j:=1 to length(p) do
     if p[j]='1' then write(f,a[j],' ');
    writeln(f);
p:='';
end;
close(f);
end.