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