source("harness.R")

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