for $item in collection("sortieudpipe-slurp_3476.xml")//item
let $frere:=$item/following-sibling::item[1]
where (($item/a[4]="ADJ") and (contains($frere/a[4], "NOUN")))
let $terme:=string-join (($item/a[2]," ",$frere/a[2]," "))
group by $regroupement:=$terme
order by count ($terme) descending
return string-join(($regroupement,count($terme))," ")