var
n,i,j,b:integer;
a:array[1..100,1..100]of integer;

 begin
  while not eof  do
   begin
   readln(n);

   if n=1 then  begin readln(b);writeln(b); end
   else
    begin
     for i:=1 to n do
      for j:=1 to n do
         read(a[i,j]);
        for i:=1 to n do
         begin
         for j:=1 to n-1 do

           write(a[j,i],' ');

           writeln(a[j+1,i]);
          end;
    end;
   end;
 end.




/**************************************************************
	Problem: 2214
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/