var a:array[1..16,1..16] of longint;
    row,col:array[1..16] of longint;
    i,j,n,m,s,max,k,l,c:longint;
    f,g:text;
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;
for i:=1 to (1 shl m)-1 do
  begin
    for l:=1 to n do
      row[l]:=0;
    s:=0;
    for j:=0 to m-1 do
      if (1 shl j) and i>0 then col[j+1]:=-1 else col[j+1]:=1;
    for l:=1 to n do
      for c:=1 to m do
        row[l]:=row[l]+a[l,c]*col[c];
    for l:=1 to n do
      if row[l]>0 then s:=s+row[l] else s:=s-row[l];
    if s>max then max:=s;
  end;
writeln(g,max);
close(f);close(g);
end.