(defn popo [] (println "popo"))
(defn wawa [] (println "wawa"))

(defn test [fn]
   (if (= fn popo) :a
                   (if (= fn wawa) :b)))

(defn test2 [fn]
        (case fn
          popo :a
          wawa :b))

(test popo)
(test2 popo)