clojure (pgraph_morphism): more refactoring