    ]
   )
  )
+
+;; to use:
+;; load-eval this file using dada/bin/clj
+;; run dada/bin/client
+
 
 ;;--------------------------------------------------------------------------------
 ;; utils

(do (time (doall (pmap (fn [whale] (insert whales-model whale)) some-whales))) nil)

;;--------------------------------------------------------------------------------
;; A Join
;;--------------------------------------------------------------------------------

;;(defrecord-metadata
(definterface-metadata
    join-metadata
    Join

     ^{:tag int}                     ocean-max-depth]
    (fn [^Integer lhs ^Integer rhs] (- (int lhs) (int rhs))))

(deftype
  JoinImpl
  [^int id ^int version ^Whale whale ^Ocean ocean]
