args <- commandArgs(TRUE)
data <- read.delim(args[1])
print(data)