for $c in doc("/Volumes/TOSHIBA/3242_sortieTT.txt.xml")//element
let $elt1:= $c/following-sibling::element[1]
let $elt2:= $c/following-sibling::element[2]
let $elt3:= $c/following-sibling::element[3]
let $nom:= $c/data[3]/text()
let $prep1:= $elt1/data[3]/text()
let $nom:= $elt2/data[3]/text()
let $prep2:= $elt3/data[3]/text()
where $c/data[1]="NOM" and $elt1/data[1][contains(text(),"PRP")] and $elt2/data[1]="NOM" and $elt3/data[1][contains(text(),'PRP')]
let $resultat:= concat($nom," ",$prep1," ",$nom," ",$prep2)
group by $i:=$resultat
order by count($resultat)
return concat(count($resultat)," ",$i)