(define-struct arbol (persona-edad hizq hder))
(define (transformar-en-arbol lista-de-personas)
  (cond
   [(empty? lista-de-personas)empty]
   [else
    (insertar(first lista-de-personas)(transformar-en-arbol(rest lista-de-personas)))]
   ))


(define(insertar persona-edad arb)
  (cond
    [(empty? arb)(make-arbol persona-edad empty empty)]
    [(> persona-edad(arbol-persona-edad arb))
     (make-arbol
      (arbol-persona-edad arb)
      (arbol-hizq arb)
      (insertar persona-edad(arbol-hder arb)))]
    [else
     (make-arbol
      (arbol-persona-edad arb)
      (insertar persona-edad(arbol-hizq arb))
      (arbol-hder arb))]
    ))

;(transformar-en-arbol(list lista-de-personas))




(define(recorrido-inorden arb)
  (cond
    [(empty? arb) '()]
    [else
     (append
      (recorrido-inorden(arbol-hizq arb))
      (list(arbol-persona-edad arb))
      (recorrido-inorden(arbol-hder arb)))]
    ))
(recorrido-inorden(transformar-en-arbol(list lista-de-personas)))