 ;; attributes...
 ;;----------------------------------------
 
-(def blue-whales-weight (do-transform "weight" blue-whales :time :version :weight))
-(insert *metamodel* blue-whales-weight)
-
-(def blue-whales-length (do-transform "length" blue-whales :time :version :length))
-(insert *metamodel* blue-whales-length)
+(def longer-whales-weight (do-transform "weight" longer-whales :time :version :weight))
+(insert *metamodel* longer-whales-weight)
+
+(def heavier-whales-length (do-transform "length" heavier-whales :time :version :length))
+(insert *metamodel* heavier-whales-length)
 
 ;;----------------------------------------
 ;; try a transformation on top of a filtration

	    "beaked whale"
	    ])

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

;; IDEAS

 whales
 (let [num-whales 1000
       time (System/currentTimeMillis)
       #^Creator creator (.getCreator whale-metadata)
       max-length-x-100 (* max-length 100)
       max-weight-x-100 (* max-weight 100)]
   (for [id (range time (+ time num-whales))]
     (.create
      creator
      (into-array
       Object
       [id
	0
	(rnd types)
	(/ (rand-int max-length-x-100) 100)
	(/ (rand-int max-weight-x-100) 100)])))))

;;----------------------------------------

