(def the-answer
  (fn [& fns]
    (fn [& args]
      (let [reversed-fns (reverse fns)]
        (reduce (fn [value f] (f value))
                (apply (first reversed-fns) args)
                (rest reversed-fns))))))