class BASE

feature -- Tests

	a: SYSTEM_STRING assign set_a
		
	set_a (a_a: like a)
		do
		end

end