import Data.Char main :: IO () main = getLine >>= print . sum . map digitToInt . filter isDigit