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

					  (insert *metamodel* count-model)
					  (insert tgt-metamodel [count-model extra-pairs])
					  (connect src-model count-model))))]
		 [tgt-metamodel new-prefix extra-pairs])))])))

(defn split-key-value [key]


;; create some whales...

(def num-whales 100000)

(def some-whales
     (pmap (fn [id] (whale id)) (range num-whales)))

(def some-whales2
     (let [#^Creator creator (.getCreator whale-metadata)]
       (map
	#(.create creator (into-array Object %))
	(list 
	 [0 0 (Date. 0 1 1) "blue whale" "arctic" 100 100]
	 [1 0 (Date. 0 1 1) "blue whale" "indian" 200 100]
	 [2 0 (Date. 0 1 1) "gray whale" "arctic" 100 100]
	 [3 0 (Date. 0 1 1) "gray whale" "indian" 200 100]
	 [4 0 (Date. 1 1 1) "blue whale" "arctic" 100 100]
	 [5 0 (Date. 1 1 1) "blue whale" "indian" 200 100]
	 [6 0 (Date. 1 1 1) "gray whale" "arctic" 100 100]
	 [7 0 (Date. 1 1 1) "gray whale" "indian" 200 100]
	 ))
       ))

(time
 (doall
