program prob57
    implicit none
    character(16) :: s,t
    integer :: i, c
    read(*,*) s
    t = 'CODEFESTIVAL2016'
    c = 0
    do i = 1, 16
        if(s(i:i) /= t(i:i)) then
            c = c + 1
        end if
    end do
    write(*,*) c
    stop
contains
end program prob57