args <- commandArgs(trailingOnly = TRUE)

n <- as.numeric(args[1])/3
offset <- 0
for(i in 1:n)
{
	x <- unlist(strsplit(args[i*2+1+offset], split=","))
      	x <- as.numeric(x)
      	print(args[i*2 + 2 + offset])
     	paril <- 1 - pnorm(as.numeric(args[i*2 + offset]), mean(x), sd(x))
	poutlier <- pbinom(0, length(x), paril)
     	print(1 - poutlier)
      	offset <- offset + 1
}