--- a
+++ b/inst/queries/cohortSummary.xq
@@ -0,0 +1,6 @@
+; cohortSummary
+(fn [exclude]
+	(query {:select [:cohort [:%count.* :count]]
+			:from [:dataset]
+			:where [:not [:in :type exclude]]
+			:group-by [:cohort]}))