anchor.diff:  
   function TExprFunctionCollector.GetFunctions: TArray<Expr.NaryFunc>;
   begin
  -  result := FFunctions.Values;
  +  result := FFunctions.ToArray();
   end;
   
   procedure TExprFunctionCollector.Visit(const Node: IUnaryOpNode);
  
positive.code:     begin
        if i > 1 then
          s := s + ', ';
        s := s + DataType + ' _' + IntToStr(i);
      end;
      s := s + ')';
      lines.Add(s);
  
negative.code: 
    TExprFunctionCollector = class(TInterfacedObject, IExprFunctionCollector, IExprNodeVisitor)
    private
      FFunctions: IList<Expr.NaryFunc>;
      FKnownFunctions: IDictionary<string, integer>;
    public
      constructor Create;
      destructor Destroy; override;
  