def collect_values_with_count_subtree(flag=nil)
		values = collect_values_with_count
		all_children_deep(flag).each do |c|
			c.collect_values_with_count.each do |k,v|
				values[k]+=v
			end
		end
		values
	end
def collect_values_with_count_subtree(flag=nil)
		values = collect_values_with_count
		all_children_deep(flag).each do |c|
			c.collect_values_with_count.each do |k,v|
				values[k]+=v
			end
		end
		values
	end
Deprecated, use values_map instead