can anyone have tamino xml server execute this code on a file with size 100M and tell me how much time does it take, and tell me the pc configuration

declare
function local:pathOfNode($node) {

string-join($node/ancestor-or-self::*/local-name(),
‘/’) };
let $j:= .

let $paths := for $n in $j/// return
local:pathOfNode($n)
for $p in distinct-values($paths)

let $papa:= replace($p,'/[^/]$‘,’')
let $leafs :=$j//text()[normalize-space()]
[string-join(…/ancestor::/local-name(), ‘/’) eq
$p ]

return

{string($p)}
{let $c := count($paths[.=$papa])
return
string( round( count($paths[.=$p]) div
(if
($c=0) then 1 else $c)

• 100 ) )}
  {for $val in distinct-values($leafs) return
  }