import Control.Applicative ((<$>))

main :: IO ()
main = do
  solve <$> getLine >>= print

solve :: String -> Int
solve s = min (2 * n + bg) (2 * bg + n)
  where f c | c `elem` "0469" = 1
            | c == '8' = 2
            | otherwise = 0
        n = length s
        bg = (sum . map f) s + 1