program p1;
uses crt;
var t:array[1..16,1..16] of longint;
    i,j,m,n,q:integer;
    sum,sum1:longint;
    f,g:text;
procedure calcul;
begin
for i:=1 to m do
begin
sum:=0;
sum1:=0;
for j:=1 to n do
sum:=sum+t[i,j];
if j=n then for q:=1 to n do
            sum1:=sum1+t[i,q]*(-1);

            if sum1>sum then for q:=1 to n do t[i,q]:=t[i,q]*(-1);
            end;
for i:=1 to n do
begin
sum:=0;
sum1:=0;
for j:=1 to m do
sum:=sum+t[j,i];
if j=m then for q:=1 to m do
            sum1:=sum1+t[q,i]*(-1);

            if sum1>sum then for q:=1 to m do t[q,i]:=t[q,i]*(-1);
            end;

            sum:=0;
for i:=1 to m do
for j:=1 to n do
sum:=sum+t[i,j];

            end;
procedure calcul1;
BEGIN
for i:=1 to n do
begin
sum:=0;
sum1:=0;
for j:=1 to m do
sum:=sum+t[j,i];
if j=m then for q:=1 to m do
            sum1:=sum1+t[q,i]*(-1);

            if sum1>sum then for q:=1 to m do t[q,i]:=t[q,i]*(-1);
            end;

            for i:=1 to m do
begin
sum:=0;
sum1:=0;
for j:=1 to n do
sum:=sum+t[i,j];
if j=n then for q:=1 to n do
            sum1:=sum1+t[i,q]*(-1);

            if sum1>sum then for q:=1 to n do t[i,q]:=t[i,q]*(-1);
            end;

            sum1:=0;
for i:=1 to m do
for j:=1 to n do
sum1:=sum1+t[i,j];

            end;

begin
assign(f,'flip.in');
reset(f);
readln(f,m,n);
for i:=1 to m do
 for j:=1 to n do
 readln(f,t[i,j]);
assign(g,'flip.out');
rewrite(g);
calcul1;
if sum>=sum1 then
writeln(g,sum) else writeln(g,sum1);
close(f);
close(g);
end.