 
 (? [(split :type)] all-whales)
 (? [(split :ocean nil [(ccount)])] all-whales)
-(? [(pivot :ocean oceans :count(*))(split :ocean nil [(ccount)])] all-whales)
-;; (? [(union "count/type/ocean")(split :type nil [(pivot :ocean oceans (keyword (count-value-key nil)))(ccount)(split :ocean )])] all-whales)+(? [(pivot :ocean oceans (keyword (count-value-key nil)))(ccount)(split :ocean)] all-whales)
+(? [(union "count/type/ocean")(split :type nil [(pivot :ocean oceans (keyword (count-value-key nil)))(ccount)(split :ocean )])] all-whales)
	 ))
       ))

(time (doall (pmap (fn [whale] (insert whales-model whale)) some-whales)))

(println "LOADED")



(def num-whales 1000)

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

(def some-whales2
     (let [#^Creator creator (.getCreator whale-metadata)]
