diff --git a/identity.R b/identity.R
new file mode 100644
index 0000000000000000000000000000000000000000..3321cb8575f0eb1d83de408bb941e1c3ff2b7982
--- /dev/null
+++ b/identity.R
@@ -0,0 +1,12 @@
+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)
+	}
+}
\ No newline at end of file