Scanf.scanf " %s" @@ fun s ->
  let n = String.length s in
  for i=0 to n-1 do
    for j=i to n-1 do
      let t = String.(sub s 0 i ^ sub s j (n-j)) in
      print_endline t;
      if t = "keyence" then (
        print_endline "YES"; exit 0)
    done
  done;
  print_endline "NO"