let consecutive_recent_attempts t = let (+-+) = max in let open Latest in tried_to_start t +-+ tried_to_kill t +-+ tried_to_eval_condition t +-+ tried_to_reeval_condition t