program name
    use,intrinsic :: iso_fortran_env
    implicit none
    integer(int32):: i, j, ans,rm
    character(7):: keyence = 'keyence'
    character(100):: s
    logical:: tvs

    read*, s
    j=1
    tvs=.false.
    ans=0
    
    do rm = 0, len_trim(s)
        do i=1,len_trim(s)-rm
            if (s(1:i) // s(i+rm:) == keyence) then
                print*, 'YES'
                stop
            end if
        end do
    end do

    print*, 'NO'

end program name