(use utils posix)

(define (run cmd . args)
  (let-values (((in out pid) (process cmd args)))
    (let ((log (read-all in)))
      (process-wait pid)
      log)))
      
(print (run "sleep" "1"))