anchor.diff:  // ----------------------------------------------------------------------------------------------
   
   // ----------------------------------------------------------------------------------------------
  -type PerformanceData = string*int*int*int*int*int64
  +type PerformanceData = string*int*int*int*int*int64*uint64
  +
  +module InteropWithNative =
  +  [<DllImport("kernel32.dll")>]
  +  extern IntPtr GetCurrentThread ();
  +
  +  [<DllImport("kernel32.dll")>]
  +  extern bool QueryThreadCycleTime (IntPtr ThreadHandle, uint64 * CycleTime);
   
   let collectPerformanceData
     (category       : string                  )
  
positive.code: open System.Diagnostics
  open System.Globalization
  open System.IO
  open System.Text
  
  open MiniJson
  
negative.code: 
      sw.Start ()
  
      let mutable bct = 0UL
      let mutable ect = 0UL
      ignore <| InteropWithNative.QueryThreadCycleTime (ct, &&bct)
  
      for i = 1 to n do
        ignore <| a ()
  
      ignore <| InteropWithNative.QueryThreadCycleTime (ct, &&ect)
  
      sw.Stop ()
  
  