(define-syntax parallel-map
(syntax-rules ()
((_ env (l args body ...) lst)
(let ((l (eval `(lambda args body ...) (apply environment 'env))))
(map l lst)))))