#lang racket



(define (run-concurrent . thunks)
  (define threads (map thread thunks))
  (for-each thread-wait threads))