anchor.diff:    }
     run (Array.create n (loop numOps) |> Job.conIgnore)
     let d = timer.Elapsed
  -  printf "%8d*%-2d %fs - %8.0f ops/s\n"
  +  printf "%8d*%-2d %8fs - %8.0f ops/s\n"
      numOps n d.TotalSeconds (float (numOps*n) / d.TotalSeconds)
   
   let runHopac numOps n =
  
positive.code:   |> Async.Parallel
    |> Async.RunSynchronously |> ignore
    let d = timer.Elapsed
    printf "%8d*%-2d %fs - %8.0f ops/s\n"
     numOps n d.TotalSeconds (float (numOps*n) / d.TotalSeconds)
  
  do for f in [runHopacTCS; runHopac; runAsyncTCS; runAsync] do
       for (numOps, n) in [(100, 1)
                           (1500000, 1)
                           (1000000, 2)
                           (1500000, 4)
                           (1000000, 8)] do
        f numOps n
        GC.Collect ()
        System.Threading.Thread.Sleep 100
  
negative.code:   }
    run (Array.create n (loop numOps) |> Job.conIgnore)
    let d = timer.Elapsed
    printf "%8d*%-2d %8fs - %8.0f ops/s\n"
     numOps n d.TotalSeconds (float (numOps*n) / d.TotalSeconds)
  
  let runAsyncTCS numOps n =
  