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