require(ape, quietly = TRUE, save = FALSE)
woodmouse <- read.dna("woodmouse.txt", format = "sequential")