getNum :: Integer -> Integer
getNum = foldr f 0 . show
    where f c | c `elem` "069" = succ
              | c == '8' = succ . succ
              | otherwise = id
getNum :: Integer -> Integer
getNum = foldr f 0 . show
    where f c | c `elem` "069" = succ
              | c == '8' = succ . succ
              | otherwise = id
getNum = foldr f 0 . show
    where f c | c `elem` "069" = succ
              | c == '8' = succ . succ
              | otherwise = id