Program Submultimile;
var i,j,k,n,m:integer;
    fi,fo:text;
begin
assign(fi,'submultimi.in');
 assign(fo,'submultimi.out');
reset(fi);
 rewrite(fo);
  readln(fi,n);
for i:=1 to n do begin
           k:=i+1;
           writeln(fo,i);
           m:=i+1;
  if i<n then
         repeat
           write(fo,i,' ');
            for j:=m to k do
             write(fo,j,' ');
           writeln(fo);
           inc(k);
           if k>n then begin
                        inc(m);
                        k:=m;
                        end;
           until m>n;
           end;
close(fo);
end.