diff --git a/operators.R b/operators.R
index 60c93d053eea38be1e0189ab0605ede6152252cf..f31255514a799df76e6a8674686bcd50f8583967 100644
--- a/operators.R
+++ b/operators.R
@@ -1,21 +1,11 @@
 source("harness.R")
 
-dd <- function() {as.integer(runif(10^s, 1, 100))}
-
 for (s in 4:sm) {
-	a <- list(dd(), dd(), dd(), dd(), dd(), dd(), dd(), dd(), dd(), dd())
-	x <- dd()
-	dim(x) <- c(length(x),1)
-	attr(a, "row.names") <- 1:length(a[[1]])
-  	class(a) <- "data.frame"
-
+	x <- runif(10^s, 1, 100)
+	y <- seq(1:10^s)
 	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,]<-t(colSums(a[,i]*x)/sum(a[,i]))
-			}
-			print(m)
+			print(sum(sqrt(x+1)-y*x))
 		})[[3]]
 		log.result("operators", sys, conf, s, r, timing)
 		clearResultRecycler()