var f,g1:text;  
     i,j,g,n,m,h,s,max,k:longint;  
     a:array[0..17,0..17] of longint;  
     b,v:array[0..20] of longint;  
   
 procedure lsadf;  
 begin  
 for g:=0 to 1 shl m-1 do  
     begin  
     s:=0;  
     k:=g;  
     j:=0;  
     while k>0 do  
     begin  
     inc(j);  
     v[j]:=k mod 2;  
     k:=k div 2;  
     end;  
     for i:=1 to m do  
     begin  
     if v[i]=1 then  
     h:=-1  
     else h:=1;  
     for j:=1 to n do  
     b[j]:=b[j]+a[j,i]*h;  
     end;  
     for i:=1 to n do  
     begin  
     s:=s+abs(b[i]);  
     b[i]:=0;  
     end;  
     if s>max then  
     max:=s;  
     end;  
 end;  
   
 begin  
 assign(f,'flip.in');  
 reset(f);  
 assign(g1,'flip.out');  
 rewrite(g1);  
 read(f,n,m);  
 for i:=1 to n do  
     for j:=1 to m do  
         read(f,a[i,j]);  
 lsadf;  
 writeln(g1,max);  
 close(f);  
 close(g1);  
 end.