anchor.diff:          Async.Start(task, ct)
           sm :> Series<DateTime, float>
   
  -    let quoteSources = 
  -        Array.init numQuoteSources (fun i -> let qs = makeQuoteSource()
  -                                             // make the 1st quotesource discrete, the rest continuous
  -                                             //if i = 0 then qs else 
  -                                             qs.Repeat()
  -                                             )
  +    let quoteSources = makeQuoteSources(numQuoteSources)
  +//        Array.init numQuoteSources (fun i -> let qs = makeQuoteSource()
  +//                                             // make the 1st quotesource discrete, the rest continuous
  +//                                             //if i = 0 then qs else 
  +//                                             qs.Repeat()
  +//                                             )
   
       let index : Series<DateTime, float> = 
           quoteSources.Zip(fun k vArr -> vArr |> Array.average)
  
positive.code:     let chunkOutputs = ref 0
      let totalInputs = ref 0
      let chunkInputs = ref 0
  
      let makeQuoteSource () : Series<DateTime, float> = // data is produced outside
          let mutable value = 1.0
  
negative.code:     
    [<Test>]
    member this.``Circular Calculations Work``() =
      let numQuoteSources = 500
  
      let cts = new CancellationTokenSource()
      let ct = cts.Token
  