Macro {diagrama} chamou {arvore} com {TCont} (fixo) em vez de {S} (parâmetro).  Usou {seed} com número par.