let query_tree_list =
List.map (fun query -> compile_xpath query) queries
in
let mini_qtree_list =
List.map (fun qtree -> Query_tree.minimize_qtree qtree) query_tree_list
in
let query_tree_list =
List.map (fun query -> compile_xpath query) queries
in
let mini_qtree_list =
List.map (fun qtree -> Query_tree.minimize_qtree qtree) query_tree_list
in