generic -- type Data_Type (<>) is private; package Links is
type Data_Type (<>) is private;
type Data_Type_Access is access all Data_Type;
procedure Link_Cell
function Get_Link