I hope Clojure is blessed.

someone-use-this.clj

(defn find-fn
  [inputs outputs]
  (doseq [x (ns-publics (the-ns `clojure.core))]
    (try
      (if (= outputs
	     (binding [*out* java.io.StringWriter]
	       (apply
		(if (-> (second x) meta :macro)
		  (macroexpand `(second x))
		  (second x))
		inputs)))
	(println (first x)))
	(catch Exception _)))))