; A small variation that crash

(use-modules (ice-9 threads))

(define (forever f)
  (f)
  (forever f))

; Spawn a thread that performs some writes
(make-thread forever (lambda ()
					   (display "write...\n")))

(forever (lambda () (display "new pipe...\n")))