Найдите значение и номер чаще всего встречающегося элемента списка

(defun search (a lst)
  (cond ((null lst) nil)
        ((member a lst) lst)
        ((listp (car lst)) 
         (let ((v1 (search a (car lst)))
               (v2 (search a (cdr lst))))
              (cond (v1 v1)
                    (v2 v2)
                    (t nil))))
        (t (search a (cdr lst)))))
 
 
==> search
 
(search 1 '(2 3 4 (8 (1 2 3))  2))
 
==> (1 2 3)
 
(search 1 '(2 3 4 (8 1 (1 2 3))  2))
 
==> (8 1 (1 2 3))

(defun moda (lst &optional (e nil) (d 0))
  (cond ((null lst) (list e d))
        (t (if (> (- (length lst) (length (remove (car lst) lst))) d)
               (moda (remove (car lst) lst) (car lst) (- (length lst) (length (remove (car lst) lst))))
               (moda (remove (car lst) lst) e d)))))  
 
==> moda
 
(moda '(a b c d a b c a c))
 
==> (a 3) ;; a встречается трижды

(defun intern (a oblist)
  (if (member a oblist) a (cons a oblist)))
 
==> intern
 
(intern 'a '(d s a))
 
==> a
 
(intern 'b '(d s a))
 
==> (b d s a)

(defun getn (n lst)
  (cond ((null lst) nil)
        ((= n 1) (car lst))
        (t (getn (- n 1) (cdr lst)))))
 
 
==> getn
 
(getn 4 '(q w e r t y))
 
==> r