program p2;
  var fi,fo:text;
      m,n:byte;
      s,s1,s2,sf,i,j:integer;
      a:array[1..16,1..16] of integer;
begin
  assign(fi,'flip.in'); reset(fi);
  assign(fo,'flip.out'); rewrite(fo);
  read(fi,n,m);
  s:=0; s1:=0; s2:=0; sf:=0;
  for i:=1 to n do
     for j:=1 to m do
                read(fi,a[i,j]);
  close(fi);
  for i:=1 to n do begin
   for j:=1 to m do s1:=s1+a[i,j];
   a[i,j]:=-1*a[i,j];
   for j:=1 to m do s2:=s2+a[i,j];
   if s2>s1 then a[i,j]:=1*a[i,j]
            else a[i,j]:=-1*a[i,j];
                    end;

   for j:=1 to m do begin
   for i:=1 to n do s1:=s1+a[i,j];
   a[i,j]:=-1*a[i,j];
   for i:=1 to n do s2:=s2+a[i,j];
   if s2>s1 then a[i,j]:=1*a[i,j]
            else a[i,j]:=-1*a[i,j];
                    end;
   for i:=1 to n do
      for j:=1 to m do
         sf:=sf+a[i,j];
   writeln(fo,sf);
   close(fo);
end.