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