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