traceback <- function() as.character(.Traceback)
