(defun calculate-level-sums (lst)
  "Вычисляет суммы чисел на каждом уровне вложенности списка lst.
   Возвращает список пар (уровень сумма), отсортированный по уровню."
  (prepare-result (calculate-level-sums-helper lst 1 '())))
 
(defun calculate-level-sums-helper (lst level acc)
  "Рекурсивная функция, которая проходит по списку lst на заданном уровне level,
   накапливая суммы чисел в аккумуляторе acc. Аккумулятор acc - это список пар (уровень сумма)."
  (cond
    ((null lst) acc) ; Базовый случай: если список пуст, возвращаем аккумулятор
    (t (let ((head (car lst))  ; Берем первый элемент списка
             (tail (cdr lst))) ; Берем остаток списка
         (multiple-value-bind (new-acc remaining-tail)  ; Обрабатываем текущий элемент
           (process-item head level acc) ; Функция process-item определяет, что делать с элементом
           (calculate-level-sums-helper tail level new-acc)))))) ; Рекурсивно вызываем себя для остатка списка
 
(defun process-item (item level acc)
  "Обрабатывает один элемент item на заданном уровне level.
   Если элемент - число, обновляет аккумулятор.
   Если элемент - список, рекурсивно вызывает calculate-level-sums-helper для этого списка."
  (cond
    ((numberp item) ; Если элемент - число
     (values (update-level-sum acc level item) nil)) ; Обновляем сумму для уровня и возвращаем новый аккумулятор
    ((listp item) ; Если элемент - список
     (values (calculate-level-sums-helper item (1+ level) acc) nil)) ; Рекурсивно вызываем себя для списка, увеличив уровень
    (t (values acc nil)))) ; Если элемент - не число и не список (например, символ), просто игнорируем его
 
(defun update-level-sum (acc level value)
  "Обновляет аккумулятор acc суммой для заданного уровня level, добавляя value.
   Если уровень уже есть в аккумуляторе, добавляет value к существующей сумме.
   Иначе, добавляет новую пару (уровень value) в аккумулятор."
  (let ((existing (assoc level acc))) ; Ищем существующую запись для уровня
    (if existing ; Если уровень уже есть в аккумуляторе
        (let ((new-acc (remove existing acc :test #'equal))) ; Удаляем старую запись
          (cons (list level (+ value (cadr existing))) new-acc)) ; Добавляем обновленную запись с новой суммой
        (cons (list level value) acc)))) ; Иначе, добавляем новую пару (уровень value) в аккумулятор
 
(defun prepare-result (acc)
  "Подготавливает результат, сортируя аккумулятор по уровню и добавляя уровень 1 с суммой 0, если его нет."
  (if (assoc 1 acc) ; Проверяем, есть ли уровень 1 в аккумуляторе
      (sort acc #'< :key #'car) ; Если есть, сортируем аккумулятор по уровню
      (sort (cons '(1 0) acc) #'< :key #'car))) ; Иначе, добавляем (1 0) и сортируем
 
;; Тесты
(format t "~a~%" (calculate-level-sums '(a (b (4 (2 e (3) k 15) e 5) 7)))) ; ((1 0) (2 7) (3 9) (4 17) (5 3))
(format t "~a~%" (calculate-level-sums '(a b c))) ; ((1 0))
(format t "~a~%" (calculate-level-sums '(1 (2 (3))))) ; ((1 1) (2 2) (3 3))
(format t "~a~%" (calculate-level-sums'(1 (2 3 (4 (5 6)))))) ; ((1 1) (2 5) (3 4) (4 11))
 

KGRlZnVuIGNhbGN1bGF0ZS1sZXZlbC1zdW1zIChsc3QpCiAgItCS0YvRh9C40YHQu9GP0LXRgiDRgdGD0LzQvNGLINGH0LjRgdC10Lsg0L3QsCDQutCw0LbQtNC+0Lwg0YPRgNC+0LLQvdC1INCy0LvQvtC20LXQvdC90L7RgdGC0Lgg0YHQv9C40YHQutCwIGxzdC4KICAg0JLQvtC30LLRgNCw0YnQsNC10YIg0YHQv9C40YHQvtC6INC/0LDRgCAo0YPRgNC+0LLQtdC90Ywg0YHRg9C80LzQsCksINC+0YLRgdC+0YDRgtC40YDQvtCy0LDQvdC90YvQuSDQv9C+INGD0YDQvtCy0L3Rji4iCiAgKHByZXBhcmUtcmVzdWx0IChjYWxjdWxhdGUtbGV2ZWwtc3Vtcy1oZWxwZXIgbHN0IDEgJygpKSkpCgooZGVmdW4gY2FsY3VsYXRlLWxldmVsLXN1bXMtaGVscGVyIChsc3QgbGV2ZWwgYWNjKQogICLQoNC10LrRg9GA0YHQuNCy0L3QsNGPINGE0YPQvdC60YbQuNGPLCDQutC+0YLQvtGA0LDRjyDQv9GA0L7RhdC+0LTQuNGCINC/0L4g0YHQv9C40YHQutGDIGxzdCDQvdCwINC30LDQtNCw0L3QvdC+0Lwg0YPRgNC+0LLQvdC1IGxldmVsLAogICDQvdCw0LrQsNC/0LvQuNCy0LDRjyDRgdGD0LzQvNGLINGH0LjRgdC10Lsg0LIg0LDQutC60YPQvNGD0LvRj9GC0L7RgNC1IGFjYy4g0JDQutC60YPQvNGD0LvRj9GC0L7RgCBhY2MgLSDRjdGC0L4g0YHQv9C40YHQvtC6INC/0LDRgCAo0YPRgNC+0LLQtdC90Ywg0YHRg9C80LzQsCkuIgogIChjb25kCiAgICAoKG51bGwgbHN0KSBhY2MpIDsg0JHQsNC30L7QstGL0Lkg0YHQu9GD0YfQsNC5OiDQtdGB0LvQuCDRgdC/0LjRgdC+0Log0L/Rg9GB0YIsINCy0L7Qt9Cy0YDQsNGJ0LDQtdC8INCw0LrQutGD0LzRg9C70Y/RgtC+0YAKICAgICh0IChsZXQgKChoZWFkIChjYXIgbHN0KSkgIDsg0JHQtdGA0LXQvCDQv9C10YDQstGL0Lkg0Y3Qu9C10LzQtdC90YIg0YHQv9C40YHQutCwCiAgICAgICAgICAgICAodGFpbCAoY2RyIGxzdCkpKSA7INCR0LXRgNC10Lwg0L7RgdGC0LDRgtC+0Log0YHQv9C40YHQutCwCiAgICAgICAgIChtdWx0aXBsZS12YWx1ZS1iaW5kIChuZXctYWNjIHJlbWFpbmluZy10YWlsKSAgOyDQntCx0YDQsNCx0LDRgtGL0LLQsNC10Lwg0YLQtdC60YPRidC40Lkg0Y3Qu9C10LzQtdC90YIKICAgICAgICAgICAocHJvY2Vzcy1pdGVtIGhlYWQgbGV2ZWwgYWNjKSA7INCk0YPQvdC60YbQuNGPIHByb2Nlc3MtaXRlbSDQvtC/0YDQtdC00LXQu9GP0LXRgiwg0YfRgtC+INC00LXQu9Cw0YLRjCDRgSDRjdC70LXQvNC10L3RgtC+0LwKICAgICAgICAgICAoY2FsY3VsYXRlLWxldmVsLXN1bXMtaGVscGVyIHRhaWwgbGV2ZWwgbmV3LWFjYykpKSkpKSA7INCg0LXQutGD0YDRgdC40LLQvdC+INCy0YvQt9GL0LLQsNC10Lwg0YHQtdCx0Y8g0LTQu9GPINC+0YHRgtCw0YLQutCwINGB0L/QuNGB0LrQsAoKKGRlZnVuIHByb2Nlc3MtaXRlbSAoaXRlbSBsZXZlbCBhY2MpCiAgItCe0LHRgNCw0LHQsNGC0YvQstCw0LXRgiDQvtC00LjQvSDRjdC70LXQvNC10L3RgiBpdGVtINC90LAg0LfQsNC00LDQvdC90L7QvCDRg9GA0L7QstC90LUgbGV2ZWwuCiAgINCV0YHQu9C4INGN0LvQtdC80LXQvdGCIC0g0YfQuNGB0LvQviwg0L7QsdC90L7QstC70Y/QtdGCINCw0LrQutGD0LzRg9C70Y/RgtC+0YAuCiAgINCV0YHQu9C4INGN0LvQtdC80LXQvdGCIC0g0YHQv9C40YHQvtC6LCDRgNC10LrRg9GA0YHQuNCy0L3QviDQstGL0LfRi9Cy0LDQtdGCIGNhbGN1bGF0ZS1sZXZlbC1zdW1zLWhlbHBlciDQtNC70Y8g0Y3RgtC+0LPQviDRgdC/0LjRgdC60LAuIgogIChjb25kCiAgICAoKG51bWJlcnAgaXRlbSkgOyDQldGB0LvQuCDRjdC70LXQvNC10L3RgiAtINGH0LjRgdC70L4KICAgICAodmFsdWVzICh1cGRhdGUtbGV2ZWwtc3VtIGFjYyBsZXZlbCBpdGVtKSBuaWwpKSA7INCe0LHQvdC+0LLQu9GP0LXQvCDRgdGD0LzQvNGDINC00LvRjyDRg9GA0L7QstC90Y8g0Lgg0LLQvtC30LLRgNCw0YnQsNC10Lwg0L3QvtCy0YvQuSDQsNC60LrRg9C80YPQu9GP0YLQvtGACiAgICAoKGxpc3RwIGl0ZW0pIDsg0JXRgdC70Lgg0Y3Qu9C10LzQtdC90YIgLSDRgdC/0LjRgdC+0LoKICAgICAodmFsdWVzIChjYWxjdWxhdGUtbGV2ZWwtc3Vtcy1oZWxwZXIgaXRlbSAoMSsgbGV2ZWwpIGFjYykgbmlsKSkgOyDQoNC10LrRg9GA0YHQuNCy0L3QviDQstGL0LfRi9Cy0LDQtdC8INGB0LXQsdGPINC00LvRjyDRgdC/0LjRgdC60LAsINGD0LLQtdC70LjRh9C40LIg0YPRgNC+0LLQtdC90YwKICAgICh0ICh2YWx1ZXMgYWNjIG5pbCkpKSkgOyDQldGB0LvQuCDRjdC70LXQvNC10L3RgiAtINC90LUg0YfQuNGB0LvQviDQuCDQvdC1INGB0L/QuNGB0L7QuiAo0L3QsNC/0YDQuNC80LXRgCwg0YHQuNC80LLQvtC7KSwg0L/RgNC+0YHRgtC+INC40LPQvdC+0YDQuNGA0YPQtdC8INC10LPQvgoKKGRlZnVuIHVwZGF0ZS1sZXZlbC1zdW0gKGFjYyBsZXZlbCB2YWx1ZSkKICAi0J7QsdC90L7QstC70Y/QtdGCINCw0LrQutGD0LzRg9C70Y/RgtC+0YAgYWNjINGB0YPQvNC80L7QuSDQtNC70Y8g0LfQsNC00LDQvdC90L7Qs9C+INGD0YDQvtCy0L3RjyBsZXZlbCwg0LTQvtCx0LDQstC70Y/RjyB2YWx1ZS4KICAg0JXRgdC70Lgg0YPRgNC+0LLQtdC90Ywg0YPQttC1INC10YHRgtGMINCyINCw0LrQutGD0LzRg9C70Y/RgtC+0YDQtSwg0LTQvtCx0LDQstC70Y/QtdGCIHZhbHVlINC6INGB0YPRidC10YHRgtCy0YPRjtGJ0LXQuSDRgdGD0LzQvNC1LgogICDQmNC90LDRh9C1LCDQtNC+0LHQsNCy0LvRj9C10YIg0L3QvtCy0YPRjiDQv9Cw0YDRgyAo0YPRgNC+0LLQtdC90YwgdmFsdWUpINCyINCw0LrQutGD0LzRg9C70Y/RgtC+0YAuIgogIChsZXQgKChleGlzdGluZyAoYXNzb2MgbGV2ZWwgYWNjKSkpIDsg0JjRidC10Lwg0YHRg9GJ0LXRgdGC0LLRg9GO0YnRg9GOINC30LDQv9C40YHRjCDQtNC70Y8g0YPRgNC+0LLQvdGPCiAgICAoaWYgZXhpc3RpbmcgOyDQldGB0LvQuCDRg9GA0L7QstC10L3RjCDRg9C20LUg0LXRgdGC0Ywg0LIg0LDQutC60YPQvNGD0LvRj9GC0L7RgNC1CiAgICAgICAgKGxldCAoKG5ldy1hY2MgKHJlbW92ZSBleGlzdGluZyBhY2MgOnRlc3QgIydlcXVhbCkpKSA7INCj0LTQsNC70Y/QtdC8INGB0YLQsNGA0YPRjiDQt9Cw0L/QuNGB0YwKICAgICAgICAgIChjb25zIChsaXN0IGxldmVsICgrIHZhbHVlIChjYWRyIGV4aXN0aW5nKSkpIG5ldy1hY2MpKSA7INCU0L7QsdCw0LLQu9GP0LXQvCDQvtCx0L3QvtCy0LvQtdC90L3Rg9GOINC30LDQv9C40YHRjCDRgSDQvdC+0LLQvtC5INGB0YPQvNC80L7QuQogICAgICAgIChjb25zIChsaXN0IGxldmVsIHZhbHVlKSBhY2MpKSkpIDsg0JjQvdCw0YfQtSwg0LTQvtCx0LDQstC70Y/QtdC8INC90L7QstGD0Y4g0L/QsNGA0YMgKNGD0YDQvtCy0LXQvdGMIHZhbHVlKSDQsiDQsNC60LrRg9C80YPQu9GP0YLQvtGACgooZGVmdW4gcHJlcGFyZS1yZXN1bHQgKGFjYykKICAi0J/QvtC00LPQvtGC0LDQstC70LjQstCw0LXRgiDRgNC10LfRg9C70YzRgtCw0YIsINGB0L7RgNGC0LjRgNGD0Y8g0LDQutC60YPQvNGD0LvRj9GC0L7RgCDQv9C+INGD0YDQvtCy0L3RjiDQuCDQtNC+0LHQsNCy0LvRj9GPINGD0YDQvtCy0LXQvdGMIDEg0YEg0YHRg9C80LzQvtC5IDAsINC10YHQu9C4INC10LPQviDQvdC10YIuIgogIChpZiAoYXNzb2MgMSBhY2MpIDsg0J/RgNC+0LLQtdGA0Y/QtdC8LCDQtdGB0YLRjCDQu9C4INGD0YDQvtCy0LXQvdGMIDEg0LIg0LDQutC60YPQvNGD0LvRj9GC0L7RgNC1CiAgICAgIChzb3J0IGFjYyAjJzwgOmtleSAjJ2NhcikgOyDQldGB0LvQuCDQtdGB0YLRjCwg0YHQvtGA0YLQuNGA0YPQtdC8INCw0LrQutGD0LzRg9C70Y/RgtC+0YAg0L/QviDRg9GA0L7QstC90Y4KICAgICAgKHNvcnQgKGNvbnMgJygxIDApIGFjYykgIyc8IDprZXkgIydjYXIpKSkgOyDQmNC90LDRh9C1LCDQtNC+0LHQsNCy0LvRj9C10LwgKDEgMCkg0Lgg0YHQvtGA0YLQuNGA0YPQtdC8Cgo7OyDQotC10YHRgtGLCihmb3JtYXQgdCAifmF+JSIgKGNhbGN1bGF0ZS1sZXZlbC1zdW1zICcoYSAoYiAoNCAoMiBlICgzKSBrIDE1KSBlIDUpIDcpKSkpIDsgKCgxIDApICgyIDcpICgzIDkpICg0IDE3KSAoNSAzKSkKKGZvcm1hdCB0ICJ+YX4lIiAoY2FsY3VsYXRlLWxldmVsLXN1bXMgJyhhIGIgYykpKSA7ICgoMSAwKSkKKGZvcm1hdCB0ICJ+YX4lIiAoY2FsY3VsYXRlLWxldmVsLXN1bXMgJygxICgyICgzKSkpKSkgOyAoKDEgMSkgKDIgMikgKDMgMykpCihmb3JtYXQgdCAifmF+JSIgKGNhbGN1bGF0ZS1sZXZlbC1zdW1zJygxICgyIDMgKDQgKDUgNikpKSkpKSA7ICgoMSAxKSAoMiA1KSAoMyA0KSAoNCAxMSkpCg==