type AddAgent() =
    let x = new MessageStream<int>()
    let y = new MessageStream<int>()

    do Event<_>.sequence x.Message y.Message
        |> Event.add (fun (m, n) -> printfn "AddAgent: %d" (m + n))

    member a.X = x
    member a.Y = y