]> (declare-flow-object-class element "UNREGISTERED::James Clark//Flow Object Class::element") (declare-flow-object-class document-type "UNREGISTERED::James Clark//Flow Object Class::document-type") (declare-flow-object-class empty-element "UNREGISTERED::James Clark//Flow Object Class::empty-element") (declare-flow-object-class formatting-instruction "UNREGISTERED::James Clark//Flow Object Class::formatting-instruction") (element DOC (sosofo-append (make document-type name: "HTML" public-id: "-//W3C//DTD HTML 3.2//EN") (make element gi: "HTML" (sosofo-append (make element gi: "HEAD" (make element gi: "TITLE" (sosofo-append (literal "Simple XML-to-HTML Conversion") ) ) ) (make element gi: "BODY" (process-children) ) ) ) ) ) (element TITLE (make element gi: "H1" ) ) (element NOTE (make element gi: "P" (sosofo-append (literal "Note: ")) (make element gi: "font" attributes: '(("COLOR" "RED")) ) ) ) (element PARA (make element gi: "P" ) )