(define (run-read-write args input-port read-output)
  (call-with-process-io
   args
   (lambda (from-sub to-sub)
     (copy-port input-port to-sub)
     (close-output-port to-sub)
     (read-output from-sub))))