stan.model.mcmc.list <- function (object, ...)
    attr(object, "stan.model")