1 2 3 4 5 6 7
#lang racket (define (run-concurrent . thunks) (define threads (map thread thunks)) (for-each thread-wait threads))