 	 ;; direct
 	 (fn []
 	     (let [[#^Model src-metamodel prefix #^Collection extra-pairs] (direct-fn)
-		   dummy (println "PIVOT" extra-pairs)
+		   ;;dummy (println "PIVOT" extra-pairs)
 		   tgt-model (PivotModel. 
 			      (str prefix tgt-name)
 			      src-metadata


;; (?2 [(union)] all-whales)
;; (?2 [(ccount)] all-whales)
;; (?2 [(split :type)] all-whales)

;; (?2 [(ccount)(ccount)] all-whales)

;; each split adds an extra key/value downstream that we may need to unwrap upstream
(defn ccount [& [count-key]]
  (fn [[metadata-fn data-fn]]
      (let [[#^Metadata src-metadata metaprefix extra-keys] (metadata-fn)
	    ;;dummy (println "COUNT METADATA" metaprefix extra-keys)
	    extra-attributes (map (fn [key] (.getAttribute src-metadata key)) extra-keys)
	    tgt-metadata (count-reducer-metadata extra-keys count-key extra-attributes)]
	[ ;; metadata
