type vector=array[1..16,1..16] of longint;
var a,b:vector;
    m,n,i,j:byte;
    sum,sum1:longint;
    f:text;
    k:boolean;


begin
 assign(f,'flip.in');
 reset(f);
  readln(f,n,m);
  for i:=1 to n do for j:=1 to m do read(f,a[i,j]);
 close(f);
 b:=a;
 for i:=1 to n do for j:=1 to m do b[i,j]:=-b[i,j];
 for i:=1 to n do begin
                    sum:=0;
                    sum1:=0;
                    for j:=1 to m do begin sum:=sum+a[i,j];
                                           sum1:=sum1+b[i,j];
                                     end;
                    if sum<sum1 then for j:=1 to n do a[i,j]:=b[i,j];
                   end;
 for j:=1 to m do begin
                    sum:=0;
                    sum1:=0;
                    for i:=1 to n do begin
                                      sum:=sum+a[i,j];
                                      sum1:=sum+b[i,j];
                                     end;
                    if sum<sum1 then for i:=1 to n do a[i,j]:=b[i,j];
                    end;
sum:=0;
for i:=1 to n do for j:=1 to n do sum:=sum+a[i,j];
assign(f,'flip.out');
rewrite(f);
write(f,sum);
close(f);
end.