main :: IO ()
main = do
    s <- getLine
    print $ foldr f 0 s

f :: Char -> Int -> Int
f c acc | c == '0'  = acc + 10
        | otherwise = ((read :: String -> Int) [c]) + acc