let to_log exit_status = Log.s (to_string exit_status)