program flip;
var f : text;
    t : array[1..16,1..16] of longint;
    lin,col : array[1..16] of boolean;
    n,m,i,j : byte;
    s : longint;

begin
    assign(f,'flip.in'); reset(f);
    readln(f,n,m);
    for i := 1 to n do begin
        for j := 1 to m do read(f,t[i,j]);
        readln(f);
        end;
    close(f);

    for i := 1 to n do begin
        s := 0;
        for j := 1 to m do s := s+t[i,j];
        if s < 0 then lin[i] := true;
        end;

    for i := 1 to m do begin
        s := 0;
        for j := 1 to n do s := s+t[j,i];
        if s < 0 then col[i] := true;
        end;

    s := 0;
    for i := 1 to n do
        for j := 1 to m do
            if lin[i] and col[j] then s := s+t[i,j]*(-2)
            else if lin[i] or col[j] then s := s+t[i,j]*(-1)
            else s := s+t[i,j];

    assign(f,'flip.out'); rewrite(f);
    write(f,s);
    close(f);
end.