var s,a,m,n,i,j,ss,k,l,c,min:longint;
    ma:array[1..16,1..16] of longint;
    f:text;
    begin
    assign(f,'flip.in');
    reset(f);
    readln(f,n,m);
    s:=0;
    min:=maxint;
    {parcurgere pentru linii}
    for i:=1 to n do
    begin
    ss:=0;
    for j:=1 to m do
    begin
    read(f,ma[i,j]);
    ss:=ss+ma[i,j];
    end;
    if ss<min then begin min:=ss;
                         l:=i;
                         end;
    readln(f);
    end;
    min:=maxint;
    {parcurgere pentru coloane}
    for j:=1 to m do
    begin
    ss:=0;
     for i:=1 to n do
      ss:=ss+ma[i,j];
    if min>ss then begin min:=ss;
                         c:=j;
                         end;
     end;
     {aplicarea jocului}
    for i:=1 to n do
    ma[i,c]:=ma[i,c]*-1;
    for j:=1 to m do
    ma[l,j]:=ma[l,j]*-1;
    {obtinerea sumei}
    for i:=1 to n do
    for j:=1 to m do
    s:=s+ma[i,j];
    close(f);
    assign(f,'flip.out');
    rewrite(f);
    write(f,s);
    close(f);
    end.