program suma;
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.