main :: IO ()
main = do
    s <- getLine
    let len = length s
    print . (flip (-) (len - 1)) . sum . map ((table !!) . read . pure) $ s

table :: [Int]
table = map (+ 3) [1, 0, 0, 0, 1, 0, 1, 0, 2, 1]