res <- .Call("rawStreamToDNAbin", x, PACKAGE = "ape")
names(res) <- sub("^ +", "", names(res)) # to permit phylosim
class(res) <- "DNAbin"
res <- .Call("rawStreamToDNAbin", x, PACKAGE = "ape")
names(res) <- sub("^ +", "", names(res)) # to permit phylosim
class(res) <- "DNAbin"