R1 :
for $x in doc("baseTrameurFromRhapsodie.xml")//baselexicometrique/trame/items/item
let $nbLigne := "
"

return(
if ($x/a[7][contains(.,'OBJ')] ) 
then concat($x/f, " ")
else()
)


R2: 
for $x in doc("baseTrameurFromRhapsodie.xml")//baselexicometrique/trame/items/item
let $nbLigne := "
"

where $x/a[7][contains(text(), 'OBJ')]
let $num:=substring-before(substring-after($x/a[7], '('), ')')
let $gov:=doc("baseTrameurFromRhapsodie.xml")//baselexicometrique/trame/items/item[@pos = $num]/f/text()
return string-join(($gov, $x/f/text()), " -OBJ-> ")