(bind-func pmap_test (lambda () (let ((l1 (range 0 5))) (pmap (lambda (x) (thread_sleep 1 0) (* x x)) l1))))