HXQ-0.7: data/q2.xq

<result>{
let $a := distinct-values(doc("data/cs.xml")//gradstudent)
for $s in $a order by $s//firstname
return <st>{
    doc("data/cs.xml")//gradstudent[.//lastname = $s//lastname]//name,
    count(.//*)
    }</st>
}</result>