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

procedure tipar (k:integer);
var i:integer;
begin
 for i:=1 to k do
  write (g,x[i], ' ');
 writelN (G);
end;

procedure bkt;
var k:integer;
begin
 k:=1; x[k]:=0;
 while k>0 do
  if x[k]<n then
  begin
   x[k]:=x[k]+1;
   tipar (k);
   if k<n then
   begin
    k:=k+1; x[k]:=x[k-1];
   end;
  end
  else
   k:=k-1;
end;

begin
 assigN (f,'submultimi.in'); reset (f);
 assigN (g,'submultimi.out');rewrite (G);
 readln (f,n);
 bkt;
 close (f);
 close (G);
end.