diff --git a/notes.org b/notes.org
index 98ab4e8..ac67751 100644
--- a/notes.org
+++ b/notes.org
@@ -38,6 +38,49 @@ This would be useful for having a menu of saved queries as Org links, or even bo
 
 *** TODO Bookmarks
 
+** TODO [#B] Recursive queries
+
+For lack of a better term.  A way to query for certain headings, and then gather results of a different query at each result of the first query, displaying all results in a single view.  
+
+This works pretty well.  It needs polishing, and some refactoring so items can be indented completely (rather than leaving the keyword unindented, as it is now).
+
+#+BEGIN_SRC elisp
+  (cl-defun org-ql-agenda-recursive (buffers-or-files queries &key action narrow sort)
+    (cl-labels ((rec (queries element indent)
+                     (org-with-point-at (org-element-property :org-marker element)
+                       (when-let* ((results (progn
+                                              (org-narrow-to-subtree)
+                                              (org-ql-select (current-buffer)
+                                                (car queries)
+                                                :action 'element-with-markers
+                                                :narrow t
+                                                :sort sort))))
+                         ;; Indent entry for each level
+                         (setf results (--map
+                                        (org-element-put-property it :raw-value
+                                                                  (concat (s-repeat (* 5 indent) " ")
+                                                                          (org-element-property :raw-value it)))
+                                        results))
+                         (cons it (if (cdr queries)
+                                      (--map (rec (cdr queries) it)
+                                             results)
+                                    results))))))
+      (when-let* ((indent 0)
+                  (results (org-ql-select buffers-or-files
+                             (car queries)
+                             :action 'element-with-markers
+                             :narrow narrow
+                             :sort sort)))
+        (->> (if (cdr queries)
+                 (--map (rec (cdr queries) it (1+ indent))
+                        results)
+               results)
+             (-flatten-n (1- (length queries)))
+             -non-nil
+             (org-ql-agenda--agenda nil nil
+               :entries)))))
+#+END_SRC
+
 ** TODO Add more sorters?
 
 +  [ ] =category=