let s = read_line ()
let n = String.length s
let _ = for i = 0 to n - 1 do let k = min (n - 1) @@ n + i - 8 in
  if String.(sub s 0 i ^ sub s (k + 1) (n - 1 - k)) = "keyence" then (print_endline "YES"; exit 0) done; print_endline "NO"