main module set1
    use	TEXTIO

    declare
	fruit is set of [apple, orange, pear, peach, quava, cherry]
    enddeclare

    for lunch in fruit (orange, pear, quava)  do
	out_integer (TTY, integer (lunch))
	out_record (TTY)
    endfor
endmodule