expanded class TEST1

feature

	person: STRING

	set_person (s: like person)
		do
			person := s
		end

end