module String = struct
  include String
  let to_list s =
    let rec loop acc = function
      | 0 -> acc
      | n -> loop (s.[n - 1] :: acc) (n - 1) in
    loop [] (String.length s)
end

let () =
  read_line ()
  |> String.to_list
  |> List.map2 ( <> ) (String.to_list "CODEFESTIVAL2016")
  |> List.filter (fun x -> x)
  |> List.length
  |> Printf.printf "%d\n"