--- a
+++ b/inst/queries/allCohorts.xq
@@ -0,0 +1,7 @@
+;allCohorts
+(fn [exclude]
+	(map :cohort
+	  (query
+		{:select [[#sql/call [:distinct #sql/call [:ifnull :cohort "(unassigned)"]] :cohort]]
+		 :from [:dataset]
+		 :where [:not [:in :type exclude]]})))