import Control.Monad
import Data.Char
import Control.Applicative

main :: IO ()
main = do
  s <-  getLine
  let s' = "CODEFESTIVAL2016"
  print $ sum $ zipWith (\c c' -> if c == c' then 0 else 1) s s'
