anchor.diff:          | Parser.tokenId.TOKEN_PREFIX_OP
           | Parser.tokenId.TOKEN_COLON_EQUALS
           | Parser.tokenId.TOKEN_BAR_BAR
  +        | Parser.tokenId.TOKEN_RARROW
               -> Some Punctuation
           | _ -> None
   
  
positive.code:         }
  
      let (|Keyword|_|) ts =
          if (ts.TokenInfo.ColorClass) = FSharpTokenColorKind.Keyword || 
             (ts.ExtraColorInfo.IsSome && (snd ts.ExtraColorInfo.Value) = FSharpTokenColorKind.Keyword)  then Some(Keyword)
          else None
  
      let (|Comment|_|) ts =
          if ts.TokenInfo.ColorClass = FSharpTokenColorKind.Comment then Some Comment
  
negative.code:             match tokenSymbol with
              | UnusedCode -> style.ExcludedCode
              | ComputationExpression
              | Keyword -> 
                  Option.ofNull (this.GetKeyword (token.TokenName.ToLowerInvariant ()))
                  |> Option.map (fun keywords -> style.GetChunkStyle keywords.Color)
                  |> Option.fill style.KeywordTypes
              | Comment -> style.CommentsSingleLine
              | StringLiteral -> style.String
              | NumberLiteral -> style.Number
  