Convert XDocument using XSLT

transform.fs

let transform (xslt : string) (document : XDocument) =
   let transformer = XslCompiledTransform ()
   transformer.Load (xslt)
   let builder = StringBuilder ()
   use writer = XmlWriter.Create (builder, transformer.OutputSettings)
   use reader = document.CreateReader ()
   transformer.Transform (reader, writer)
   builder.ToString () |> XDocument.Parse