implicit none
integer :: i,n
character(16),parameter :: ans = 'CODEFESTIVAL2016'
character(16) :: str

read *,str
n = 0
do i = 1, 16
   if (ans(i:i) /= str(i:i)) then
      n = n + 1
   endif
enddo

print '(i0)',n
end