e menor profundidad cuyos valores son los de
-- la lista ordenada vs. Por ejemplo,
--    λ> crea' [2,3,7]
--     (3 (2 - -) (7 - -))
crea' :: (Ord a, Show a) => [a] -> ABB a
crea' [] = Vacio
crea' vs = Nodo x (crea' 
crea' :: (Ord a, Show a) => [a] -> ABB a
crea' [] = Vacio
crea' [] = Vacio