program flip;
var f : text;
    t : array[1..16,1..16] of longint;
    n,m,i,j : byte;
    s,s0 : 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);

    s0 := 0;
    for i := 1 to n do
        for j := 1 to m do
            s0 := s0+t[i,j];

    for i := 1 to n do begin
        s := 0;
        for j := 1 to m do s := s+t[i,j];
        if s < 0 then begin s0 := s0-s; s0 := s0+s*(-1); end;
        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 begin s0 := s0-s; s0 := s0+s*(-1); end;
        end;

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