1 files changed, 5 insertions, 0 deletions
diff --git a/src/tree/splay.ml b/src/tree/splay.ml
index de7d441..dd1f65d 100644
--- a/src/tree/splay.ml
+++ b/src/tree/splay.ml
@@ -180,6 +180,11 @@ module Make (El : KEY) = struct
     _fold [] init !t
   end
 
+  let choose (T tree) = begin match (_subtree_minimum !tree) with
+  | Leaf -> raise Not_found
+  | Node (left, (key, value), right) -> C (key, value)
+  end
+
   let repr formatter (T t) = begin
 
     let repr_edge from formatter dest = begin