main :: IO ()
main = do
    s <- getLine :: IO [Char]
    let ans = solve s
    print ans

solve :: [Char] -> Int
solve s = solve_rec s 0
    where
        solve_rec :: [Char] -> Int -> Int
        solve_rec [] ct = ct
        solve_rec (c:s) ct = solve_rec s (ct + n)
            where
                t = read [c] :: Int
                n = if t == 0 then 10 else t