               (for [[k v] (System/getenv)]
                 [(keyword k) v]))))
 
+
 (defn upmap
   [fn coll & [delay]]
   (doall

                  false
                  (recur (drop 1 args) yield)))))

          'parallel
          (upmap #(evaluate % config)
            (-> fun-entry val))

          'upmap
          (apply upmap (evaluate (-> m first val) config))
                
 
          ;; Functions
          (let [yield (apply (resolve fun) (evaluate (-> m first val) config))]

                   (future (fn %)))
                coll))]
      @p)))


(defn bool?
