(:extraire le patron NC ADJ :)
for $b in doc("bao2_3242.txt")//item


let $frere := $b/following-sibling::item[1] where $b/a[4] = "NC" and $frere/a[4] = "ADJ"
return <patron>{$b/a[2]/text(), ' ', $frere/a[2]/text()}</patron>