import Data.Char

main = do
  cs <- getLine
  print $ compute cs

compute cs = sum $ map digitToInt $ filter isDigit cs