program number2;
var a:array[1..3,1..4] of longint;
max,min,buf,k,n,i,j,maxj,minj:longint;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
readln(k);
 for i:=1 to k do
    for j:=1 to n do read(a[i,j]);
 for i:=1 to k do begin
 max:=a[i,1];
 min:=a[i,1];
 maxj:=1;
 minj:=1;
    for j:=1 to n do begin
    if a[i,j]>max then maxj:=j
                  else if a[i,j]<min then minj:=j;
    end;
 if (maxj=n)and(minj=1) then
                            begin
                            buf:=a[i,1];
                            a[i,1]:=a[i,n];
                            a[i,n]:=buf;
                            end;
 buf:=a[i,1];
 a[i,1]:=a[i,maxj];
 a[i,maxj]:=buf;
 buf:=a[i,n];
 a[i,n]:=a[i,minj];
 a[i,minj]:=buf;
 end;
 for i:=1 to k do begin
    for j:=1 to n do write(a[i,j],' ');
    writeln;
 end;
end.