(define lista1 (list 'a 'b (list 'ab 'c 'd) 'p 'o))


(define (buscar-simbolo lista simbolo)
  (cond
    [(not (and (list? lista) (symbol? simbolo)))
     (error "El primer elemento debe ser una lista y el segundo un simbolo a buscar")
     ]
    [(empty? lista) #F]
    [(list? (first lista))
     (or (equal? simbolo (buscar-simbolo lista (first lista)))
         (equal? simbolo (buscar-simbolo lista (rest lista)))
         )]
    [else
     (or (equal? (first lista) simbolo)
         (buscar-simbolo lista (rest lista))
         )]
    )
  )