import Data.Char (isDigit, digitToInt)
import qualified Data.ByteString.Lazy.Char8 as LC

main :: IO ()
main = print . LC.foldr f 0 . LC.filter isDigit =<< LC.getContents
    where f c x = digitToInt c + x