anchor.diff:    let get (c: Cell<'a>) : Async<'a> = c.PostAndAsyncReply Get
   
     let run nCells nJobs nUpdates =
  -    printf "Async:    "
  +    printf "Async:     "
       let timer = Stopwatch.StartNew ()
       let cells = Array.zeroCreate nCells
       let before = GC.GetTotalMemory true
  
positive.code:     >>-. {reqCh = reqCh}
  
    let run nCells nJobs nUpdates =
      printf "HopacDyn: "
      let timer = Stopwatch.StartNew ()
      let cells = Array.zeroCreate nCells
      let before = GC.GetTotalMemory true
  
negative.code:     Threading.Thread.Sleep 50
  
  let test doAs m n p =
    HopacMVar.run m n p ; tick ()
    HopacReq.run  m n p ; tick ()
    HopacDyn.run  m n p ; tick ()
    HopacAlt.run  m n p ; tick ()
    if doAs then AsyncCell.run m n p ; tick ()
  
  do tick ()
  