program jocul_flip;
var f : text;
    a : array[1..16,1..16] of longint;
    n,m,i,j,pc,pl : integer;
    x,s,minc,minl : longint;
    col,lin : array[1..16] of 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 begin
            read(f,x); a[i,j] := x;
            s := s+x;
            col[j] := col[j]+x;
            lin[i] := lin[i]+x;
            end;
        readln(f);
        end;
    close(f);

    minc := col[1]; minl := lin[1]; pc := 1; pl := 1;

    for i := 2 to n do
        if minl > lin[i] then begin
            pl := i;
            minl := lin[i];
            end;

    for i := 2 to m do
        if minc > col[i] then begin
            pc := i;
            minc := col[i];
            end;

    for i := 1 to m do
        s := s+abs(a[pl,i]);

    for i := 1 to n do
        s := s+abs(a[i,pc]);

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