anchor.diff:              while q.Count > 0 do
                   // dequeue the next element (having the minimal level)
                   let e = q.Dequeue(&currentLevel)
  -                current <- Some e
  +                current <- e
   
                   traverseCount := !traverseCount + 1
   
  
positive.code:                     x.Enqueue o
  
                  contained.Remove e |> ignore
                  current <- None
              
  
  
  
negative.code:                     | None -> ()
          )
  
      member x.CurrentAdapiveObject = 
          if isNull current then None
          else Some current
          
  
      /// <summary>
  