var a:array[1..16,1..16]of longint;
    n,m,x,y,i,j:byte; f:text; max,k:longint;
procedure init;
var i,j:byte;
begin
 assign(f,'flip.in.txt');
 reset(f);
 readln(f,n,m);
 for i:=1 to n do
  begin
   for j:=1 to m do read(f,a[i,j]);
   readln(f);
  end;
 close(f);
end;

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

function linie_coloana(x,y:byte):longint;
var i,j:byte; k:longint;
begin
 k:=0;
 for i:=1 to n do
  for j:=1 to m do
   if (i=x)or(j=y) then k:=k+a[i,j]*(-1);
 linie_coloana:=k;
end;

begin
 init;
 afis;
 max:=0; x:=0; y:=0;
 for i:=1 to n do
  for j:=1 to m do
   begin
    k:=linie_coloana(i,j);
    if (k>max) then begin max:=k; x:=i; y:=j; end;
   end;
 writeln(max,' ',x,' ',y);
 k:=max;
 for i:=1 to n do
  for j:=1 to m do
   if (i=x)or(j=y) then k:=k+0 else  k:=k+a[i,j];
 assign(f,'flip.out.txt');
 rewrite(f);
 writeln(f,k);
 close(f);
 readln;
end.