unit u_indirect_extensionmethods3;
procedure p1(self: string); extensionmethod := exit;

end.