     output))
 
 ;; select whales into a new model...
-(def small (fetch model "time" "version" '(["time"] ["version"] ["type"])))
+(def small (fetch model "time" "version" '(["time"] ["version"] ["type"]) :model "Small"))
 (def smaller (fetch small "time" "version" '(["time"] ["version"]) :model "Smaller"))
-


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



(rnd types)


;; IDEAS

;; spotting - whale-id, time, coordinates, weight, length

  (insert *metamodel* model)
  model)

;; create 1000 whales and insert them into model - one by one
(insert-n
 model
 (let [time (System/currentTimeMillis)]
   (for [id (range time (+ time 10000))]
     (make-instance org.dada.demo.whales.Whale 
		    id
		    0
		    (rnd types)
		    (rand-int 33) ;; 32.9 metres
		    (rand-int 172))))) ;; 172 metric tons

;; syntactic sugar
(defn fetch [& args]
