source("harness.R")

for (s in 4:sm) {
	x <- runif(10^s, 1, 100)
	y <- seq(1:10^s)
	for (r in 1:5) {
		timing <- system.time({
			print(sum(sqrt(x+1)-y*x))
		})[[3]]
		log.result("operators", sys, conf, s, r, timing)
		clearResultRecycler()
	}
}