exception Ambiguous_input
-type choose_uris_callback = id:string -> string list -> string list
+type choose_uris_callback = id:string -> UriManager.uri list -> UriManager.uri list
type choose_interp_callback = (string * string) list list -> int list
let mono_uris_callback ~id = raise Ambiguous_input
let disambiguate_term = Disambiguator.disambiguate_term
+let disambiguate_obj = Disambiguator.disambiguate_obj