clojure: morphism function returns pair including affine operator