xquery version "1.0";
let $serial := doc('/db/course/who/data/S9E03_TheSeaDevils.xml')
let $characters := doc('/db/course/who/aux/metadata.xml')//character
let $speakers := $serial//speaker/@who
let $distinctspeakers := distinct-values($speakers)
return <table>
    <tr>
        <th>Speaker</th>
    <th>Total addresses</th>
    <th>Total references</th>
    <th>Addressee/referent</th>
    <th>Number of addresses</th>
    <th>Number of references</th>
    <th>Level</th>
    <th>Number of addresses</th>
    <th>Number of references</th>
    </tr>
    
    {
    for $distinctspeaker in $distinctspeakers
    let $addressees := $serial//line[speaker/@who = $distinctspeaker]/address/@who
    let $referents := $serial//line[speaker/@who = $distinctspeaker]/reference/@who
    let $addref := distinct-values($addressees|$referents)
    for $person in $addref
    let $addlevels := $serial//line[speaker/@who = $distinctspeaker]/address[@who=$person]/@level
    let $reflevels := $serial//line[speaker/@who = $distinctspeaker]/reference[@who=$person]/@level
    let $levels := distinct-values($addlevels|$reflevels)
    for $level in $levels
    order by $distinctspeaker, $person, $level
    return
        <tr>
            <td class="speaker">{$characters[@xml:id = $distinctspeaker]/name/string()}</td>
            <td class="addressee">{$characters[@xml:id = $person]/name/string()}</td>
            <td class="level">{$level}</td>
            <td class="levelAdd">{count($addlevels[. = $level])}</td>
            <td class="levelRef">{count($reflevels[. = $level])}</td>
        </tr>}
    </table>