var f : text;
    n, m, i, j : byte;
    mat : array[1..16,1..16] of longint;
    x : array[1..16] of longint;
    s, max : longint;

procedure rez;
var s1 : longint;
begin
     s := 0;
     for i := 1 to n do begin
          s1 := 0;
          for j := 1 to m do
               s1 := s1 + mat[i,j] * x[j];
          if s1 > 0 then s := s + s1
          else s := s - s1;
     end;
     if s > max then max := s;
end;


procedure back(k : integer);
begin
     if k = m+ 1 then begin
          rez;
          exit;
     end;
     x[k] := 1;
     back(k + 1);
     x[k] := -1;
     back(k + 1);

end;


begin
     assign(f,'flip.in'); reset(f);
     readln(f,n,m);
     s := 0;
     for i := 1 to n do
         for j := 1 to m do
          read(f,mat[i,j]);

{     for j := 1 to m do begin
          s := 0;
         for i := 1 to n do
          s := s + mat[i,j];
         x[2,j] := s;
     end;
     min := x[1,1];
     for i := 1 to 2 do
         for j := 1 to m do
          if x[i,j] < min then begin
               min := x[i,j];
               l := i;
               c := j;
          end;
     writeln(min);}
     back(1);
     writeln(max);
     close(f);
end.