anchor.diff:          let chunkStyle =
               match tokenSymbol with
               | InactiveCode -> style.ExcludedCode
  -            | ComputationExpression name -> style.KeywordTypes
  +            | ComputationExpression _name -> style.KeywordTypes
               | Punctuation -> style.Punctuation
               | PunctuationBrackets -> style.PunctuationForBrackets
               | Keyword ts -> Keywords.getType style ts
  
positive.code:             | _ -> style.PlainText
   
          let seg = ColoredSegment(line.Offset + token.LeftColumn, token.RightColumn - token.LeftColumn + 1, chunkStyle.Name)
          LoggingService.LogInfo (sprintf """Segment: %s S:%i E:%i L:%i - "%s" """ seg.ColorStyleKey seg.Offset seg.EndOffset seg.Length (editor.GetTextBetween (seg.Offset, seg.EndOffset)) )
          seg
  
      override x.DocumentParsed () =
  
negative.code:             | _ -> None
          else None
  
  module internal Rules =
      let baseMode =
          let assembly = Reflection.Assembly.GetExecutingAssembly ()
  