program submultimi;
{$APPTYPE CONSOLE}
var fin,fout:Text;
    i,j,n,m:integer;
    sol:Array [0..16] of byte;
{*-------------------------------------------*}
procedure afis(k:integer);
begin
   for i:=1 to k do
      write(fout,sol[i],' ');
   writeln(fout);
end;
{*-------------------------------------------*}
procedure back(k:integer);
var i:byte;
begin
   if k > n then
   begin
   end
   else
   begin
      sol[k]:=sol[k-1]+1;
      while sol[k] <=n do
      begin
         afis(k);
         back(k+1);
         inc(sol[k]);
      end;
   end;
end;
{*-------------------------------------------*}
begin
   assign(fin,'submultimi.in'); reset(fin); assign(fout,'submultimi.out'); rewrite(fout);

   readln(fin,n);
   back(1);

   close(fin); Close(fout);
end.