main :: IO ()
main = do
  s <- getLine
  let
    l = length s - 7
    t = "keyence"
    (tx, sx) = test ("keyence", s)
  test (0, tx, drop l sx)

test :: (String, String) -> (String, String)
test lxy@(x : xs, y : ys) = if x == y then test (xs, ys) else lxy
test lxy = lxy
