Extract a sequence of forest ids local to a given host

gistfile1.xquery

xquery version "1.0-ml";

declare namespace fs="http://marklogic.com/xdmp/status/forest";
declare variable $DATABASE as xs:string := "YOUR-DATABASE-HERE";

declare function local:get-host-forest-ids() as xs:unsignedLong+ {
  for $f in xdmp:database-forests(xdmp:database($DATABASE))
  where xdmp:forest-status($f)/fs:host-id eq xdmp:host()
  return
  $f
}; 
  
local:get-host-forest-ids()