1.clj

(defn comp1
  ([]
    ;; No functions provided, return identity
    identity
    )
  ([f]
    ;; A single function provided, return itself
    f
    )
  ([& fs g]
    ;; Two functions provided
    (apply recur
           (conj (pop fs) (fn [& args] ((last fs) (apply g args))))
           )
    )
  )