 	 ;; 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


(defn rnd [seq] (nth seq (rand-int (count seq))))

(if true
  (def *metamodel*
       (new org.dada.core.MetaModelImpl
	    "Cetacea"

(println "LOADED")

nil

;;--------------------------------------------------------------------------------
;; fix so that a split/pivot can handle undeclared keys
