(begin (print "begin " (current-milliseconds)) (thread-start! (lambda () (print (with-input-from-pipe "sleep 5 ; echo foo" read-string)))) (thread-yield!) (print "end " (current-milliseconds)))