let to_string = function
  | `Exited n ->   fmt "exited:%d" n
  | `Signaled n -> fmt "signaled:%d" n
  | `Stopped n ->  fmt "stopped:%d" n