import Data.Bool
import Data.List

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

keyence :: String
keyence = "keyence"

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