clojure: laid out skeleton for new morphism function