type
   days = (Mon,Tue,Wed,Thu,Fri,Sat,Sun);
   weekend = Sat..Sun;

begin
end.