anchor.diff:                  streams
               |> Result.Map (List.rev >> Array.ofList)
               |> out.Trigger
  -
  -        do
  -            adder.stream.Subscribe(
  -                function Success v -> Success v |> addStream.Trigger
  -                        | Failure _ -> ()
  -            ) |> ignore
   
   
           override this.Subscribe f = out.Subscribe f
  
positive.code:             match out.Latest with
              | Failure _ -> ()
              | Success xs -> Array.iter add xs
              addStream.Subscribe(function
                  | Failure _ -> ()
                  | Success init -> add init)
              |> ignore
              c.Container
  
          member this.Add = addStream :> Writer<'a>
  
          member this.AddRender f = adder.view f
  
  
negative.code: 
          inherit Reader<'a[]>(out.Id)
  
          let streams = ResizeArray<Stream<'a>>()
  
          let update() =
  