Get DuckDuckGo search result with F# using AngleSharp

SearchDuckDuckgo.fs

open System
open System.Web
open AngleSharp
open FSharp.Json

type SearchResult =
    {
        Title: string
        Link: string
        Snippet: string
    }

let search (searchQuery: string) =
    let url =
        let builder = new UriBuilder("https://html.duckduckgo.com/html")

        builder.Query <-
            let q = HttpUtility.ParseQueryString("")
            q.Add("q", searchQuery)
            q.Add("v", "1")
            q.Add("o", "json")
            q.Add("api", "/d.js")
            q.ToString()

        builder.ToString()

    let ctx = BrowsingContext.New(Configuration.Default.WithDefaultLoader())
    let doc = ctx.OpenAsync(url).GetAwaiter().GetResult()

    doc.QuerySelectorAll(".result")
    |> Seq.map (fun item ->
        {
            Title = item.QuerySelector(".result__title").TextContent.Trim()
            Link =
                let href =
                    item.QuerySelector("a.result__url").GetAttribute("href")

                let q = HttpUtility.ParseQueryString <| Uri(href).Query
                q.Get("uddg")

            Snippet = item.QuerySelector(".result__snippet").TextContent.Trim()
        }
    )

[<EntryPoint>]
let main argv =
    let result = search argv[0]
    result |> printfn "%A"
    0

AngleSharp便利！