program keyence2019B
    implicit none
    integer(8)::i,j,flg,S_len,cur,diff_count,diff_flg
    character(100)::S
    character(7)::mask="keyence"
    read(5,*)S
    S_len=len_trim(S)
    flg=1
    !1分割
    do i=1,S_len-6
        if(S(i:i+6)==mask)then
            flg=0
        end if
    end do

    !2分割
    do i=1,6
        if(S(1:i)==mask(1:i).and.S(S_len-6+i:S_len)==mask(i+1:7))then
            flg=0
            exit
        end if
    end do
    if(flg==0)print'(A)',"YES"
    if(flg==1)print'(A)',"NO"
end program keyence2019B