Added the list-same-values-index procedure