1) (crea' l2)
  where n      = length vs `div` 2
        l1     = take n vs
        (x:l2) = drop n vs

-- (elementos a) es la lista de los valores de los nodos del ABB en el
-- recorrido inorden. Por ejemplo,
--   elementos (ejemploABB 1)  ==  [2,3,4,5,6,8,9]
--   elementos (ejemploABB 2)  ==  [2,3,4,5,6,7,8,9,10,11]
elementos :: (Ord a, Show
crea' vs = Nodo x (crea' l1) (crea' l2)
  where n      = length vs `div` 2
        l1     = take n vs
        (x:l2) = drop n vs

-- (elementos a) es la lista de los valores de los nodos del ABB en el
-- recorrido inorden. Por ejemplo,
--   elementos (ejemploABB 1)  ==  [2,3,4,5,6,8,9]
--   elementos (ejemploABB 2)  ==  [2,3,4,5,6,7,8,9,10,11]
crea' vs = Nodo x (crea' l1) (crea' l2)
  where n      = length vs `div` 2
        l1     = take n vs
        (x:l2) = drop n vs

-- (elementos a) es la lista de los valores de los nodos del ABB en el
-- recorrido inorden. Por ejemplo,
--   elementos (ejemploABB 1)  ==  [2,3,4,5,6,8,9]
--   elementos (ejemploABB 2)  ==  [2,3,4,5,6,7,8,9,10,11]