var t:array[1..17] of byte;
    n,k,p,i:byte;
begin
assign(input,'submultimi.in'); reset(input);
assign(output,'submultimi.out'); rewrite(output);
readln(n);
k:=1; t[1]:=0;
while k>0 do
 begin
  if t[k]<n then
   begin
    p:=1;
    inc(t[k])
   end else p:=0;
  if p>0 then
   begin
    for i:=1 to k do write(t[i],' ');
    writeln;
    if k<n then
     begin
      inc(k);
      t[k]:=t[k-1]
     end
   end else dec(k)
 end;
close(input);
close(output)
end.