foreach_in_collection obj [get_selection ] {
	puts "[get_attr $obj ref_name ] [get_attr $obj full_name]"
}