program flip;
var x:array[1..100] of integer;
a:array[1..16,1..16] of longint;
n,m:integer;
s_max:int64;
 g:text;
procedure citire;
var i,j:byte;
f:text;
 begin
   assign(f,'flip.in');
   reset(f);
   readln(f,n,m);
   for i:=1 to n do
   for j:=1 to m do
   read(f,a[i,j]);
   close(f);
   s_max:=0;
  end;

procedure suma;
var i,j,k:integer;
s,s1:int64;
 begin
   s:=0;
   for i:=1 to n do
   begin
     s1:=0;
     for j:=1 to m do
     begin
       s1:=s1+a[i,j]*x[j];
     end;
     s:=s+abs(s1);
   end;
   if s>s_max then
      s_max:=s;
 end;

procedure mih(p:byte);
begin
  if p>m then
   suma
  else
   begin
     x[p]:=-1;
     mih(p+1);
     x[p]:=1;
     mih(p+1);
   end;
end;
begin
citire;
mih(1);
assign(g,'flip.out');
rewrite(g);
writeln(g,s_max);
close(g);
end.