1 package body Tail_Call_P is
3 function Start_Side (Element : T) return Index is
15 function Segment (Element : T) return T is
23 procedure Really_Insert (Into : T; Element : T; Value : T) is
30 procedure Insert (Into : A; Element : T; Value : T) is
32 Really_Insert (Into (Start_Side (Element)), Segment (Element), Value);