user <- ""
pwd <- ""
save(user, pwd, file = "up.RData")