anchor.diff:          if stream.PreserveOrdering then
               stream.Stream() |> Stream.toArray
           else
  -            let arrayCollector = 
  +            let arrayParCollector = 
                   Internals.foldInlined
                       (fun (acc : ArrayCollector<'T>) value -> acc.Add(value); acc)
                       (fun left right -> left.AddRange(right); left) 
                       (fun () -> new ArrayCollector<'T>()) stream 
  -            arrayCollector.ToArray()
  +            arrayParCollector.ToArray()
   
       /// <summary>Creates an ResizeArray from the given parallel stream.</summary>
       /// <param name="stream">The input parallel stream.</param>
  
positive.code:             member self.SourceType = stream.SourceType
              member self.PreserveOrdering = stream.PreserveOrdering
              member self.Stream() = stream.Stream() |> Stream.skip n
              member self.Apply<'S> (collector : Collector<'T, 'S>) =
                  let collector = 
                      let count = ref 0
                      { new Collector<'T, 'S> with
                          member self.DegreeOfParallelism = collector.DegreeOfParallelism
                          member self.Iterator() = 
                              let { Func = iter } as iterator = collector.Iterator()
  
negative.code:                 member self.SourceType = stream.SourceType
                  member self.PreserveOrdering = stream.PreserveOrdering
                  member self.Stream () = stream.Stream() |> Stream.Internals.mapCont f 
                  member self.Apply<'S> (collector : ParCollector<'R, 'S>) =
                      let collector = 
                          { new ParCollector<'T, 'S> with
                              member self.DegreeOfParallelism = collector.DegreeOfParallelism
                              member self.Iterator() = 
                                  let { Func = iter } as iterator = collector.Iterator()
  