(define debug (external-procedure "UNREGISTERED::James Clark//Procedure::debug")) (element doc (make simple-page-sequence page-width: 15cm page-height: 20cm left-margin: .5cm right-margin: .5cm top-margin: 2cm bottom-margin: 2cm header-margin: 1cm footer-margin: 1cm center-footer: (make sequence (literal "Page " ) (page-number-sosofo)) left-header: (with-mode head (make sequence font-size: 10pt line-spacing: 14pt font-posture: 'italic (process-first-descendant "TITLE"))) )) (element PARA (make paragraph font-size: 14pt space-after: 5pt)) (element (DOC TITLE) (make paragraph font-size: 18pt space-before: 6pt space-after: 10pt)) (element (SECTION TITLE) (make paragraph font-size: 14pt space-before: 6pt space-after: 10pt)) (mode head (element TITLE (make paragraph font-size: 10pt space-before: 6pt space-after: 10pt) ) ) (element NOTE (make sequence font-posture: 'italic font-size: 12pt (process-children))) (element XREF (make sequence (literal "(see ") (make link destination: (current-node-address) (with-mode #f (process-children-trim))) (process-element-with-id (attribute-string "REF")) (literal ")")))