Update tpArbol.hs