ExampleUnits.lap

type Unit1 = type Pointer;
type Unit2 = type Pointer;
  
procedure Unit1.Func; static;
begin
  WriteLn('Hello');
end;

procedure Unit2.Func; static;
begin
  WriteLn('World');
end;

begin
  Unit1.Func();
  Unit2.Func();
  with Unit1, Unit2 do
    Func();
end.