diff --git a/parallel.R b/parallel.R
index ef87cdd1721bca0520770244c7f8e31907297b46..28bf14c6c129a88a33ebbbcdd7772bc9c0f6980c 100644
--- a/parallel.R
+++ b/parallel.R
@@ -1,21 +1,19 @@
 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()
-	}
+s <- 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