import Data.List

countDiff :: String -> String -> Int
countDiff s t 
  | s == "" || t == "" = 0
  | head s == head t = countDiff (tail s) (tail t)
  | otherwise = 1 + countDiff (tail s) (tail t)

main = do
  s <- getLine
  putStrLn $ show $ countDiff s "CODEFESTIVAL2016"
