program flipout;
type matrice=array[1..10,1..10] 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
read(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 begin s:=s+a[i,j];
                                           if s<0 then for k:=1 to n do a[k,j]:=a[k,j]*(-1);
                                     end;
                  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 begin s:=s+a[i,j];
                                           if s<0 then for l:=1 to m do a[i,l]:=a[i,l]*(-1)
                                     end;
                  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.