diff --git a/demo/light-verb-construction-ca.R b/demo/light-verb-construction-ca.R
new file mode 100644
index 0000000..c8a323e
--- /dev/null
+++ b/demo/light-verb-construction-ca.R
@@ -0,0 +1,20 @@
+library(RKorAPClient)
+library(knitr)
+new("KorAPConnection", verbose = TRUE) %>%
+  collocationAnalysis(
+    "focus(in [tt/p=NN] {[tt/l=setzen]})",
+    leftContextSize = 1,
+    rightContextSize = 0,
+    exactFrequencies = FALSE,
+    searchHitsSampleLimit = 1000,
+    topCollocatesLimit = 20
+  ) %>%
+  mutate(LVC = sprintf("[in %s setzen](%s)", collocate, webUIRequestUrl)) %>%
+  select(LVC, logDice, pmi, ll) %>%
+  head(10) %>%
+  kable(format="pipe", digits=2)  %>%
+  cat(file="/tmp/in_setzen.md", sep="\n")
+
+#rmarkdown::render("/tmp/in_setzen.md")
+#browseURL("/tmp/in_setzen.html")
+