main :: IO ()
main = do
  po <- getLine
  print $ dist s po

s :: String
s = "CODEFESTIVAL2016"

dist :: String -> String -> Int
dist [] s2 = length s2
dist s1 [] = length s1
dist (a:s1) (b:s2) = (if a == b then 0 else 1) + dist s1 s2
