var a:array[1..16,1..16] of longint;
  i,n,m,j,k:integer;
  s,s1,k1:longint;
   begin
    assign(input,'flip.in');
    reset(input);
    assign(output,'flip.out');
    rewrite(output);

    readln(n,m);

    for i:=1 to n do
     for j:=1 to m do
     read(a[i,j]);

     for i:=1 to n do
     begin
     s:=0; s1:=0;
      for j:=1 to m do
      begin
       inc(s,a[i,j]); inc(s1,-1*a[i,j]);

      end;


      if s1>s then begin
                for k:=1 to n do
                a[i,k]:=-a[i,k];
                end;
      end;

      for j:=1 to m do
     begin
     s:=0; s1:=0;
      for i:=1 to n do
      begin
       inc(s,a[i,j]); inc(s1,-a[i,j]);
      end;

      if s1>s then begin
                for k:=1 to n do
                a[k,j]:=-a[k,j];
                end;
      end;

      for i:=1 to n do
       for j:=1 to m do
       inc(k1,a[i,j]);
       writeln(k1);


       close(input); close(output);
       end.