eager.clj

(defn zip [& xss]
  (apply map (fn [& xs] xs) xss))

(defmacro eager [[f & xs]]
  (let [syms-and-xs (zip (repeatedly gensym) xs)]
    `(let [~@(apply concat syms-and-xs)]
       (~f ~@(map first syms-and-xs)))))