var
  n,i,j,l:integer;
  a:array[1..100,1..100] of integer;
begin
  read(n);
  for i:=1 to n do
    for j:=1 to n do
      read(a[i,j]);
  i:=1;
  j:=1;
  for l:=1 to n do
    begin
      i:=l;
      j:=1;
      while i<>0 do
        begin
          write(a[i,j],' ');
          dec(i);
          inc(j);
        end;
    end;
  for l:=n + 2 to n + n do
    begin
      i:=n;
      j:=l - n;
      while j <= n do
        begin
          write(a[i,j],' ');
          dec(i);
          inc(j);
        end;
    end;
  readln;
  readln;
end.