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


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

let volume_pages = volume_page_build(visitor.contents()) |> List.map<VolumePage, IDomUnit> (fun x->x)
let story_pages = story_page_build(visitor.contents())  |> List.map<StoryPage, IDomUnit> (fun x->x)

let refers = point_peers_extract(volume_pages @ story_pages)
for it in refers do
    let (x,y)= it
    printfn $"{x.Value.name()}&{y.Value.name()}"