XML-PATTERN (:-> (:AND ...)) improvment