(('blank-node ('blank-node-label label))

     (let* ((node

              (or (assoc-ref (parser-state-bnode-labels state) label)

                  ((parser-state-blank-node-gen state)))))

       (update-parser-state state

         #:cur-object node

         #:result

         (cons

           (make-rdf-triple

             (parser-state-cur-subject state)

             (parser-state-cur-predicate state)

             node)

           (parser-state-result state)))))

       (parse-predicate-object predicate-object new-state)))

    ((('blank-node-property-list ('predicate-object-list po ...)))

     (let* ((subject ((parser-state-blank-node-gen state))))

       (parse-predicate-object po (update-parser-state state

                                    #:cur-subject subject))))))