type matrice=array [1..16,1..16] of longint;
var a:matrice;
    m,n,i,j,smax,sln,slp:integer;
    f:text;
begin
 assign (f,'flip.in'); reset (f);
 read (f,n); readln (f,m);
 for i:=1 to n do begin
  for j:=1 to m do
   read (f,a[i,j]); readln (f); end;
 close (f);
 smax:=0;
 assign (f,'flip.out');rewrite (f);
 for j:=1 to m do begin
  sln:=0; slp:=0;
  for i:=1 to n do begin
   slp:=slp+a[i,j];
   sln:=sln+a[i,j]*(-1);
 end;
 if sln>slp then smax:=smax+sln
            else smax:=smax+slp;
  end;
 write (f,smax);
 close (F);
end.