let $battleNames := distinct-values(for $battle in /Ships/Class/Ship/Battle
return $battle)
for $name in $battleNames
return <Battle name="{$name}">
{for $ship in /Ships/Class/Ship
where $ship/Battle = $name
return <Ship name ="{$ship/@name}"/>}

</Battle>