diff --git a/sqlsurvey.R b/sqlsurvey.R
new file mode 100644
index 0000000000000000000000000000000000000000..a283c5a9bc0306c2b2fe666a40b941dac2711ae8
--- /dev/null
+++ b/sqlsurvey.R
@@ -0,0 +1,25 @@
+library(MonetDB.R)
+library(survey)
+library(sqlsurvey)
+
+options(na.action="na.pass")
+#options(monetdb.debug.query=T)
+
+source("harness.R")
+for (s in c("alabama", "california", "acs3yr")) { #, "acs3yr"
+  svydsgn <- sqlrepsurvey("pwgtp",paste("pwgtp",1:80,sep=""),
+    scale=4/80,rscales=rep(1,80), mse=TRUE,
+    database="monetdb://localhost/acs2", driver=MonetDB.R(),
+    key="idkey",user="monetdb",password="monetdb",table.name=s, check.factors=data.frame())
+
+  for (r in 1:5) {
+    timing <- system.time({
+      print(svymean(~agep, svydsgn, se=TRUE))
+      print(svymean(~relp, svydsgn, se=TRUE))
+    })[[3]]
+    log.result("survey", "sqlsurvey", conf, s, r, timing)
+  }
+}
+
+# TODO: test with Oct14 branch, probably faster
+# TODO: Test on bricks?
\ No newline at end of file