(defun is-atoms (array)
	(cond
		((null array) t)
		((atom (car array)) (is-atoms (cdr array)))
	)
)

(print (is-atoms '(9 8 7 6 (5))))