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