main :: IO ()
main = getLine >>= \s -> putStrLn $ show $ solve l s

solve :: String -> String -> Int
solve []     _  = 0
solve _      [] = 0
solve (x:xs) (y:ys)
  | x /= y    = 1 + solve xs ys
  | otherwise = solve xs ys

l = "CODEFESTIVAL2016"