My solution to 4Clojure problem 60

problem60

(fn fun-times
  ([fun xs] (fun-times fun (first xs) (rest xs)))
  ([fun init xs] (lazy-seq
                  (if (seq xs)
                    (let [reduction (fun init (first xs))]
                      (cons init (fun-times fun reduction (rest xs))))
                    [init]
                    ))))