(defn pcomp [& fns]
  (apply comp (map #(if (coll? %) (apply partial %) %) fns)))