language for retrieval from (virtual) TM data stores

function test (map $m) as list return {
    forall [ (is-author-of)
              author : $a ] in $m
    return
       ($a/bn@uc)
    unique sort by $a/bn@sort
}