        (rnd reporters)
        (rnd types)
        (rnd oceans)
-       (float (/ (rand-int max-length-x-100) 100))
-       (float (/ (rand-int max-weight-x-100) 100)))))
+       (int (/ (rand-int max-length-x-100) 100))
+       (int (/ (rand-int max-weight-x-100) 100)))))
 
 
 ;; (def some-whales

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

     ^{:tag String}                  reporter
     ^{:tag clojure.lang.Keyword :immutable true} type
     ^{:tag String}                  ocean
     ^{:tag int}                     length
     ^{:tag int}                     weight]
    (fn [^Integer lhs ^Integer rhs] (- (int lhs) (int rhs))))

(def ^Model whales-model (model "Whales" whale-metadata))
