Matthew Heaney231 type Composite_Type is abstract new Equipment_Type with record Head : Equipment_Access; end record; function Do_Get_Price (Composite : Composite_Type) return Dollars_Type; function Do_Get_Power (Composite : Composite_Type) return Power_In_Watts_Type; procedure Free_Items (Composite : access Composite_Type Class); end Equipment;
{}