1package Opt46 is 2 3 type Session_Type is limited private; 4 5 procedure Close (Session : Session_Type); 6 7private 8 9 type Session_Data; 10 type Session_Data_Access is access Session_Data; 11 12 type Session_Type is record 13 Data : Session_Data_Access; 14 end record; 15 16end Opt46; 17