class TEST4 [G -> TEST2]

create
	make

feature

	make (a_setter: detachable PROCEDURE [ANY, TUPLE [like {G}.item, STRING]])
		do
		end
end