type mat=array [1..100,1..100] of integer;
 var a:mat; f:text; n,m,i,j,s,d,max :integer; ok:boolean;
 procedure linie(i:integer;var s:integer; var d:integer; var ok:boolean);
   var j:integer;
     begin
     ok:=false;s:=0;d:=0;
      For j:= 1 to m do
          if a[i,j] < 0 then d:=d-a[i,j]
          else s:=s+a[i,j];

          if abs(d) >s then ok:=true;
              end;
   procedure coloana(j:integer; var s:integer; var d:integer; var ok:boolean);
    var i:integer;
     begin
     ok:=false;
          s:=0;d:=0;
      for i:=1 to n do
            if a[i,j]< 0 then d:=d-a[i,j]
            else s:=s+a[i,j];
          if abs(d)>s then ok:=true;

               end;
    begin
    read(f,n,m);  max:=0;
    assign(f,'in.txt');reset(f);
      for i:= 1 to n do
       for j:= 1 to m do
        read(f,a[i,j]);
         for i:= 1 to n do
         begin
             linie(i,s,d,ok);
             if ok then max:=max+ abs(d) else max:=max + s;
         end;
         for j:=1 to m do
         begin
         coloana(j,s,d,ok);
               if ok then max:=max+ abs(d) else max:=max + s;
            end;
              write(max);
            end.