anchor.diff:              elif mode = 1uy then
                   let arr = handles.Array
                   if res.Length < count then
  -                    res <- Array.zeroCreate 8
  +                    res <- Array.zeroCreate SetThreshold
                   for i in 0..count-1 do
                       if arr.[i].TryGetTarget(&v) then
                           res.[length] <- v 
  
positive.code:                     //printfn "%A tried to pull from level %A but has level %A" top.Id level top.Level
                      // all greater pulls would be from the future
                      raise <| LevelChangedException(this, this.Level, depth - 1)
                                                                       
                  res <- r
  
  
                  if not (isNull caller) then
                      if this.Reevaluate then
                          caller.Reevaluate <- true
  
negative.code:                 // pull at least one value on every path.
                  // This property must therefore be maintained for every
                  // path in the entire system.
                  res <- f(token.WithCaller this)
                  this.OutOfDate <- false
  
                  // if the object's level just got greater than or equal to
  