let status_to_string = function | `Exited i -> sprintf "Exited with %d" i | `Exn e -> sprintf "Exception %s" (exn e) | `Signaled i -> sprintf "Signaled (%d)" i | `Stopped i -> sprintf "Stopped (%d)" i