1package Lto17 is
2
3   type Chunk_List_Element;
4   type Chunk_List is access Chunk_List_Element;
5
6   type Arr is array (Natural range <>) of Integer;
7
8   type Chunk(Size : Natural) is record
9      Data  : Arr(1 .. Size);
10      Where : Natural;
11   end record;
12
13   type Chunk_List_Element(Size : Natural) is record
14      Chnk : Chunk(Size);
15      Link : Chunk_List;
16   end record;
17
18   function To_Chunk_List(C : Chunk) return Chunk_List;
19
20end Lto17;
21