clojure: further work on new morphism function