main module set5
    use TEXTIO

    declare
	day is [Monday, Tuesday, Wednesday, Thursday, Friday,
		Saturday, Sunday]
	weekend is set of day range saturday..sunday
	weekday is set of day range monday..friday
	classday is set of day initially day (monday, wednesday, friday)
	payday: set of day initially day (friday)
    enddeclare

	for this_day in day do
	    select this_day from
		case weekday:
		    out_string (TTY, "weekday")
		case weekend:
		    out_string (TTY, "weekend")
	    endselect

	    if this_day <= payday do
		    out_string (TTY, "payday")
	    endif
	out_record (TTY)
	endfor
endmodule