uyos valores son vs. Por ejemplo,
--    λ> crea [3,7,2]
--     (2 - (7 (3 - -) -))
crea :: (Ord a, Show a) => [a] -> ABB a
crea = foldr inserta Vacio

-- (crea' vs) es el ABB
crea :: (Ord a, Show a) => [a] -> ABB a
crea = foldr inserta Vacio
crea = foldr inserta Vacio