type status = [ | `Timeout of Core_extended.Std.Time.Span.t | 
| `Exited of int | 
| `Signaled of Async.Signal.t | 
 ]type result = Core_extended.Shell.Process.result = {command : t; | 
status : status; | 
stdout : string; | 
stderr : string; | 
}exception Failed of resultval status_to_string : status ‑> stringval format_failed : result ‑> string