uses crt;
var n,i,j,max,m,t:longint; a:array[1..1000,1..1000]of longint; d:text;
begin
clrscr;
assign(d,'input.pas');reset(d);
readln(d,m,n);
for i:=1 to m do
begin
for j:=1 to n do read(d,a[i,j]);
readln(d);
end;
Max:=m;
if max<n then max:=n;
close(d);
assign(d,'output.pas');rewrite(d);
for i:=1 to max do
for j:=i to max do
begin
t:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=t;
end;
for i:=1 to n do
begin
for j:=1 to m do write(d,a[i,j]:5);
writeln(d);
end;
close(d);
end.
