source("harness.R")

for (s in 5:sm) {
	a <- runif(10^s, 1, 100)
	for (r in 1:5) {
		timing <- system.time({
			b <- factorial(a)
			b <- b[1:10]
			print(b)
		})[[3]]
		log.result("pushdown", sys, conf, s, r, timing)
		clearResultRecycler()
	}
}