for $item in collection("sortieudpipe_BAO2_3214")//item
let $suivant:=$item/following-sibling::item[1]
let $patron:=
(
  if(( $item/a[4]="PRON") and ($suivant/a[4]="VERB")  )
then
	concat($item/a[2]/text()," ",$suivant/a[2]/text()) 
else
  "non" 
)
where $patron !="non"
group by $regroupement:=$patron
order by count($patron) descending
return string-join(($regroupement,count($patron)),"	")