anchor.diff:  
   class function TUtils.readRawUntil(out_: TStringBuilder; s: String; start: integer; cend: TSysCharSet): integer;
   var
  -  position, n: integer;
  +  position: integer;
     ch: char;
   begin
     position := start;
  
positive.code: 
  { TConfiguration }
  
  constructor TConfiguration.CreateDefault;
  begin
    inherited Create;
    FallowSpacesInFencedDelimiters := true;
    Fdecorator := TDecorator.Create;
  end;
  
  constructor TConfiguration.CreateSafe;
  begin
    inherited Create;
    FallowSpacesInFencedDelimiters := true;
    Fdecorator := TDecorator.Create;
    FsafeMode := true;
  end;
  
  destructor TConfiguration.Destroy;
  
negative.code: 
  class function TUtils.escape(out_: TStringBuilder; ch: char; position: integer): integer;
  begin
    if CharInSet(ch, ['\', '[', ']', '(', ')', '{', '}', '#', '"', '''', '.', '>', '<', '*', '+', '-', '_', '!', '`', '^']) then
    begin
      out_.append(ch);
      result := position + 1;
  