for $c in doc("/Volumes/TOSHIBA/3208_sortieTT.txt.xml")//element
let $elt1:= $c/following-sibling::element[1]
let $adj:= $c/data[3]/text()
let $nom:= $elt1/data[3]/text()
where $c/data[1]='ADJ' and $elt1/data[1]='NOM' 
let $resultat:= concat($adj," ",$nom)
group by $i:=$resultat
order by count($resultat)
return concat(count($resultat)," ",$i)