anchor.diff:                              completeT e  
   
           compute 0 (roundedSize + 1) |> ignore
  -
  +        
  +        printfn "okhotin mult count: %i" !multiplicationCounter
  +        multiplicationCounter := 0
           tMatrix.Item S
positive.code: 
                  let headsFromTail (tail, tailProb) = 
                      if allRules.IsComplexTail tail then 
                          allRules.HeadByComplexTail tail |> List.map (fun (head, headProb) -> head, headProb * tailProb)
                      else 
                          []
  
  
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
      
  
  