args <- commandArgs(TRUE)
write("Hola mundo", args[1])