program prob4
    implicit none
    character(len=100) :: s
    integer :: i, n

    read(*,*) s

    n = len_trim(s)

    do i = 1, 6
        if(s(1:i)//s(n+i-6:n) == "keyence") then
            write(*,*) "YES"
            stop
        end if
    end do
    
    if(s(1:7) == "keyence") then
        write(*,*) "YES"
        stop
    end if
    
    if(s(n-6:n) == "keyence") then
        write(*,*) "YES"
        stop
    end if
    write(*,*) "NO"
    
    stop
contains
end program prob4