anchor.diff:  
               if calls.Add n.range then
                   Interlocked.Add(&activeSize, int64 size) |> ignore
  -                Interlocked.Increment(progress.ActiveNodeCount) |> ignore
  +                Interlocked.Increment(progress.activeNodeCount) |> ignore
   
   
           let deactivate (n : GeometryRef) =
  
positive.code: 
  
  
  
  
  type Progress =
      {   
          ActiveNodeCount     : int ref
          ExpectedNodeCount   : int ref
      }
  
  type PointCloudInfo =
      {
  
negative.code:                     return geometry,Unchecked.defaultof<_>
                  }
  
              let undoLoad (geo,ref) = () 
  
              let addToPool (ig,r) =
                  async {
  