;;(defun divide-bye-five(lst)
;;	(loop for x in lst collect(mod x 5))
;;)

(defun counter (a lst)
(cond
   ((null lst) 0)
   ((equal a (car lst)) (+ 1 (counter a (cdr lst))))
   (t (counter a (cdr lst))))
)

(print(counter '0 '(0 0 0 20 0 0 0 0 0 5 31)))