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