(receive (in out pid err)
    (process* "cat" '("/proc/cpuinfo"))
  (let ((result (read-all in)))
    (process-wait pid)
    (close-input-port in)
    (close-input-port err)
    (close-output-port out)
    result))

;; $ csi -s process.scm

;; Error: (process-wait) waiting for child process failed - No child processes: 32217

;;         Call history:

;;         <syntax>          (##core#let ((result (read-all in))) (process-wait pid) (close-input-port in) (close-input-port err)...
;;         <syntax>          (##core#begin (process-wait pid) (close-input-port in) (close-input-port err) (close-output-port out...
;;         <syntax>          (process-wait pid)
;;         <syntax>          (close-input-port in)
;;         <syntax>          (##core#begin (close-input-port err) (close-output-port out) result)
;;         <syntax>          (close-input-port err)
;;         <syntax>          (close-output-port out)
;;         <syntax>          (##core#begin result)
;;         <syntax>          (read-all in)
;;         <eval>    (##sys#call-with-values (##core#lambda () (process* "cat" (quote ("/proc/cpuinfo")))) (##core#lambda......
;;         <eval>    (process* "cat" (quote ("/proc/cpuinfo")))
;;         <eval>    (read-all in)
;;         <eval>    (process-wait pid)
;;         <eval>    (close-input-port in)
;;         <eval>    (close-input-port err)
;;         <eval>    (close-output-port out)       <--