:: run-process/result ( DESC -- process )
  <process>
    DESC       >>command
    "/tmp/out" >>stdout
    "/tmp/err" >>stderr
  dup run-process wait-for-process >>status

  250 sleep

  "/tmp/out" utf8 file-contents [ string-lines ] [ f ] if* >>stdout
  "/tmp/err" utf8 file-contents [ string-lines ] [ f ] if* >>stderr ;