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