Var a, sum:longint;
begin
 sum:=1;
 readln(a); sum:=a;
 while a<>0 do
begin
   readln(a);
 sum:=sum+a;
end;
writeln(sum);
end.