(defun mip_MakeUniqueMembersOfListWithCount
       (lst / OutList head countelt)
  (while lst
    (setq head     (car lst)
          countelt  0 
          lst      (vl-remove-if
                     '(lambda (pt)
                        (if (equal pt head 1e- 6 )
                          (setq countelt ( 1 + countelt))
                          nil
                        )
                      )
                     lst
                   )
          OutList  (append OutList (list (cons head countelt)))
    )
  )
  OutList
)

  (defun mip_MakeUniqueMembersOfListWithCount
       (lst / OutList head countelt)
  (while ;применяем в цикле итерационный метод
    lst ; пока выполняется это условие, т.е. список lst не NULL (не пустой)
    (setq head     (car lst); берем первый элемент списка
          countelt  0 ; устанавливаем для него и равных ему счетчик в ноль
          lst      (vl-remove-if ; выбираем из списка элементы удовлетворяющие условию (элемент = первому из списка)
                     '(lambda (pt);безымянная функция LAMBDA
                        (if (equal pt head 1e- 6 ); функция EQUAL требует допуск (FUZZ FACTOR) для сравнения элементов
                          (setq countelt ( 1 + countelt)); если элементы равны увеличиваем счетчик для субсписка
                          nil; если не равны ничего не делаем
                        )
                      );_конец функции LAMBDA
                     lst
                   );_конец функции VL-REMOVE-IF
          OutList  (append OutList (list (cons head countelt))); формируем результирующий список (добавляем в него субсписок элемента)
    )
  )
  OutList; выводим результирующий список как результат действия функции
)