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

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


(defn flog
  [level message]
  (log level message))


(defn bool?

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

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

          'upmap
          (apply upmap (evaluate (-> m first val) config))

          'log
          (let [args (-> fun-entry val)]
            (log (-> args first keyword)
                 (apply str
                   (map #(evaluate % config) (drop 1 args)))))

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