"##### ältestes Bilder #####",
(: Welches ist das älteste Bild? :)
let $date1 := (for $date in //Production_date/production.date.start/text()
  order by $date ascending
  return $date)[1],
    $record := //record[Production_date/production.date.start/text() = $date1]
return $record/Title/title/text() || " (" || $date1 || ")",

"##### meiste Bilder #####",
(: Von wem sind die meisten Bilder der Sammlung? :)
(for $record in //record
group by $creator := $record/Production[1]/Creator/name[@lang = "de-DE"]/text()
let $count := count($record)
order by $count descending
return $creator || " mit " || $count || " Bildern")[1]