#!/usr/bin/env Rscript

draw.samples <- function(sample.size,lambda) {
  rexp(sample.size,lambda)
}

args <- commandArgs(TRUE)
if ( length(args) == 2 ) {
  x <- draw.samples(as.numeric(args[1]),as.numeric(args[2]))
  cat(x,sep="\n")
} else {
  stop("Must pass two argument: sample-size rate-parameter")
}