import qualified Data.ByteString.Char8 as BS

readString = map BS.unpack . BS.words

getString = readString <$> BS.getLine

calc :: String -> String -> Bool -> Bool -> String
calc cs [] _ _ = "YES"
calc [] ks _ _ = "NO"
calc (c : cs) (k : ks) False False
  | c == k = calc cs ks False False
  | otherwise = calc cs (k : ks) True False
calc (c : cs) (k : ks) True False
  | c == k = calc cs ks True True
  | otherwise = calc cs (k : ks) True False
calc (c : cs) (k : ks) True True
  | c == k = calc cs ks True True
  | otherwise = "NO"

main = do
  [s] <- getString
  putStrLn $ calc s "keyence" False False
