var a:array[1..1000,1..1000]of longint;
n,m,i,j:longint;
begin
  read(n,m);
    for i:=1 to n do
    begin
      for j:=1 to m do
      read(a[i,j]);
    end;


     for i:=1 to m do
     begin
       for j:=1 to n do
       write(a[j,i],' ');
       writeln;
     end;

end.