package body Main_Package is
   procedure Foo (Self : Foo_Type; A : in Integer; B : out Integer) is null;
end Main_Package;
