html formatting

#r "System.Xml.Linq"

open System.Xml.Linq

let htmlSummary primo secondo =
    let tag name content = XElement(XName.Get name, content)
    let em (text: string) = tag "em" [| text |]
    let li key value = tag "li" [| key; em value |]
    [|
        li "primo" primo
        li "secondo" secondo
    |]
    |> Array.map box
    |> tag "ul"
    |> sprintf "<p>today's menu:</p>%A"

htmlSummary
    "pasta & fagioli"
    "cinghiale mantecato"