import Data.Char

sumNumbers :: String -> Int
sumNumbers [] = 0
sumNumbers (s:xs) = x + sumNumbers xs
    where
        x = if isNumber s then digitToInt s else 0

main = do
    str <- getLine
    print $ sumNumbers str