let _var = "var",3
let _dotbody = ".body"
let _con = "con",3
+let _ind = "ind",3
let _xpointer = "#xpointer(1/"
let _con3 = "con"
let _var3 = "var"
let uri_is_con (uri, _) = has_suffix uri _con
+let uri_is_ind (uri, _) = has_suffix uri _ind
+
let bodyuri_of_uri (uri, _) =
if has_suffix uri _con then
Some (uri_of_string (uri ^ _dotbody))