program jocul_flip;
var f:text;
    a:array[1..16,1..16] of longint;
    i,j,n,m,s:integer;
    l,c:array[1..16] of longint;
    ok:boolean;

begin
assign(f,'flip.in');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);
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;
repeat
 ok:=true;
 for i:=1 to n do if -l[i]>l[i] then
  begin
   l[i]:=-l[i];
   ok:=false;
   for j:=1 to m do c[j]:=c[j]-2*a[i,j];
  end;
 for j:=1 to m do if -c[j]>c[j] then
  begin
   c[j]:=-c[j];
   ok:=false;
   for i:=1 to n do l[i]:=l[i]-2*a[i,j];
  end;
until ok;
s:=0;
for i:=1 to n do s:=s+l[i];
for j:=1 to m do s:=s+c[j];
s:=s div 2;
assign(f,'flip.out');rewrite(f);
writeln(f,s);
close(f);
end.