sm <- as.integer(arg[[2]])

sys <- ifelse(R.Version()$major == 2L, "Renjin", "GNU R")

log.result <- function(...) {

	con <- file("results.tsv", open="at")

	writeLines(paste(c(...), collapse="\t"), con=con)