$a = "k";
@b = split(//, "eyence");

chomp($s = <>);
if($s =~ /keyence$/){
	$r = "YES";
}elsif($s =~ /^k/){
	if($s =~ /^keyence/){
		$r = "YES";
	}else{
		for (1 .. 5){
			$a .= shift(@b);
			$str = join("", @b);
			if($s =~ /^$a.*$str$/){
				$r = "YES";
				last;
			}
		}
	}
}else{
	$r = "NO";
}

print "$r\n";
