class TEST

create
	make

feature

	make
		do
			(create {A [TEST]}).f
		end

end