program asda;
type indice=0..16;
submultime=array[indice] of indice;
var f,g:text;
c:submultime;
m,n:indice;
i:integer;
 procedure afis;
  var i:indice;
   begin
     for i:=1 to m do write(g,c[i],' ');
     writeln(g);
   end;
 procedure combinari(k:indice);
 var i:indice;
 begin
   if k-1=m then afis
   else for i:=c[k-1]+1 to n-m+k do begin
     c[k]:=i;
     combinari(k+1);
     end;
 end;
begin
assign(f,'submultimi.in');reset(f);
assign(g,'submultimi.out');rewrite(g);
read(f,n);
for i:=1 to n do begin
m:=i;
combinari(1);
end;
close(f);close(g);
end.