program flip;
var f:text;x:array[1..16,1..16] of longint;m,n,i,j:integer;
max,e:int64;
begin
        assign(f,'flip.in');
        reset(f);
        readln(f,n,m);
        for i:=1 to n do begin
                max:=0;
                for j:=1 to m do begin
                        read(f,x[i,j]);
                        max:=max+x[i,j];
                        end;
                if max<0 then for j:=1 to m do x[i,j]:=x[i,j]*-1;
                readln(f);
                end;
        for j:=1 to m do begin
                max:=0;
                for i:=1 to n do max:=max+x[i,j];
                if max<0 then max:=max*-1;
                e:=e+max;
                end;
        close(f);
        assign(f,'flip.out');
        rewrite(f);
        write(f,e);
        close(f);
end.