        (Date. 8 0 1)
        (Date. 9 0 1))))
 
-;;--------------------------------------------------------------------------------
-
-
-
-(execute (msum (mgroup my-whales [[:type]] mcount) :count))
-(execute (mcount my-whales))
-
-(execute (mgroup my-whales [[:type]
-			    [:time (fn [time] (list (or (.lower years time) time)))]]
+
+(execute (msum (mgroup whales [[:type]] mcount) :count))
+(execute (mcount whales))
+
+(execute (mgroup whales [[:type]
+			 [:time (fn [time] (list (or (.lower years time) time)))]]
 		 mcount))
 
 ;;----------------------------------------

;; create some whales...
(time
 (doall
  (let [batcher (Batcher. 999 1000 (list whales))
	#^Creator creator (.getCreator whale-metadata)
	max-length-x-100 (* max-length 100)
	max-weight-x-100 (* max-weight 100)]
    (pmap
     (fn [id]
	 (insert
	  whales ;; batcher
	  (.create
	   creator
	   (into-array

  ((second (monad)) (fn [model key])))

;;--------------------------------------------------------------------------------
;; some actual queries...

(def whales (mlift whales-model :id 0))	;TODO - col should be optional

(def #^NavigableSet years
     (TreeSet.
