(defun COUNT_S(l)
 (cond
  ((null l) 0)
  ((SYMBOLP (CAR l)) (+ 1 (COUNT_S (CDR l))) )
  ( 1 (COUNT_S (CDR l)))
 )
)

(defun COUNT(l)
 (cond
  ((null l) 0)
  ( 1 (+ 1 (COUNT (CDR l))) )
 )
)

(defun GMA(l)
   (> (- (COUNT l) (COUNT_S l)) (COUNT_S l))
)

(GMA '(1 2 A B C))
(GMA '(1 2 5 A B C))
(GMA '(1 2 5 A B 6 C))
(system)