actor-scene_list.xq

declare namespace tei="http://www.tei-c.org/ns/1.0";
 
<results>
{
  for $actor-list in //tei:stage/@who,
      $actor in $actor-list/tokenize(., ' ')
  group by $actor
  order by $actor
  return
    <actor> {
    attribute name { substring-after($actor, '#') },
    attribute total-speeches {count(//tei:sp/@who[. eq $actor])},
      for $actor in $actor-list   
      let $key := $actor/concat(ancestor::tei:div1/@n,'.',ancestor::tei:div2/@n)
      group by $key
      order by $key
      return
        <act_scene>{ attribute speech-count {count($actor/ancestor::tei:div2//tei:sp/@who[. = $actor-list])}, $key }</act_scene>
   }
    </actor>
}
</results>