var n, code, sum:integer;
begin
code := 999;
repeat
if (n < 0) then
sum := sum + n;
readln(n);
until n = code;
writeln(sum);
end.