(declare-initial-value font-size 14pt) (declare-initial-value line-spacing 18pt) (declare-initial-value min-leading 1pt) (element DOC (make simple-page-sequence left-margin: 3cm right-margin: 3cm top-margin: 2cm bottom-margin: 2cm language: 'JA)) (element HEAD (make display-group quadding: 'end font-size: 10pt (process-children) (make paragraph font-weight: 'bold quadding: 'start (literal "�ے��e��")) (make paragraph (literal "������")))) (element DOCNO (make paragraph)) (element DATE (make paragraph ; font-weight: 'bold )) (element (DOC TITLE) (make paragraph font-family-name: "GothicBBB Medium" space-before: 20pt space-after: 40pt font-weight: 'bold quadding: 'center font-size: 15pt)) (element MAINTXT (make paragraph font-size: 12pt font-posture: 'italic first-line-start-indent: 12pt)) (element MTTITLE (make paragraph font-family-name: "GothicBBB Medium" quadding: 'center font-weight: 'bold space-after: 24pt space-before: 24pt font-size: 10pt)) (element CONTENT (make display-group space-after: 14pt start-indent: 20pt)) (element (CONTENT TITLE) (make paragraph font-size: 15pt first-line-start-indent: -15pt font-weight: 'bold font-family-name: "GothicBBB Medium" (make line-field field-width: 15pt (literal (number->string (child-number (parent (current-node)))))) (process-children))) (element P (let ((level (attribute-string "LEVEL")) (bool (and (first-sibling? (current-node)) (last-sibling? (current-node))))) (case level (("0" "1") (make paragraph font-size: 12pt start-indent: 30pt first-line-start-indent: (if bool 0pt -24pt) (if bool (empty-sosofo) (make line-field field-width: 24pt (literal "(" (number->string (child-number)) ")"))) (process-children))) (("2" "3") (empty-sosofo))))) (element list (empty-sosofo))