2 type I_Smiley is interface;
3 procedure Set_Mood (Obj : out I_Smiley) is abstract;
5 type Smiley (Max : Positive) is abstract new I_Smiley with record
9 type Regular_Smiley is new Smiley (3) with null record;
11 procedure Set_Mood (Obj : out Regular_Smiley);