var f,g:text;
    a:array[1..100,1..100] of longint;
    l,c:array[1..100] of longint;
    m,n,i,j,s,min:integer;
begin
 assign(f,'flip.in');reset(f);
 assign(g,'flip.out');rewrite(g);
 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;
 for i:=1 to n do
  begin
  l[i]:=0;
  for j:=1 to m do
  l[i]:=l[i]+a[i,j];
  end;
 for j:=1 to m do
  begin
  c[j]:=0;
  for i:=1 to n do
  c[j]:=c[j]+a[i,j];
  end;
 min:=l[1];
 for i:=2 to n do
  if l[i]<min then min:=l[i];
 for i:=1 to n do
  if l[i]=min then for j:=1 to m do a[i,j]:=a[i,j]*(-1);
 min:=c[1];
 for j:=2 to m do
  if c[j]<min then min:=c[j];
 for j:=1 to m do
  if c[j]=min then for i:=1 to n do a[i,j]:=a[i,j]*(-1);
 s:=0;
 for i:=1 to n do
  begin
  l[i]:=0;
  for j:=1 to m do
   l[i]:=l[i]+a[i,j];
  s:=s+l[i];
  end;
write(g,s);
close(f);close(g);
end.