;autor: Yilber Alexander Viscue
;contrato: buscar-simbolo lista simbolo --> booleano
(define listas (cons 'a (cons 'b (cons 'c (cons 'd (cons 'e empty ))))))

(define (buscar-simbolo  lista sim)
  (cond
    [(equal? (first lista ) sim) #t]
    [(equal? (first(rest lista)) sim) #t]
    [(equal? (first(rest (rest lista )))sim ) #t]
    [(equal? (first (rest (rest (rest lista)))) sim) #t]
    [(equal? (first (rest (rest (rest (rest lista))))) sim) #t]
    [else #f ]))