let string_of_process_status =
function
| Unix.WEXITED n ->
Printf.sprintf "Exited with code %d" n
| Unix.WSIGNALED n ->
Printf.sprintf "Killed by signal %d" n
| Unix.WSTOPPED n ->
Printf.sprintf "Stopped by signal %d" n