default-graph

               (alist-set

                 named-graphs graph-name

      (('statement _ ...)

       (loop (list parse-tree) state default-graph named-graphs))

      (((parse-tree ...))