(('rdf-literal ('string-pat _) ("^^" iri))

     (let* ((res (parse-iri iri state))

            (iri (assoc-ref res "iri"))

            (state (assoc-ref res "state"))

            (object (make-rdf-literal "" iri #f)))

       (update-parser-state state

         #:cur-object object

         #:result

         (cons

           (make-rdf-triple

             (parser-state-cur-subject state)

             (parser-state-cur-predicate state)

             object)

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

    (('rdf-literal ('string-pat _) ('langtag lang))

     (let ((object

           (make-rdf-literal

             ""

             "http://www.w3.org/1999/02/22-rdf-syntax-ns#langString"

             lang)))

       (update-parser-state state

         #:cur-object object

         #:result

         (cons

           (make-rdf-triple

             (parser-state-cur-subject state)

             (parser-state-cur-predicate state)

             object)

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

    (('rdf-literal ('string-pat _))

     (let ((object

           (make-rdf-literal

             ""

             "http://www.w3.org/1999/02/22-rdf-syntax-ns#string"

             #f)))

       (update-parser-state state

         #:cur-object object

         #:result

         (cons

           (make-rdf-triple

             (parser-state-cur-subject state)

             (parser-state-cur-predicate state)

             object)

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