Преобразовать xml в csv

xml-to-csv.xq

let $items := 
<items>
  <item>
    <offer>4271</offer>
    <param name="Короткое описание">Колготки женские TRENDY MELANGE 60, р.2, chocolate</param>
    <param name="Материал">полиамид 50%; полиэстер 38%; эластан 12%</param>
    <param name="Размер">2,3,4</param>
    <param name="Цвет">chocolate,grafit,grey,melanzana,verde</param>
    <param name="Плотность">60</param>
    <price>235</price>
  </item>
   <item>
    <offer>4271</offer>
    <param name="Короткое описание">Колготки женские TRENDY MELANGE 60, р.2, chocolate</param>
    <param name="Материал">полиамид 50%; полиэстер 38%; эластан 12%</param>
    <param name="Размер">2,3,4</param>
    <param name="Цвет">chocolate,grafit,grey,melanzana,verde</param>
    <param name="Плотность">60</param>
    <price>235</price>
  </item>
 </items>
let $csv := 
  element { "csv" } {
  element { "record"} {
    element { "offer" } { "offer" },
    element { "price" } { "price" },
    for $p in $items/item[1]/param
    count $c
    return
      element { "param-" || $c } { $p/@name/data() }
   },
  for $i in $items/item
  return 
    element {"record"} {
      element { "offer" } { $i/offer/text() },
      element { "price" } { $i/price/text() },
      for $p in $i/param
      count $c
      return 
        element { "param-" || $c } { $p/text() }
    }
  }
  
return 
  serialize( $csv, map{ "method" : "csv", 'csv': map { 'separator': 'tab' } } )