program nume;
var f,g:text;
    n,m,s1,s,i,j,max1,max2,q,p:longint;


    a:array[-1000000..1000000,-1000000..1000000] of longint;
begin
assign(f,'filip.in');
assign(g,'filip.out');
reset(f);
rewrite(g);
read(f,n);
read(f,m);
for i:=1 to n do
for j:=1 to m do
            read(f,a[i,j]);
S1:=0;
S:=0;
max1:=0;
max2:=0;
for j:=1 to n do
for i:=1 to m do

             begin
             q:=0;
             q:=q+a[i,j];
             if(q<0) then a[i,j]:=a[i,j*-1];
            s:=s+a[i,j];
            a[i,j]:=a[i,j+1];
             end;

for j:=1 to n do
for i:=1 to m do
              begin
              p:=0;
              p:=p+a[j,i];
              if(p<0) then a[j,i]:=a[j,i*-1];
              s:=s+a[j,i];
              a[i,j]:=a[i,j]+1;
              end;



close(f);
close(g);
end.