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