See tips from a tree
library(ape)
tree <- rtree(n = 20)
plot(tree, edge.width = 2)
#By default, tips odered from bottom to top
t <- tree$tip.label
# Re order from top to bottom
rev(tree$tip.label)
#Write out to a text file
sapply(t, function(x) write(x,"tips.txt", append = T))