diff --git a/parallel.R b/parallel.R
new file mode 100644
index 0000000000000000000000000000000000000000..ef87cdd1721bca0520770244c7f8e31907297b46
--- /dev/null
+++ b/parallel.R
@@ -0,0 +1,21 @@
+source("harness.R")
+s <- 7
+
+dd <- function() {as.integer(runif(10^s, 1, 100))}
+for (s in 6:sm) {
+	a <- list(dd(), dd(), dd(), dd(), dd(), dd(), dd(), dd(), dd(), dd())
+	attr(a, "row.names") <- 1:length(a[[1]])
+  	class(a) <- "data.frame"
+  
+	for (r in 1:5) {
+		timing <- system.time({
+			m <- matrix(data=as.numeric(NA), ncol=1, nrow=ncol(a))
+			for (i in 1:ncol(a)) {
+				m[i,] <- mean(a[,i])
+			}
+			print(m)
+		})[[3]]
+	log.result("parallel", sys, conf, s, r, timing)
+	clearResultRecycler()
+	}
+}
\ No newline at end of file