import Data.Char

main = do
  s <- getLine
  let n = [x | x <- s, x `elem` "0123456789"]
  putStrLn . show $ sum $ map digitToInt $ '0':n