TYPE
	char_set = SET OF CHAR;
	lower_case_set = SET OF ['a' .. 'z'];
	month = (JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG,
		SEP, OCT, NOV, DEC);
	month_set = SET OF month;


