program dskhb;
uses crt;
var b,n,i,s,p,m:integer; a: array[1..100,1..100] of integer;
begin
read(m,n);for i:=1 to m do
for p:=1 to n do read(a[m,n]);
for p:=1 to m do
for i:=1 to m-1 do begin if
a[i,1]>a[i+1,1] then begin
s:=a[i+1,1];a[i+1,1]:=a[i,1];a[i,1]:=a[i+1,1];
for b:=2 to n do begin s:=a[i+1,b];a[i+1,b]:=a[i,b];a[i,b]:=s;
                 end;
                     end;
for i:=1 to n do begin
for p:=1 to m-1 do write(a[i,p]);writeln(a[i,m]);
                 end;


end.