import Control.Applicative
import Control.Monad
import Data.List

main :: IO ()
main = do
    xs <- getLine
    let as = "CODEFESTIVAL2016"
    let ans = sum $ zipWith (\a x -> if a == x then 0 else 1) as xs
    print ans