var f:text;
    n,i,k,j:integer;
Begin
assign(f,'submultimi.in');reset(f);
readln(f,n);
close(f);
assign(f,'submultimi.out');rewrite(f);
for i:=1 to n do
writeln(f,i);
for j:=1 to n-1 do Begin
i:=j;
 while i<=n do Begin
  write(f,i,' ');
  inc(i);End;
 writeln(f);
 End;
 k:=2;
for j:=1 to n-1 do Begin
i:=1;
 while i<=n do Begin
 if i<>k then write(f,i,' ');
 inc(i);
 End;
 inc(k);
 writeln(f);End;
close(f);
End.