program flip;
var t:array[1..20,1..20]of longint;
n,i,j,m:longint; max:int64;
procedure schimbalinie(i:integer);
var  j:integer;
begin
for j:=1 to n do
t[i,j]:=t[i,j]*(-1);
end;
procedure suma();
var i,j:longint; sum,p:int64;
begin sum:=0;
for i:=1 to m do
begin
p:=0;
for j:=1 to n do
p:=p+t[j,i];
if p<0 then p:=(-1)*p;
sum:=sum+p;
end;
if sum<0 then sum:=-sum;
if max<sum then max:=sum;
end;
procedure back(x:integer);
begin
if x=n+1 then suma else
begin
schimbalinie(x);
back(x+1);
schimbalinie(x);
back(x+1);
end;
end;
begin
assign(input,'flip.in');reset(input);
assign(output,'flip.out');rewrite(output);
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
read(t[i,j]);  readln;
end;
max:=-10000000000000000;
back(1);
writeln(max);
close(input);close(output);
end.