let
max_failures =
try
Sys
.getenv
"MAX_FAILURES"
|> int_of_string
with
_
->
2_000_000