indexing
	description: "Objects that ..."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	D

feature
	selected_action: PROCEDURE [ANY, TUPLE]

	init is
		do
			selected_action := agent do 
				io.new_line
 			end
		end


end