(define debug (external-procedure "UNREGISTERED::James Clark//Procedure::debug")) (root (make simple-page-sequence left-margin: 2cm font-size: 12pt line-spacing: 14pt right-margin: 2cm top-margin: 2cm bottom-margin: 2cm (process-children)) ) (element (DOC TITLE) (make paragraph quadding: 'center font-size: 24pt line-spacing: 36pt space-after: 12pt font-weight: 'bold keep-with-next?: #t (process-children))) (element PARA (make paragraph font-size: 12pt line-spacing: 16pt (process-children))) (element TABLE ;the processing of the table element (make table ;a data-driven table space-before: .25in space-after: .5in table-border: (make table-border line-thickness: 3pt) (make table-column width: 1.5in) ;all columns before any rows (make table-column width: 1.5in) (make table-column width: 1.5in) (process-children))) ;child elements make row flow objs (element ROW ;a row in the table (make table-row (process-children))) ;child elements make cell flow objects (element CELL ;a column in the row (make table-cell cell-before-row-border: #t cell-before-column-border: #t (make paragraph quadding: 'center (process-children)))) ;content of the table cell