program submultimi;
var f:text;
    i,m,j,n:integer;
begin
assign(f,'submultimi.in');reset(f);
readln(f,n);
close(f);
assign(f,'submultimi.out');rewrite(f);
m:=n;
for i:=1 to n do begin
  writeln(f,i);
  while i<=n do  begin
   i:=i+1;
  write(f,i,' ');
       end;
  while m+1-m<=i do
  write(f,m+1-m,' ');
  inc(m);
  end;
  close(f);
end.