anchor.diff:  ﻿namespace MBrace.Streams
  +
   #nowarn "0443"
   #nowarn "0444"
   
  
positive.code: 
              let! vc =
                  stream.Apply collectorf 
                      (fun array -> cloud { return! VectorCollector.New(array, maxCloudVectorPartitionSize()) }) 
                      (fun left right -> left.Merge(right))
              return! vc.ToCloudVector()
          }
  
negative.code:                                                   (fun keyValues -> cloud {
                                                          let dict = new Dictionary<int, VectorCollector<'Key * 'State>>() 
                                                          for (key, value) in keyValues do
                                                              let! values = VectorCollector.New(value, maxCloudVectorPartitionSize)
                                                              dict.[key] <- values
                                                          let values = dict |> Seq.map (fun keyValue -> (keyValue.Key, keyValue.Value))
                                                          return! VectorCollector.New(values, maxCloudVectorPartitionSize) }) combiner'
                  
                  let! kva = keyValueArray.ToEnumerable()
                  let dict = 
  