program incercare;
var x:array[1..100] of integer;
    a:array[1..20,1..20] of integer;
    n,m,i,j:integer;
    max:integer;
    f,g:text;
procedure suma;
var i,j,s,s2:integer;
begin
s:=0;
for i:=1 to n do
 begin
  s2:=0;
  for j:=1 to m do
  begin
    s2:=s2+a[i,j]*x[j];
  end;
  s:=s+abs(s2);
 end;
if (s>max) then max:=s;
end;
procedure back(p:integer);
begin
 if (p>m) then
   begin
    suma;
   end
   else
    begin
     x[p]:=-1;
     back(p+1);
     x[p]:=1;
     back(p+1);
    end;
end;
begin
max:=0;
assign(f,'flip.in');
assign(g,'flip.out');
rewrite(g);
reset(f);
readln(f,n,m);
for i:=1 to n do
  for j:=1 to m do
  read(f,a[i,j]);
back(1);
writeln(g,max);
close(f);
close(g);
end.