(require-extension utils)

(define (command/string command)
  (define-values (proc-output proc-input proc-id) (process command))
  (port? proc-output)
  (define retval (read-all proc-output))
  (close-input-port proc-output)
  (close-output-port proc-input)
  retval)

(define (command->string cmd)
  (receive
   (i o _)
   (process cmd)
   (close-output-port o)
   (let ((output (read-all i)))
     (close-input-port i)
     output)))