(defun GMA (L &optional (count 0)) (cond ((null L) (plusp count)) ((numberp (car L)) (GMA (cdr L) (1+ count))) (T (GMA (cdr L) (1- count)))))