(module example
  (library pthread)
  (main main))

(define (main argv)
   (let ((res #f)
	 (lock (make-mutex))
	 (cv (make-condition-variable)))
      (thread-join!
       (thread-start-joinable!
	(instantiate::pthread
	   (body (lambda ()
		    (mutex-lock! lock)
		    (thread-start!
		     (instantiate::pthread
			(body (lambda ()
				 (mutex-lock! lock)
				 (condition-variable-signal! cv)
				 (mutex-unlock! lock)))))
		    (condition-variable-wait! cv lock)
		    (set! res 23) 
		    (mutex-unlock! lock))))))
      res))