import Data.Char (isDigit)

readDigits :: IO [Int]
readDigits = map read <$> words <$> getLine

main :: IO ()
main = do
    line <- getLine
    let x = [read [c] | c<-line, isDigit c] :: [Int]
    putStrLn . show $ sum x