class
	D

inherit
	B1
		select
			g1
		end

	B2
		select
			f
		end

	A

create
	make

feature

	make
		do
			f f1
		end

end