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

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