let
to_log exit_status =
Log
.s (to_string exit_status)