var a:array[1..16,1..16] of longint;
    v:array[1..16] of 0..1;
    m,n,i,j,s,smax,st:longint;
    f,g:text;
    k:boolean;
begin
assign(f,'flip.in');assign(g,'flip.out');
reset(f);rewrite(g);  
readln(f,n,m);
for i:=1 to n do
    begin
    for j:=1 to m do
        read(f,a[i,j]);
    readln(f);
    end;
smax:=-maxlongint;
repeat
      st:=0;
      for i:=1 to n do
          begin
          s:=0;
          for j:=1 to m do
              if v[j]=0 then
                 s:=s+a[i,j]
              else
                  s:=s-a[i,j];
          st:=st+abs(s);
          end;
      if st>smax then
         smax:=st;
      i:=n;
      while v[i]=1 do
            i:=i-1;
      v[i]:=1;
      for j:=i+1 to m do
          v[j]:=0;
      k:=true;
      for i:=1 to m do
          if v[i]=0 then  
             begin  
             k:=false;  
             break;  
             end;  
until k=true;  
write(g,smax);  
close(f);close(g);  
end.