anchor.diff:              lock d (fun () ->
                   resTime <- resTime + ( d |> Mod.force )
                   count <- count + 1
  -                let cb = dirty d
  -                callbacks.[d] <- cb
  -                d.MarkingCallbacks.Add cb |> ignore
               )
           sw.Stop()
           count, sw.Elapsed, resTime
  
positive.code:         let dirtyResoruces = 
              lock l (fun () ->
                  
  
                  let dirty = set |> Seq.toArray
  
                  set.Clear()
                  dirty
              )
          sw.Restart()
          let mutable count = 0
  
negative.code: 
                      d.UpdateCPU()
                      d.UpdateGPU()
              )
          sw.Stop()
          count,counts,sw.Elapsed
  