fs-157-tps.fs

open System
open FSharp.Data

[<Literal>]
let url = @"https://en.wikipedia.org/wiki/Donald_Duck_filmography"

type DDFilms = HtmlProvider<url>

let printDuckFacts() =
    let data = DDFilms.GetSample()
    let lists = data.Lists

    let name = lists.``Disney home entertainment``.Name
    let disneyHomeEntertainmentFilms = lists.``Disney home entertainment``.Values

    printfn "%s\n%A" name disneyHomeEntertainmentFilms

[<EntryPoint>]
let main argv =
    printDuckFacts()
    0 // return an integer exit code