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

begin
assign (f, 'submultimi.in'); reset (f);
assign (g, 'submultimi.out'); rewrite (g);
readln (f, n);
k:= 1;
while k > 0 do
  begin
  v[k]:=v[k]+1;
  if v[k] > n then k:= k-1
              else
    begin
    for i := 1 to k do write (g, v[i], ' ');
    writeln(g);
    k:=k+1;
    v[k]:=v[k-1];
    end;
  end;
close (f);
close (g);
end.