program submultimi;
var f,g:text;
    v:array [1..16] of byte;
    n,i:byte;

function contin (k:integer):boolean;
begin
contin:=true;
 if k=1 then
  contin:=true
 else
 if v[k-1]>=v[k] then
  contin:=false;
end;

procedure bkt (i:byte);
var k,j:byte;
begin
 k:=1; v[k]:=0;
 while k>0 do
  if v[k]<n then
  begin
   v[k]:=v[k]+1;
   if contin (k) then
    if k=i then
    begin
     for j:=1 to i do
      write (g,v[j], ' ');
     writeln (g);
    end
    else
    begin
     k:=k+1; v[k]:=0;
    end;
  end
  else
   k:=k-1;
end;

begin
 assign (f,'submultimi.in'); reset (f);
 assign (g,'submultimi.out'); rewrite (g);
 read (f,n);
 for i:=1 to n do
  bkt(i);
 close (f);
 close (g);
end.