-let () =
- let unbalanced = Tree_vanilla.empty in
- let unbalanced = Tree_vanilla.set unbalanced ~k:"k1" ~v:"v1" in
- let unbalanced = Tree_vanilla.set unbalanced ~k:"k2" ~v:"v2" in
- assert (Tree_vanilla.member unbalanced ~k:"k1");
- assert (Tree_vanilla.member unbalanced ~k:"k2");
- assert (Some "v1" = Tree_vanilla.get unbalanced ~k:"k1");
- assert (Some "v2" = Tree_vanilla.get unbalanced ~k:"k2");