clojure: more work on new morphism algorithm