Mine

(defun run (lst)
  (let ((flist nil)
		(contador 1)
		(valor (first lst)))
	(dolist (x (rest lst))
	  (cond ((null valor) (setf flist (append flist (list (list valor contador)))))
			((eq valor x) (incf contador)
						  (print valor))
			((= contador 1) (setf flist (append flist (list valor)))
							(setf valor x)
							(setf contador 1)
							(print valor))
			(t (setf flist (append flist (list (list valor contador))))
			   (setf valor x)
			   (setf contador 1))))
	(if (= contador 1)
	  (setf flist (append flist (list valor)))
	  (setf flist (append flist (list (list valor contador)))))
	(print flist)))

(run '(A A A A B C C A A A A D))

(print 'new-crap)

(dolist (x '(A B C))
  (cond ((null x) (print 'end))
		(t (print x))))