program flipout;
type matrice=array[1..17,1..17] of longint;
var a:matrice;
    n,m:integer;
    f,g:text;
procedure citire(var a:matrice;var n,m:integer);
var i,j:integer;
begin
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;
end;
procedure col(var a:matrice;var n,m:integer);
var j,i,k:integer;
    s:longint;
begin
j:=1;
while j<=m do begin s:=0;
                  for i:= 1 to n do s:=s+a[i,j];
                  if s<0 then for k:=1 to n do a[k,j]:=a[k,j]*(-1);

                  j:=j+1;
             end;
end;
procedure lin(var a:matrice;var n,m:integer);
var j,i,l:integer;
    s:longint;
begin
i:=1;
while i<=n do begin s:=0;
                  for j:=1 to m do s:=s+a[i,j];
                  if s<0 then for l:=1 to m do a[i,l]:=a[i,l]*(-1);

                  i:=i+1;
             end;
end;
function suma(a:matrice;n,m:integer):longint;
var i,j:integer;
    s:longint;
begin
s:=0;
for i:=1 to n do for j:=1 to m do s:=s+a[i,j];
suma:=s;
end;
begin
assign(f,'flip.in');reset(f);
assign(g,'flip.out');rewrite(g);
citire(a,n,m);
col(a,n,m);
lin(a,n,m);
write(g,suma(a,n,m));
close(g)
end.