anchor.diff:      [<JavaScript>]
       let Return (x: 'a) =
           {
  -            stream = Stream(Success x)
  +            stream = Stream(Result.Success x)
               view = id
           }
   
  
positive.code: open IntelliFactory.WebSharper
  
  type Result<'a> =
      | Success of 'a
      | Failure of string list
  
      [<JavaScript>]
      member this.isSuccess =
          match this with
          | Success _ -> true
          | Failure _ -> false
  
      [<JavaScript>]
      static member Ap(r1: Result<'a -> 'b>, r2: Result<'a>) =
          match r1, r2 with
          | Success f, Success x -> Success(f x)
          | Failure m, Success _
          | Success _, Failure m -> Failure m
          | Failure m1, Failure m2 -> Failure(m1 @ m2)
  
      [<JavaScript>]
      static member Join (r: Result<Result<'a>>) =
          match r with
          | Failure m
          | Success (Failure m) -> Failure m
          | Success (Success x) -> Success x
  
  [<Interface>]
  type Reader<'a> =
  
negative.code: [<Sealed>]
  type Submitter<'a> [<JavaScript>] (input: Reader<'a>) =
  
      let output = Stream({ Value = None; Errors = input.Latest.Errors })
  
      let writer =
          ConcreteWriter(fun unitIn ->
              output.Trigger {
                  Value = input.Latest.Value
                  Errors = input.Latest.Errors @ unitIn.Errors
              })
          :> Writer<unit>
  
      [<JavaScript>]
  