program p1;
var n:byte;
    f,g:Text;
    i,nr,m,j,k:longint;
begin
assign(f,'submultimi.in');reset(F);
assign(G,'submultimi.out');rewrite(G);
readln(f,n);
for i:=1 to (1 shl n) -1 do begin
                k:=0;
                while i> 1 shl k do inc(k);
                for j:=0 to k do
                        if i and (1 shl j ) <>0 then write(g,j+1,' ');
                writeln(G);
                        end;
close(F);
close(G);
end.