Program gen_submultimi;
var n,i:byte;
    nr:longint;
    f,g:text;
begin
 assign(f,'submultimi.in');reset(f);
 assign(g,'submultimi.out');rewrite(g);
 read(f,n);
 For nr:=1 to 1 shl n-1 do {2^n-1 submt.}
     begin
     For i:=0 to n-1 do
         If (nr shr i) and 1=1 then write(g,i+1,' ');
     writeln(g);
     end;
 close(f);
 close(g);
end.