Подсчет количества атомов и списков на разных уровнях заданного списка

(defun p1(x n1)
(setq u 0 kol 0 L ())
 (if (or(atom x) (not(numberp n1))) 
 (princ "ERROR!")
 (p_sp x u n1)
 )
(princ "Kol-vo atomov:") 
(princ kol)
)
 
(defun p_sp(L ur yt)
(dolist (y L)
 (if (listp y)
  (progn
  (setq ur (1+ ur))
  (p_sp y ur yt)
  (setq ur (1- ur))
  )
 (if (= ur yt)
 (setq kol (1+ kol))
 )
 )
)
)
 
(p1 '(a) 0)
(p1 '(a(b(c)((1)))d(e(f(g) h))) 3)

(defun a-counter (lst b e &optional (c 0))
  (cond ((null lst) 0)
        ((and (<= c e) (>= c b))
         (cond ((atom (car lst)) (+ 1 (a-counter (cdr lst) b e c)))
               (t (+ (a-counter (cdr lst) b e c) (a-counter (car lst) b e (+ c 1))))))
        ((< c b)
         (cond ((atom (car lst)) (a-counter (cdr lst) b e c))
               (t (+ (a-counter (cdr lst) b e c) (a-counter (car lst) b e (+ c 1))))))
        (t 0)))
 
==> a-counter
 
(a-counter '((1 2 (3 4) 5 6) (((7 8))) 9 0) 0 1) 
 
==> 6
 
(a-counter '((1 2 (3 4) 5 6) (((7 8))) 9 0) 0 0) 
 
==> 2
 
(a-counter '((1 2 (3 4) 5 6) (((7 8))) 9 0) 1 2) 
 
==> 6
 
(a-counter '((1 2 (3 4) 5 6) (((7 8))) 9 0) 2 2) 
 
==> 2
 
(a-counter '((1 2 (3 4) 5 6) (((7 8))) 9 0) 1 1) 
 
==> 4
 
(a-counter '((1 2 (3 4) 5 6) (((7 8))) 9 0) 3 3) 
 
==> 2
 
(a-counter '((1 2 (3 4) 5 6) (((7 8))) 9 0) 4 4) 
 
==> 0

(defun f (lst n)
  (cond ((atom lst) 0)
        ((null lst) 0)
        ((zerop n) 
         (cond ((listp (car lst)) (+ 1 (f (cdr lst) 0)))
               (t (f (cdr lst) 0))))
        (t (+ (f (car lst) (- n 1)) (f (cdr lst) n)))))
 
;(f'( A (a)(s) (B (C) D (( E ((F)))))) 0) начиная с примера все идет не так на 0 уровне выводит 2 списка хотя должен 1

(defun f (lst n)
  (cond ((atom lst) 0)
        ((null lst) 0)
        ((zerop n) 
         (cond ((listp (car lst)) (+ 1 (f (cdr lst) 0)))
               (t (f (cdr lst) 0))))
        (t (+ (f (car lst) (- n 1)) (f (cdr lst) n)))))
 
 
==> f
 
(f '(a (a) (s) (b (c) d ((e ((f)))))) 0)
 
==> 3