var f,g:text;
    a:array[1..16,1..16] of integer;
    b,c:array[1..16] of integer;
    s,i,j,n,m,min,min1,s1,r,d:integer;
 begin
  assign(f,'flip.in');reset(f);
  assign(g,'flip.out');rewrite(g);
  read(f,n,m);
  s:=0;
  min:=maxint;
  for i:=1 to n do begin
  s:=0;
  for j:=1 to m do begin
                   read(f,a[i,j]);
                   s:=s+a[i,j];
                   end;
  b[i]:=s;
  if s<min then begin min:=s; r:=i; end;
  end;
  min1:=maxint;
  for j:=1 to m do begin
  s1:=0;
  for i:=1 to n do s1:=s1+a[i,j];
  c[i]:=s1;
  if s1<min1 then begin min1:=s1; d:=j; end;
  end;
  s:=0;
  for j:=1 to m do a[r,j]:=(-1)*a[r,j];
  for i:=1 to n do a[i,d]:=(-1)*a[i,d];
  for i:=1 to n do
  for j:=1 to m do s:=s+a[i,j];
  write(g,s);
  close(f);
  close(g);
 end.