import Data.Bool
import Data.List

main=getLine>>=putStrLn.bool"NO""YES".isK

isK :: String -> Bool
isK cs = go "keyence" cs
  where
    go [] _ = True
    go xxs@(x:xs) (y:ys)
        | x == y = go xs ys
        | otherwise = xxs `isInfixOf` ys