anchor.diff:        dumper (if positive then "positive" else "negative")
         dumper testCase
   
  -      let time, cc0, cc1, cc2 , _ = timeIt iterations (fun _ -> parser testCase)
  -
  +      let time, ct, cc0, cc1, cc2 , _ = timeIt iterations (fun _ -> parser testCase)
         dumper <| sprintf "Iterations: %d, cc0: %d, cc1: %d, cc2: %d, time: %d ms" iterations cc0 cc1 cc2 time
  -      yield name, iterations, cc0, cc1, cc2, time
  +      yield name, iterations, cc0, cc1, cc2, time, ct
     |]
   // ----------------------------------------------------------------------------------------------
   
  
positive.code: 
      dumper <| sprintf "---==> PERFORMANCE COMPARISON (MINIJSON - %s) <==---" name
  
      for testCase0, iterations0, cc00, cc10, cc20, time0 in miniJsonData do
        match data |> Array.tryFind (fun (testCase1, _, _, _, _, _) -> testCase0 = testCase1) with
        | None -> ()
        | Some (_, iterations1, cc01, cc11, cc21, time1) ->
          let adjustedTime0   = float time0 / float iterations0
          let adjustedTime1   = float time1 / float iterations1
  
          let ratio           = adjustedTime1 / adjustedTime0
  
          dumper <| sprintf
            "TestCase: %s - cc0: %d,%d, cc1: %d,%d, cc2: %d,%d, time: %d,%d ms"
            testCase0
            cc00  cc01
            cc10  cc11
            cc20  cc21
            time0 time1
  
          check_lt (expectedRatio performanceRatio)   ratio         testCase0
          check_gt adjustedTime1                      adjustedTime0 testCase0
  
    let referenceData =
  
negative.code: open System.Diagnostics
  open System.Globalization
  open System.IO
  open System.Runtime.InteropServices
  open System.Text
  
  open MiniJson
  