var f,g:text;
    n:byte;
    x:array[1..16] of byte;

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

begin
 assign (f,'submultimi.in'); reset (f);
 assign (g,'submultimi.out'); rewrite (g);
 read (f,n);
 bkt;
 close (f); close (g);
end.