var n,m,i,j:byte;
    a:array[1..50,1..50] of longint;
    st:array[1..50] of integer;
    max:longint;
    f,g:text;

procedure back(k:byte);
var i,j,l:byte;
    sum,suml:longint;
begin
  if k=n+1 then
  begin
    sum:=0;
    for i:=1 to n do
    begin
      suml:=0;
      for j:=1 to m do
        suml:=suml+a[i,j]*st[j];
      sum:=sum+abs(suml);
    end;
    if sum>max then
      max:=sum;
  end
  else
  for l:=0 to 1 do
  begin
    st[k]:=-1+l*2;
    back(k+1);
  end;
end;

begin
  assign(f,'flip.in');
  reset(f);
  assign(g,'flip.out');
  rewrite(g);
  readln(f,n,m);
  for i:=1 to n do
  begin
    for j:=1 to m do
      read(f,a[i,j]);
    readln(f);
  end;
  back(1);
  write(g,max);
  close(f);
  close(g);
end.