var f,g:text;
    a,a1:array[1..16,1..16] of longint;
    i,j,n,m:byte;
    s,ss,smax:longint;
    ii,jj,n2,m2,nn,mm:word;
begin
 assign(f,'flip.in');
 assign(g,'flip.out');
 reset(f);
 rewrite(g);
 read (f,n,m);
 ss:=0;
 for i:=1 to n do begin
  for j:=1 to m do begin
   read (f,a[i,j]);
   ss:=ss+a[i,j];
   end;
   readln(f);
 end;
 smax:=0;
 n2:=1;
 m2:=1;
 for i:=1 to n do n2:=n2*2;
 for j:=1 to m do m2:=m2*2;
 for ii:=0 to n2-1 do
  for jj:=0 to m2-1 do begin
   a1:=a;
   s:=ss;
   nn:=ii;
   mm:=jj;
   for i:=1 to n do begin
    if nn mod 2=0 then for j:=1 to m do s:=s-2*a[i,j];
    nn:=nn div 2;
   end;
   for j:=1 to m do begin
    if mm mod 2=0 then for i:=1 to n do s:=s-2*a[i,j];
    mm:=mm div 2;
   end;
   if s>smax then smax:=s;
  end;
 write(g,smax);
 close(f);
 close(g);
end.