program main
	implicit none
    character(len=100)::s
    integer::le,i,j,t
    read(*,*)s
    le=len_trim(s)
    t=1
    if (le==7)then
    	if(s=="keyence")then
        	t=0
        end if
        
    else
    	do i=1,6
    		if(s(1:i)//s(le-(7-i)+1:le)=='keyence')then
        		t=0
            end if
        end do
        
        if (s(le-6:le)=='keyence')then
        	t=0
        end if
    end if
    
    if(t==0)then
    	write(*,*) 'YES'
    else
    	write(*,*)'NO'
    end if
    
    stop
end program main

            