clojure: more progress toward new morphism function