(define-struct arbol (raiz hizq hd))

;Arbol
(define arbol1 (make-arbol 20

                           (make-arbol 10 empty



                                       (make-arbol 5 empty

                                                   (make-arbol 7 empty empty)))

  (make-arbol 24

              (make-arbol 22 empty empty)

              (make-arbol 30 empty empty)

              )
  )
  )


;Arbol 2
(define arbol2 (make-arbol 21

                           (make-arbol 12 empty



                                       (make-arbol 8 empty

                                                   (make-arbol 7 empty empty)))

  (make-arbol 24

              (make-arbol 32 empty empty)

              (make-arbol 30 empty empty)

              )
  )
  )