type A = class
  static function X := 1;
  static procedure p;
end;

  static procedure A.p;
  begin
    var s := X;
    ArrGen(10,i->i);
  end;

begin
  
end.