{-# LANGUAGE OverloadedStrings #-}

import           Data.Char
import qualified Data.ByteString.Char8 as B
import           Control.Applicative

main :: IO ()
main = do
  s <- B.getLine
  putStrLn $ if solve s then "YES" else "NO"

solve :: B.ByteString -> Bool
solve = any ((==) "keyence") . (liftA2 (<>) <$> B.inits <*> B.tails)