         segment)
       (update-segment [_ subs lcs]
         (static-node (subs segment lcs) children data))
+      (get-data [_]
+        data)
       (set-data [_ data]
         (static-node segment children data))
+      (get-chidren [_]
+        children)
       (add-child [_ key child]
         (static-node segment (assoc children key child) data))
       (insert-child [_ key path-spec child-data]


                  :else
                  (split node path-spec data lcs))))))

  (lookup [this path params])
  (get-segment [this])
  (update-segment [this subs lcs])
  (get-data [this])
  (set-data [this data])
  (get-chidren [this])
  (add-child [this key child])
  (insert-child [this key path-spec data]))

