reading a huge xml as a sequence of XElement

streamingXml.fsx

#r "System.Xml.Linq"
open System.Xml
open System.Xml.Linq

let elements ns name uri =
    seq {
        use reader = XmlReader.Create(inputUri = uri)
        let onElement() = reader.LocalName = name && reader.NamespaceURI = ns
        while onElement() || reader.ReadToFollowing(name, ns) do
            yield XNode.ReadFrom(reader) :?> XElement }

let hugeFileUri, numberOfElements = "hugeFileUri.xml", 100
let ns, name = "tempuri.org", "item"

XElement(XName.Get("root", ns),
    [| 1..numberOfElements |] 
    |> Array.map (fun i -> XElement(
                            XName.Get(name, ns), 
                            XAttribute(XName.Get "id", i))))
    .Save(hugeFileUri)

for e in elements ns name hugeFileUri do
    printfn "%O" e