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