1package Taft_Type2_Pkg is 2 3 type T is private; 4 5 function Open return T; 6 7private 8 9 type Buffer_T; 10 type T is access Buffer_T; 11 12end Taft_Type2_Pkg; 13