(
	for i=1 to selection.count where isKindOf selection[i] GeometryClass do
	(
		node1 = selection[i]
		numfaces1 = (
			tri = snapshotAsMesh node1
			nf = tri.numfaces
			free tri
			nf
		)

		for j=i+1 to selection.count where isKindOf selection[j] GeometryClass and intersects node1 selection[j] do
		(
			numfaces2 = (
				tri = snapshotAsMesh selection[j]
				nf = tri.numfaces
				free tri
				nf
			)

			if numfaces1 < numfaces2 then
			(
				node1.name = ... -- todo set correct name
				selection[j].name = ... -- todo set correct name
			)
			else
			if numfaces1 > numfaces2 then
			(
				node1.name = ... -- todo set correct name
				selection[j].name = ... -- todo set correct name

			)
			else
			(
				format "% : %  identical face count\n" node1.name selection[j].name
			)

		)

	)
)