class A

feature

	parenthesis alias "()" (other: ARRAY [BOOLEAN])
		do
		end

	this: like Current
		do
			Result := Current
		end

end