var f,g:Text;
    n,m,x,max,maxl,z,i,j:longint;
    s:real;
    a:array[1..16,1..16]of longint;
    l,c:array[1..16]of longint;
begin
assign(f,'flip.in');reset(f);
assign(g,'flip.out');rewrite(g);
readln(F,n,m);
for i:=1 to n do
    for j:=1 to m do
    read(f,a[i,j]);
for i:=1 to m do
    begin
    for j:=1 to n do
    c[i]:=c[i]+a[j,i];
    if (max>c[i])and(c[i]<0)then begin
                                 max:=c[i];
                                 x:=i;
                                 end;
    end;
for i:=1 to n do
    begin
    for j:=1 to m do
    l[i]:=l[i]+a[i,j];
    if (maxl>l[i])and(l[i]<0)then begin
                                 maxl:=l[i];
                                 z:=i;
                                 end;
    end;
c[x]:=c[x]*(-1);
l[z]:=l[z]*(-1);
for i:=1 to n do
    a[i,x]:=a[i,x]*(-1);
for i:=1 to m do
    a[z,i]:=a[z,i]*(-1);
for i:=1 to n do
    for j:=1 to m do
    s:=s+a[i,j];
writeln(g,s:0:0);
close(g);
end.