(bind-func map_test (lambda () (let ((l1 (range 0 5))) (map (lambda (x) (thread_sleep 1 0) (* x x)) l1))))