import Data.List

main :: IO ()
main = getLine >>= putStrLn . solve 

solve :: String -> String
solve = check "keyence"
    where
        check xxs@(x : xs) yys@(y : ys)
            | x == y = check xs ys
            | xxs `isSuffixOf` yys = "YES"
            | otherwise = "NO"
        check (_ : _) _ = "NO"
        check _ _ = "YES"