program submultimi;
var f,g:text;
    x:array[1..1000] of longint;
    n,m,i,nr,d:longint;
procedure tipar(k:integer);
var i:longint;
  begin
    for i:=1 to k do
      write(g,x[i],' ');
    writeln(g);
  end;
procedure bkt;
var k:longint;
  begin
    k:=1;
    x[k]:=0;
    while k>0 do
      if x[k]<n then
                begin
                  x[k]:=x[k]+1;
                  tipar(k);
                  k:=k+1;
                  x[k]:=x[k-1];
                end
                else
                k:=k-1;
  end;
begin
  assign(f,'submultimi.in');
  assign(g,'submultimi.out');
  reset(f);
  rewrite(g);
  readln(f,n);
  bkt;
  close(f);
  close(g);
end.