Var a:array [1..16,1..16] of integer;
f,g:text;
    m,n,i,j,s,stemp:longint;
Begin
assign (f,'flip.in');
assign (g,'flip.out');
reset(f);
rewrite (g);
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;
For i:=1 to n do
    begin
    For j:=1 to m do
        Stemp:=stemp+a[i,j];
    if stemp<0
    then
        For j:=1 to m do
        a[i,j]:=a[i,j]+1;
    stemp:=0;
    end;
For i:=1 to n do
    For j:=1 to m do
    s:=s+a[i,j];
Writeln (g,s);
close(f);
close(g);
End.