private <- function(obj, name) {
  obj$.__enclos_env__$private[[name]]
}