var p,s,i,j,n,p1,m:longint;f,g:text;a:array[1..16,1..16] of longint;ok:boolean;
begin
assign (f,'flip.in');
reset (f);
assign (g,'flip.out');
rewrite (g);
read (f,n,m);
for i:=1 to n do
  for j:=1 to m do
  read (f,a[i,j]);
p1:=0;
for i:=1 to n do
  for j:=1 to m do
  p1:=p1+a[i,j];
repeat
s:=0;
for i:=1 to n do
  begin
  for j:=1 to m do
  s:=s+a[i,j];
  if s<0 then begin
              a[i,j]:=a[i,j]*(-1);
              a[i,j-1]:=a[i,j-1]*(-1);
              a[i,j-1]:=a[i,j-1]*(-1);
              end;
  end;
s:=0;
for j:=1 to m do
  begin
  for i:=1 to n do
  s:=s+a[i,j];
  if s<0 then begin
              a[i,j]:=a[i,j]*(-1);
              a[i,j-1]:=a[i,j-1]*(-1);
              a[i,j-1]:=a[i,j-1]*(-1);
              end;
  end;
p:=0;
for i:=1 to n do
  for j:=1 to m do
  p:=p+a[i,j];
if p>=p1 then p1:=p
        else ok:=false;
until ok=false;
write (g,p1);
close (g);
end.