open AstAccess.AstImport
open HtmlStruct.Content
open System.Xml

let doc = XmlDocument()
doc.Load("E:/storyline.xast")

let prog = Program.GenerateFrom(doc)

let entry = AstVisitEntry(prog)
let visitor = UnitGenerate(prog)
entry.visitWith(visitor) |> ignore

for it in visitor.contents() do
    printfn $"Name:{it.name()}"