program signboard
  implicit none
  character(16) :: s, t
  integer :: i, m
  read(*,*) s
  t = "CODEFESTIVAL2016"
  m = 0
  do i = 1, 16
    if (s(i:i).ne.t(i:i)) m = m + 1
  end do
  write(*,'(i0)') m
  stop
end program signboard