clojure (pgraph_morphism): refactored the morphism function