anchor.diff:  
       open Util
       open System.Collections.Generic
  +
  +    let multiplicationCounter = ref 0
   
       let recognize (strToParse: string) 
                     (allRules: RulesHolder)  
  
positive.code:             Array2D.init aHight (bUpperBound - bl2) calcCell                    
                                      
          let completeP where from1 from2 = 
              let completeOnePair (nt1, nt2) =
                      addToP (nt1, nt2) (subMatrixMult tMatrix.[nt1] tMatrix.[nt2] from1 from2) where
              pMatrix |> Map.iter (fun nts _ -> completeOnePair nts)
  
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
      
  
  