main = do
    s <- getLine
    putStrLn $ if "keyence" `elem` cut (length s - 7) s
               then "YES" 
               else "NO"

cut :: Int -> String -> [String]
cut n xs = cut' n (length xs) xs
    where 
        cut' _ (-1) _ = []
        cut' n ns xs = (take ns xs ++ drop (ns + n) xs) : cut' n (ns - 1) xs
