procedure p1;
begin
  var o: object;
  var p: procedure := procedure -> begin
    (new object[](o)).Sort;
  end;
end;

begin 
end.