let xpath (f : Ulexing.lexbuf -> Parser.token) (l: Ulexing.lexbuf) =
  Parser.xpath (fun _ -> f l) (Lexing.from_string "!!dummy!!")