program p1;
var f,g:text;
    a:array[1..17,1..17] of longint;
    y:array[0..17] of real;
    x:array[0..17] of integer;
    i,n,m,j,max,s:longint;
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]);
     max:=-2147483647;

     while x[0]=0 do
           begin
                i:=n;
                while x[i]=1 do begin x[i]:=0;i:=i-1; end;
                x[i]:=1;
                s:=0;
                for i:=1 to n do
                    for j:=1 to m do
                        if x[j]=1 then y[j]:=y[j]-a[i,j]
                                  else y[j]:=y[j]+a[i,j];
                for i:=1 to n do
                    for j:=1 to m do
                        if y[j]<0 then s:=s-a[i,j]
                                  else s:=s+a[i,j];
                if max<s then max:=s;
                for i:=1 to m do
                    y[i]:=0;
           end;
     for i:=1 to n do
         for j:=1 to m do
             y[j]:=y[j]-a[i,j];
     for i:=1 to n do
                    for j:=1 to m do
                        if y[j]<0 then s:=s-a[i,j]
                                  else s:=s+a[i,j];
                if max<s then max:=s;
     writeln(g,max);
close(f);
close(g);
end.