anchor.diff:  
       open Util
       open System.Collections.Generic
  +
  +    let multiplicationCounter = ref 0
   
       let recognize (strToParse: string) 
                     (allRules: RulesHolder)  
  
positive.code:                             completeT e  
  
          compute 0 (roundedSize + 1) |> ignore
  
          tMatrix.Item S
negative.code: 
          let stringSize = String.length strToParse
  
          let strSizeExponent = (System.Math.Log (double stringSize + 1.)) / (System.Math.Log 2.) |> System.Math.Ceiling |> int
          let roundedSize = (1 <<< strSizeExponent) - 1
      
  
  