(
names = #()
uniqueNamedNodes = #()
for o in objects where findItem names (n = tolower o.name) == 0 do (append names n; append uniqueNamedNodes o)
select uniqueNamedNodes
max select invert
if queryBox "delete duplicates?" do delete selection
)