var a:array[1..200] of integer;
    i,n:integer;
    f,g:text;

procedure ins(pas,p:integer);
 var i:integer;
  begin
   a[pas]:=p;
   for i:=1 to pas do write(g,a[i],' ');
   writeln(g);
   for i:=p+1 to n do ins(pas+1,i);
  end;

procedure backtrack;
 var i:integer;
  begin
   for i:=1 to n do ins(1,i);
  end;

begin
 assign(f,'submultimi.in');reset(f);
 assign(g,'submultimi.out');rewrite(g);
 readln(f,n);
 backtrack;

 close(f);
 close(g);
end.