#|Lista normal|#
(cons 'hola (cons 'hola (cons 'hola empty)))

#|Lista profunda|#
(cons (cons (cons (cons (cons 'hola '()) '()) '()) '()) '())

#|Metodo que crear una lista profunda de la profundidad especifica y con el simbolo deseado|#
(define (crearListaProfPila numero simbolo)
  (cond
    [(zero? numero) simbolo]
    [else (cons (crearListaProfPila (sub1 numero) simbolo) '())]))

#|Metodo que crea una lista profunda por medio de recursion de cola|#
(define (crearListaProfCola numero listaAux)
  (cond
    [(= 1 numero) (cons listaAux '())]
    [else (cons (crearListaProfCola (sub1 numero)  listaAux) '())]))

(crearListaProfPila 3 'casa)
(crearListaProfCola 3 'lola)

#|Metodo que cuenta la profundidad de una lista profunda usnado colas|#
(define (contarProfundidadPila listaProf)
  (cond
    [(symbol? listaProf) 0]
    [else (add1 (contarProfundidadPila (first listaProf)))]))

#|Metodo que cuenta la prundidad de una lista profunda usando Pilas|#
(define (contarProfundidadCola listaProf contador)
  (cond
    [(symbol? listaProf) contador]
    [else (contarProfundidadCola (first listaProf) (add1 contador))]))


(contarProfundidadPila (crearListaProfPila 5 'caso))
(contarProfundidadCola (crearListaProfCola 5 'caso) 0)

#|Metodo que saca el elemento de una lista profunda|#
(define (extraerSimboloCola listaProf)
  (cond
    [(symbol? listaProf) listaProf]
    [else (extraerSimboloCola (first listaProf))]))

(extraerSimboloCola (crearListaProfCola 3 'Prueba))