-- [eichin:19960619.2301EDT] excercise 3.3

-- 1.

type Pointer is access Object'Class;
procedure Add_To_List(P: in Cell_Ptr; O: Pointer) is