language for retrieval from (virtual) TM data stores

forall [ (is-author-of)
         author : $a ] in $m
return
    ($a/bn@uc)
unique sort by $a/bn@sort

wrapping into function, returning XML

function authors ($m as map) as xml return
<authors>{
   forall [ (is-author-of)
            author : $a ] in $m
   return
       <author id="$a">$a/bn@uc<author>
   unique sort by $a/bn@sort
}<authors>