package TRY is
  type DAY_OF_WEEK is (SU, MO, TU, WE, TH, FR, SA);
  constant CURRENT_DAY : DAY_OF_WEEK := TH;
end TRY;