Написать функцию, возвращающую список, содержащий информацию о количестве подсписков на каждом уровне

(defun count (lst)
  (cond
    ((null lst) 0)
    ((atom (car lst)) (count (cdr lst)))
    (t (+ 1 (count (cdr lst))))))

(defun level (lst)
  (cond 
    ((null lst) '(0 0))
    ((and (> a 0) (atom (car lst))) (level a (cdr lst)))
    ((> a 0) (append (+ (level (- a 1) (car lst)) (level a (cdr lst)))))
    (t (append '(0) (count lst)))
))

(defun level-n (lst n)
  (cond ((atom lst) 0)
        ((null lst) 0)
        ((zerop n) 
         (cond ((listp (car lst)) (+ 1 (level-n (cdr lst) 0)))
               (t (level-n (cdr lst) 0))))
        (t (+ (level-n (car lst) (- n 1)) (level-n (cdr lst) n)))))
 
==> level-n
 
(level-n '((1 2) (3 4) 5 6) 2)
 
==> 0
 
(level-n '((1 2) (3 4) 5 6) 1)
 
==> 0
 
(level-n '((1 2) (3 4) 5 6) 0)
 
==> 2
(level-n '((1 2) ((3 4)) (((5))) 6) 2)
 
==> 1
 
(level-n '((1 2) ((3 4)) (((5))) 6) 1)
 
==> 2
 
(level-n '((1 2) ((3 4)) (((5))) 6) 0)
 
==> 3

(defun task (lst &optional (k 0))
  (cond ((zerop (level-n lst k)) nil)
        (t (cons (list k (level-n lst k)) (task lst (+ k 1)))))) 
 
==> task
 
(task '((1 2) ((3 4)) (((5))) 6))
 
==> ((0 3) (1 2) (2 1))