type text_query = [ `Prefix | `Suffix | `Equals | `Contains ]
val compile : XPath.Ast.t -> Ata.t * (text_query * string) list option