anchor.diff:      result
   
     let run n =
  -    printf "HopacCh:      "
  +    printf "HopacCh:       "
       let timer = Stopwatch.StartNew ()
       let ps = run (primes n)
       let d = timer.Elapsed
  
positive.code:   }
  
    let run n =
      printf "Async:        "
      use cancelSource = new System.Threading.CancellationTokenSource ()
      let timer = Stopwatch.StartNew ()
      let ps = Async.RunSynchronously (primes n, -1, cancelSource.Token)
  
negative.code:     Threading.Thread.Sleep 250
  
  do let ns = [10; 100; 1000; 2500; 5000; 7500; 10000]
     for n in ns do
       Sequential.run n |> cleanup
     for n in ns do
       HopacCh.run n |> cleanup
     for n in ns do
       HopacPromise.run n |> cleanup
     for n in ns do
       Async.run n |> cleanup
  