quit <- function(save = "ask")
.Internal(quit(save))
q<-quit
