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

	enddeclare
	arm x_range_error

	for i := 5 downto -1 do
	    guard
		out_string(tty, "We think ")
		out_integer(tty,i)
		out_string(tty, " is")
		out_record(tty)

		shade := force color (i)


		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
	    catch
	    case x_range_error:
		tty_line("range_error")
	    endguard
	endfor
	
endmodule