 (do (time (doall (pmap (fn [whale] (insert whales-model whale)) some-whales))) nil)
 
 ;;--------------------------------------------------------------------------------
-;; A Join
-;;--------------------------------------------------------------------------------
-
-;;(defrecord-metadata
+;; A Join - by reference
+;;--------------------------------------------------------------------------------
+
 (definterface-metadata
     join-metadata
     Join

   ]
  )
 )

;;--------------------------------------------------------------------------------
;; utils

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

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