with Ada.Text_IO; use Ada.Text_IO; procedure Enum is type DAY is (MON,TUE,WED,THU,FRI,SAT,SUN); subtype WORK_DAY is DAY range MON..FRI; subtype PLAY_DAY is DAY range SAT..SUN; type HEAVENLY_BODY is (MOON,SUN,EARTH,MARS); Big_Sphere : HEAVENLY_BODY; package DAY_IO is new Ada.Text_IO