#lang racket
(define-values (child sout sin serr) (subprocess #f #f #f "./test.sh"))

(copy-port sout (current-output-port))