import Data.Bool
import Data.List

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

keyence :: String
keyence = "keyence"

isK :: String -> Bool
isK cs = or $ do
    (k0, k1) <- zip (inits keyence) (tails keyence)
    (s0, s1) <- zip (inits cs) (tails cs)
    return $ k0 `isInfixOf` s0 && k1 `isInfixOf` s1
