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