program W
implicit none
character(10**5)::S
integer::ANS=0
integer::i
read*,S
do i=1,len_trim(S)
    if(ichar("0")<=ichar(S(i:i)).and.ichar(S(i:i))<=ichar("9"))ANS=ANS+ichar(S(i:i))-ichar("0")
end do
print"(i0)",ANS
end program W