anchor.diff:      Threading.Thread.Sleep 250
   
   do let ns = [10; 100; 1000; 2500; 5000; 7500; 10000]
  -   cleanup (TimeSpan.FromSeconds 1.0)
      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
  
positive.code:     result
  
    let run n =
      printf "Sequential:   "
      let timer = Stopwatch.StartNew ()
      let ps = primes n
      let d = timer.Elapsed
      printf "%7d - %fs\n" ps.[ps.Length-1] d.TotalSeconds
      d
  
negative.code:     result
  
    let run n =
      printf "HopacCh:       "
      let timer = Stopwatch.StartNew ()
      let ps = run (primes n)
      let d = timer.Elapsed
  