program keyence
  implicit none
  character(len=100)::s
  character(len=7)::ke
  integer :: i, k
  read(*,*) s
  k=len(trim(s))
  ke = 'keyence'
  do i = 1, 7
     if ( s(1:i)==ke(1:i) .and. s(k+1-i:k)==ke(7+1-i:7)) then
        write(*,*) 'YES'
        stop
     end if
  end do
  write(*,*) 'NO'
  
  stop
end program keyence
     
