for $var in //corpus/item/descendant::element
where (($var/data[@type='type']="NOUN") and ($var/following::element[1]/data[@type='type']="ADJ"))
let $nom:=$var/data[@type='string']/text()
let $adj:=$var/following::element[1]/data[@type='string']/text()
return concat($nom," ",$adj)