main module sel
	use textio
	%set use_routine_names = true
	declare 
		color is [red, green, blue, black]
		shade : static color initially green
	enddeclare

	for i := 5 downto -1 do

		shade := force color (i)
		out_string(tty, "We think ")
		out_integer(tty,i)
		out_string(tty, " is")
		out_record(tty)

		select shade from
		case red:
			tty_line("red")
		case green:
			tty_line("green")
		case blue:
			tty_line("blue")
		case black:
			tty_line("black")
		default:
			tty_line("default")
		endselect

	endfor

endmodule