 ;;----------------------------------------
 
 (def narwhals-length
-     (dtransform 
+     (dmorph 
       (dfilter 
        whales
        "type=narwhal" 

  )

;; try to lose key-to-valua and vice-versa then define dpivot...
(defn dsplit [#^Model src-model #^Keyword key #^boolean mutable #^IFn value-to-keys #^IFn key-to-value #^IFn tgt-hook]
  (do-split
   src-model

;;----------------------------------------

(def longer-whales-weight
     (dmorph longer-whales "weight" :time :version :time :version :weight))

(def #^Model heavier-whales-length
     (dmorph heavier-whales "length" :time :version :time :version :length))

;;----------------------------------------
;; demonstrate transformation - a synthetic field - metric tons per metre
;;----------------------------------------

(dmorph
 whales
 "tonsPerMetre"
 :time
