program sample
	implicit none
    character(len=16) :: a
    character(len=16) :: b
    integer :: count
    
    b='CODEFESTIVAL2016'
    
    read(*,*) a
    count=0
    do i=1,16
    	if (a(i:i)==b(i:i)) then
        	count =count
        else
        	count =count+1
        end if
    end do
    stop
end program sample

