main :: IO ()
main = print . solve =<< getLine

table :: [Int]
table = [1, 0, 0, 0, 1, 0, 1, 0, 2, 1]

solve :: String -> Int
solve s = min (t1 + t2 * 2 + 2) (t1 * 2 + t2 + 1)
    where
        t1 = length s
        t2 = sum . map ((table !!) . read . pure) $ s