 	   Transformer$Transform
 	   VersionedModelView
 
+	   Update
 	   Reducer
 	   Reducer$Strategy
 	   ])

		 (reduce #(+ %1 (old-value %2)) 0 deletions))
		)
	(apply [currentValue delta] 
	       (println "apply: " currentValue  delta)
	       (+ currentValue delta))
	))


;; create 10,000 whales and insert them into model
(insert-n
 whales
 (let [num-whales 10000
       time (System/currentTimeMillis)
       #^Creator creator (.getCreator whale-metadata)
       max-length-x-100 (* max-length 100)
