1generic
2
3   type T is private;
4
5package Prot2_Pkg2 is
6
7   type Id is private;
8
9   procedure Create (B : out Id);
10   procedure Delete (B : in out Id);
11
12private
13
14   type Rec;
15   type Id is access Rec;
16
17end Prot2_Pkg2;
18