Clojure Fact Mult