open mydoc="thedoc.xml"
cd //filename/..
rm filename
foreach { glob("*") } {
  insert element filename into .
  insert text $__ into filename[last()]
}
save mydoc