(define (test-function)
  (let for ()
    (begin
      (display (thread-name (current-thread)))
      (newline)
      (thread-sleep! (random-integer 3))
      (for))))

(define t1 (make-thread test-function "t1"))
(define t2 (make-thread test-function "t2"))
(define t3 (make-thread test-function "t3"))
(thread-start! t1)
(thread-start! t2)
(thread-start! t3)

(test-function)