const fi='flip.in';
      fo='flip.out';
var
 a:array[1..16,1..16] of longint;
 sp,sf,min:longint;
 i,j,m,n,x,y:byte;
 f,g:text;
begin
 assign(f,fi);
 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);
 sf:=0;
 min:=maxlongint;
 for I:=1 to n do
  begin
   sp:=0;
   for j:=1 to m do
     sp:=sp+a[i,j];
   if sp<min
    then
     begin
      min:=sp;
      x:=i;
     end;
  end;
 min:=maxlongint;
 for J:=1 to m do
  begin
   sp:=0;
   for i:=1 to n do
     sp:=sp+a[i,j];
   if sp<min
    then
     begin
      min:=sp;
      y:=j;
     end;
  end;
 for j:=1 to m do
  a[x,j]:=a[x,j]*(-1);
 for I:=1 to n do
  a[i,y]:=a[i,y]*(-1);
 for I:=1 to n do
  for J:=1 to m do
   sf:=sf+a[i,j];
 assign(g,fo);
 rewrite(g);
 writeln(g,sf);
 close(g);
end.