#!/usr/bin/env Rscript
options(digits = 8)
args = commandArgs(trailingOnly=TRUE)
pvalues = as.double(strsplit(args[1], ",")[[1]])

library(qvalue)
out = tryCatch({
  result = qvalue(pvalues)
  res = result$qvalues
}, error = function(e) {
  return(e$message)
})
write(out, stdout())