class
	A

feature -- Access

	item: like Current
		do
			Result := Current
		end

end