var a:array[1..100,1..100] of integer;
   i,j,n,m,s,s1, k,l:integer;
   f,g:text;
begin
  assign(g,'input');
  assign(f,'output');
  reset(g);
  readln(g,m,n);
  rewrite(f);

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

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

  write(f,s1);
  close(f);
  close(g);
end.