var f,g:text;
    s1,s,n,m,i,j,s2:integer;
    v:array[1..100,1..16] of integer;
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,v[i,j]);
         readln;
     end;
        for j:=1 to m do
     begin
          s:=0;
          s1:=0;
         for i:=1 to n do
             begin
                  s:=s+v[i,j]; write(s);
                  s1:=s1-v[i,j];write(s1);
             end;

         if s1>s then
            for i:=1 to n do
                v[i,j]:=-v[i,j];
     end;
     s2:=0;
     for i:=1 to n do
     begin
          s:=0;
          s1:=0;
         for j:=1 to m do
             begin
             s:=s+v[i,j]; write(s);
             s1:=s1-v[i,j]; write(s1);
             end;
         if s1>s then
              s2:=s2+s1
         else
             s2:=s2+s;
     end;
     write(g,s2);
     close(f);
     close(g);
readln;
end.