import Data.Maybe

digitToInt :: Char -> Maybe Int
digitToInt c = lookup c (zip ['0'..'9'] [0..9])

main :: IO ()
main = do
  s <- getLine
  putStr . show . sum $ Data.Maybe.mapMaybe digitToInt s