attempted .Add wrapper

wrap.fsx

[<Struct>]
type AddWrapper< 't, 'x  >(item: 't, adder: 'x -> unit) =
    member inline _.Delay(f) = f()

    // incorrect, but just doing it for now
    member inline _.Combine(left, right) = left

    member _.Yield(o) =
        adder o
        item

    member _.Zero () = item

    // causes the CE to return the collection, so it looks like part of the constructor
    member _.Run (item: 't) = item

let inline wrap< ^t, ^item when ^t : (member Add: ^item -> unit)> (t: ^t) = AddWrapper< 't, 'item >(t, fun x -> (^t : (member Add: ^item -> unit) (t, x)))

#r "nuget: System.CommandLine, 2.0.0-beta4.22272.1"

open System.CommandLine

let command = wrap<_, _> (Command("foo")) { // uncomment each of the below lines to see it work
    // Option<string>("blah")
    // Argument<int>("repeats")
    Command("bollocks")
}