   (^int id [this] id)
   (^int version [this] version)
   (^clojure.lang.Keyword type [this] (.type whale))
-  (^float length [this] (.length whale))
-  (^float weight [this] (.weight whale))
+  (^int length [this] (.length whale))
+  (^int weight [this] (.weight whale))
   (^String ocean [this] (.id ocean))
   (^int ocean-area [this] (.area ocean))
   (^int ocean-max-depth [this] (.max-depth ocean)))

 (:import
  [clojure.lang
   Keyword]
  [java.util
   Collection
   Date

       (rnd reporters)
       (rnd types)
       (rnd oceans)
       (int (/ (rand-int max-length-x-100) 100))
       (int (/ (rand-int max-weight-x-100) 100)))))


;; (def some-whales
