type choose_uris_callback = id:string -> UriManager.uri list -> UriManager.uri list
type choose_interp_callback = (string * string) list list -> int 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_interp_callback _ = raise Ambiguous_input
let _choose_uris_callback = ref mono_uris_callback
let mono_interp_callback _ = raise Ambiguous_input
let _choose_uris_callback = ref mono_uris_callback