var f,g:text;
    a,s:integer;
begin
assign (f,'adunare.in');
reset(f);
assign (g,'adunare.out');
rewrite(g);
s:=0;
while not(eof(f)) do begin
       while not(eoln(f))  do begin
                     read(f,a);
                     s:=s+a;
                     end;
                     end;
       write(g,s);
close(f);close(g);
readln
end.