var n,m,s1,s2,smax,i,j:longint;
    mat:array[1..16,1..16] of longint;
    f,g:text;
begin
assign (f,'flip.in');
assign (g,'flip.out');
reset (f);
rewrite (g);
read (f,n,m);
for i:=1 to n do
    for j:=1 to m do
        read (f,mat[i,j]);
smax:=0;
for i:=1 to m do
    begin
    s1:=0;
    s2:=0;
    for j:=1 to n do
        begin
         s1:=s1+mat[j,i];
         s2:=s2-mat[j,i];
        end;
    if s1>s2 then smax:=smax+s1
    else
    smax:=smax+s2;
    end;
writeln (g,smax);
close (f);
close (g);
end.