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