program keyence
  implicit none
  character(len=100)::s
  character(len=7)::ke='keyence'
  integer :: i, k
  read(*,*) s
  s=trim(s)
  k=len_trim(s)

  do i = 1, 6
     if ( s(1:i)==ke(1:i) .and. s(k+i-6:k)==ke(i+1:7)) then
        write(*,*) 'YES'
        stop
     end if
  end do

  if ( s(1:7) == ke .or. s(k-6:k) == ke ) then
     write(*,*) 'YES'
     stop
  end if

  write(*,*) 'NO'
  
  stop
end program keyence
     
