dput <- function(x, file = "")
  .Internal(dput(x, file))

dget <- function(file)
  eval(parse(file = file))
