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)

	}

}