.\" -*- nroff -*-      om.tmac
.ig
Mom -- a typesetting/document-processing macro set for groff.

Copyright (C) 2002-2014  Free Software Foundation, Inc.
 Written by Peter Schaffter <peter@schaffter.ca>
 PDF integration contributed by Deri James <deri.james@chuzzlewit.co.uk>

This file is part of groff.

groff is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

groff is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.

You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.

Version 2.1-c_1
---------------
Antoine de St-Exupéry asserted that elegance in engineering is
achieved not when there is nothing left to add, but when there is
nothing left to take away.

By those standards, mom is a Rube Goldberg contraption.  She was
created over the years while groff, and my understanding of it,
changed and evolved.  However, I'm a firm believer in "if it ain't
broke, don't fix it."  Version 2.0 removes some of the redundancies
and cruft, but mom still needs some nip and tuck.

"<anything>" in the description of arguments that can be passed
to a macro means that any argument turns the feature off.

Thanks to everyone who has contributed suggestions and patches,
and to those whose GPL'd work has been plundered.  Special thanks
to Werner Lemberg (margin notes), Tadziu Hoffman (underlining),
Deri James (pdf integration), Robin Haberkorn (tbl integration, eqn
extentions, and float management).
..
.if (\n[.x]\n[.y] < 118) \
.ab [mom]: You need GNU troff version 1.18 or higher to run this version of mom.
.if !\n[.g]=1 \
.ab [mom]: The mom macros require that you be running GNU troff.
.if \n[.C] \
.ab [mom]: The groff mom macros do not work in compatibility mode.
.sty \n[.fp] UL
.sty \n[.fp] ULI
.sty \n[.fp] ULCD
.sty \n[.fp] ULCDI
.sty \n[.fp] ULEX
.sty \n[.fp] ULEXI
.sty \n[.fp] XL
.sty \n[.fp] XLI
.sty \n[.fp] XLCD
.sty \n[.fp] XLCDI
.sty \n[.fp] XLEX
.sty \n[.fp] XLEXI
.sty \n[.fp] TH
.sty \n[.fp] THI
.sty \n[.fp] THCD
.sty \n[.fp] THCDI
.sty \n[.fp] THEX
.sty \n[.fp] THEXI
.sty \n[.fp] L
.sty \n[.fp] LI
.sty \n[.fp] LCD
.sty \n[.fp] LCDI
.sty \n[.fp] LEX
.sty \n[.fp] LEXI
.sty \n[.fp] BK
.sty \n[.fp] BKI
.sty \n[.fp] BKCD
.sty \n[.fp] BKCDI
.sty \n[.fp] BKEX
.sty \n[.fp] BKEXI
.sty \n[.fp] CD
.sty \n[.fp] CDI
.sty \n[.fp] EX
.sty \n[.fp] EXI
.sty \n[.fp] DB
.sty \n[.fp] DBI
.sty \n[.fp] DBCD
.sty \n[.fp] DBCDI
.sty \n[.fp] DBEX
.sty \n[.fp] DBEXI
.sty \n[.fp] SB
.sty \n[.fp] SBI
.sty \n[.fp] SBCD
.sty \n[.fp] SBCDI
.sty \n[.fp] SBEX
.sty \n[.fp] SBEXI
.sty \n[.fp] BCD
.sty \n[.fp] BCDI
.sty \n[.fp] BEX
.sty \n[.fp] BEXI
.sty \n[.fp] BO
.sty \n[.fp] XB
.sty \n[.fp] XBI
.sty \n[.fp] XBCD
.sty \n[.fp] XBCDI
.sty \n[.fp] XBEX
.sty \n[.fp] XBEXI
.sty \n[.fp] UB
.sty \n[.fp] UBI
.sty \n[.fp] UBCD
.sty \n[.fp] UBCDI
.sty \n[.fp] UBEX
.sty \n[.fp] UBEXI
.sty \n[.fp] HV
.sty \n[.fp] HVI
.sty \n[.fp] HVCD
.sty \n[.fp] HVCDI
.sty \n[.fp] HVEX
.sty \n[.fp] HVEXI
.sty \n[.fp] BL
.sty \n[.fp] BLI
.sty \n[.fp] BLCD
.sty \n[.fp] BLCDI
.sty \n[.fp] BLEX
.sty \n[.fp] BLEXI
.sty \n[.fp] BLO
.sty \n[.fp] XBL
.sty \n[.fp] XBLI
.sty \n[.fp] XBLCD
.sty \n[.fp] XBLCDI
.sty \n[.fp] XBLEX
.sty \n[.fp] XBLEXI
.sty \n[.fp] UBL
.sty \n[.fp] UBLI
.sty \n[.fp] UBLCD
.sty \n[.fp] UBLCDI
.sty \n[.fp] UBLEX
.sty \n[.fp] UBLEXI
.sty \n[.fp] SC
.sty \n[.fp] SCI
.sty \n[.fp] SCDB
.sty \n[.fp] SCDBI
.sty \n[.fp] SCSB
.sty \n[.fp] SCSBI
.if !n \X'ps: exec 0 setlinejoin'\X'ps: exec 0 setlinecap'
.de ul*ps
ps: def
grops begin
/decornone { grops begin /X { } def /Y { } def /y2 -1 def end } def
/decorline { grops begin u neg /uld exch def u /ulw exch def
             /X { currentpoint /y0 exch def /x0 exch def } def
             /Y { currentpoint /y1 exch def /x1 exch def
                  drawline /x2 x1 def /y2 y1 def } def end } def
/drawline { gsave ulw setlinewidth 0 setlinecap x1 y1 uld sub moveto
            y2 y0 eq { x2 y2 } { x0 y0 } ifelse uld sub lineto stroke
            grestore } def
decornone
/uld 0 def
/ulw 0 def
/A { X show Y } def
/B { 0 SC 3 -1 roll X widthshow Y } def
/C { 0 exch X ashow Y } def
/D { 0 exch 0 SC 5 2 roll X awidthshow Y } def
/E { 0 rmoveto X show Y } def
/F { 0 rmoveto 0 SC 3 -1 roll X widthshow Y } def
/G { 0 rmoveto 0 exch X ashow Y } def
/H { 0 rmoveto 0 exch 0 SC 5 2 roll X awidthshow Y } def
/I { 0 exch rmoveto X show Y } def
/J { 0 exch rmoveto 0 SC 3 -1 roll X widthshow Y } def
/K { 0 exch rmoveto 0 exch X ashow Y } def
/L { 0 exch rmoveto 0 exch 0 SC 5 2 roll X awidthshow Y } def
/M { rmoveto X show Y } def
/N { rmoveto 0 SC 3 -1 roll X widthshow Y } def
/O { rmoveto 0 exch X ashow Y } def
/P { rmoveto 0 exch 0 SC 5 2 roll X awidthshow Y } def
/Q { moveto X show Y } def
/R { moveto 0 SC 3 -1 roll X widthshow Y } def
/S { moveto 0 exch X ashow Y } def
/T { moveto 0 exch 0 SC 5 2 roll X awidthshow Y } def
end
..
.if !n \Y[ul*ps]
.if n .color 0
.nr TOC.RELOCATE 0
.ds PDFHREF.TEXTCOL.DEFAULT 0.0 0.3 0.9
.als      ALIAS           als
.als      ALIASN          aln
.ALIAS    MAC             de
.ALIAS    BR              br
.ALIAS    SPREAD          brp
.ALIAS    ESC_CHAR        ec
.ALIAS    STRING          ds
.ALIAS    INCLUDE         so
.ALIASN  #PT_SIZE        .ps
.ALIASN  #DIVER_DEPTH     dn
.ALIASN  #DIVER_WIDTH     dl
.ALIASN  #TRAP_DISTANCE  .t
.ALIASN  #LEAD           .v
.ALIASN  #PAGE_LENGTH    .p
.ALIASN  #NUM_ARGS       .$
.ALIASN  #INDENT         .i
.nr #L_MARGIN \n[.o]
.cflags 4 /\[en]
.MAC PAGEWIDTH END
.br
.nr #PAGE_WIDTH \\$1
.if !r#L_MARGIN .L_MARGIN \\n[.o]
.if !r#R_MARGIN .R_MARGIN 1i
.if '\\*[.T]'pdf' \X'papersize=\\n[#PAGE_WIDTH]z,\\n[#PAGE_LENGTH]z'\c
.END
.MAC L_MARGIN END
.br
.nr #L_MARGIN (\\$1)
.po \\n[#L_MARGIN]u
.END
.MAC R_MARGIN END
.br
.nr #R_MARGIN (\\$1)
.ll \\n[#PAGE_WIDTH]u-\\n[#L_MARGIN]u-\\n[#R_MARGIN]u
.ta \\n[.l]u
.nr #L_LENGTH \\n[.l]
.END
.MAC T_MARGIN END
.nr #T_MARGIN (\\$1)
.nr #TOP 1
.if !\\n[#DOCS] .sp |\\n[#T_MARGIN]u-1v
.wh 0i DO_T_MARGIN
.END
.MAC B_MARGIN END
.br
.nr #B_MARGIN (\\$1)
.nr #ORIGINAL_B_MARGIN \\n[#B_MARGIN]
.nr #B_MARGIN_SET 1
.wh -\\n[#B_MARGIN]u DO_B_MARGIN
.END
.MAC PAGE END
.br
.PAGEWIDTH   \\$1
.PAGELENGTH  \\$2
.ie '\\$3''  .L_MARGIN \\n[.o]
.el          .L_MARGIN \\$3
.ie '\\$4''  .R_MARGIN 1i
.el          .R_MARGIN \\$4
.if !'\\$5'' .T_MARGIN \\$5
.if !'\\$6'' .B_MARGIN \\$6
.END
.MAC PAGELENGTH END
.pl \\$*
.if '\\*[.T]'pdf' \X'papersize=\\n[#PAGE_WIDTH]z,\\n[#PAGE_LENGTH]z'\c
.END
.MAC DO_T_MARGIN END
.ev T_MARGIN
.nr #TOP 1
.sp |\\n[#T_MARGIN]u-1v
.ev
.sp -\\n[#T_MARGIN_LEAD_ADJ]u
.END
.MAC DO_B_MARGIN END
.nr #T_MARGIN_LEAD_ADJ \\n[#LEAD]-12000
'    bp
.if !n .nop \X'ps: exec 0 setlinejoin'\X'ps: exec 0 setlinecap'
.END
.MAC NEWPAGE END
.if \\n[.vpt]=0 .vpt
.ie \\n[#NO_BREAK] \{\
'       br
.rr #NO_BREAK
.\}
.el .br
.nr #NEWPAGE 1
.nr @TOP 1
.ie \\n[#B_MARGIN_SET]=1 \{\
.ie !\\n[#DOCS]=1 \{\
.ev NP
.DO_B_MARGIN
.ev
.\}
.el \{\
.if \\n[#COLUMNS]=1 .nr #COL_NUM \\n[#NUM_COLS]
.ie !\\n[#FN_DEPTH] \{\
.ch FN_OVERFLOW_TRAP
.DO_FOOTER
.wh -(\\n[#FN_OVERFLOW_TRAP_POS]u) FN_OVERFLOW_TRAP
.\}
.el .DO_B_MARGIN
.\}
.\}
.el 'bp
.END
.MAC LL END
.nr #USER_SET_L_LENGTH 1
.ll \\$1
.nr #L_LENGTH \\n[.l]
.ta \\n[.l]u
.END
.MAC FALLBACK_FONT END
.if \\n[#NUM_ARGS]=1 \{\
.if '\\$1'ABORT' .nr #ABORT_FT_ERRORS 1
.if '\\$1'WARN' \
.if r #ABORT_FT_ERRORS .nr #ABORT_FT_ERRORS 0
.if !'\\$1'ABORT' \
.if !'\\$1'WARN' .fp 0 dummy \\$1
.\}
.if \\n[#NUM_ARGS]=2 \{\
.fp 0 dummy \\$1
.if '\\$2'ABORT' .nr #ABORT_FT_ERRORS 1
.if '\\$2'WARN'  .nr #ABORT_FT_ERRORS 0
.\}
.END
.FALLBACK_FONT CR ABORT
.MAC FAMILY END
.ds $FAMILY \\$1
.if \\n[#PRINT_STYLE]=1 \{\
.fam \\*[$TYPEWRITER_FAM]
.return
.\}
.if \\n[#IGNORE] \{\
.fam \\*[$TYPEWRITER_FAM]
.return
.\}
.if (\\n[.x]\\n[.y]\\n[.Y] >= 1192) .ds $SAVED_STYLE \\n[.sty]
.ft 0
.fam \\*[$FAMILY]
.if (\\n[.x]\\n[.y]\\n[.Y] >= 1192) \{\
.ft \\*[$SAVED_STYLE]
.if !F\\n[.fn] .ft 0
.\}
.ie \\n[#PRE_COLLATE]=1 .
.el \{\
.if \\n[#COLLATE]=1 \
.if !r#START .ds $DOC_FAM \\*[$FAMILY]
.\}
.END
.MAC FT END
.ds $FONT \\$1
.if \\n[#PRINT_STYLE]=1 \{\
.ie '\\$1'I' \{\
.if \\n[#UNDERLINE_ITALIC]=1 \{\
.UNDERLINE
.return
.\}
.if \\n[#ITALIC_MEANS_ITALIC]=1 \{\
.ds $FONT \\$1
.ft \\*[$FONT]
.return
.\}
.\}
.el .UNDERLINE OFF
.return
.\}
.ft 0
.ft \\*[$FONT]
.if (\\n[.x]\\n[.y]\\n[.Y] >= 1192) \{\
.if '\\n[.sty]'' \{\
.if !F\\n[.fn] \{\
.if !S\\*[$FONT] \{\
.tm1 "[mom]: Font style "\\*[$FONT]" at line \\n[.c] has not been registered.
.ie \\n[#ABORT_FT_ERRORS]=0 \
.tm1 "       Continuing to process using fallback font.
.el .ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.if \\n[.f]=0 \{\
.tm1 "[mom]: Either font style "\\*[$FONT]" at line \\n[.c] does not exist in family "\\n[.fam]",
.tm1 "       or family "\\n[.fam]" has not been installed.
.ie \\n[#ABORT_FT_ERRORS]=0 \
.tm1 "       Continuing to process using fallback font.
.el .ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.\}
.\}
.\}
.END
.MAC PT_SIZE END
.if \\n[#PRINT_STYLE]=1 .return
.if \\n[#IGNORE] .return
.ps \\$1
.nr #PT_SIZE_IN_UNITS \\n[.ps]
.ie '\\$0'DOC_PT_SIZE' \{\
.if !\\n[#DOCS] .DOC_MACRO_ERROR \\$0
.br
.nr #NEW_DOC_PT_SIZE \\n[.ps]
.if \\n[#DOC_AUTOLEAD] \{\
.ie !\\n[#DOC_AUTOLEAD_FACTOR] .nr #AUTOLEADING \\n[#DOC_AUTOLEAD]
.el .nr #AUTOLEADING \\n[.ps]*\\n[#DOC_AUTOLEAD]/1000-\\n[.ps]
.nr #DOC_LEAD \\n[.ps]+\\n[#AUTOLEADING]
.nr #RESET_TRAPS 1
.\}
.\}
.el .if \\n[#AUTO_LEAD] .vs \\n[.ps]u+\\n[#AUTOLEADING]u
.END
.MAC SIZE END
\c
.ps \\$1
.END
.MAC LS END
.br
.nr #OLD_LEAD \\n[.v]
.if \\n[#PRINT_STYLE]=1 .return
.if \\n[#IGNORE] .return
.if \\n[#AUTO_LEAD] \{\
.rr #AUTO_LEAD
.rr #AUTOLEAD_VALUE
.rr #AUTOLEADING
.\}
.vs \\$1
.if \\n[.t]<\\n[.v] 'bp
.if \\n[#TOP] \{\
.nr #TOP_BASELINE_ADJ \\n[.v]-\\n[#OLD_LEAD]
.sp -\\n[#TOP_BASELINE_ADJ]u
.rr #TOP
.rr #TOP_BASELINE_ADJ
.\}
.END
.MAC AUTOLEAD END
.if \\n[#PRINT_STYLE]=1 .return
.if \\n[#IGNORE] .return
.nr #AUTO_LEAD 1
.nr #OLD_LEAD \\n[.v]
.nr #AUTOLEAD_VALUE (p;\\$1)
.ie '\\$2'FACTOR' \{\
.if !\\n[#DOCS] .nr #DOC_AUTOLEAD_FACTOR \\n[#AUTOLEAD_VALUE]
.nr #AUTOLEADING \\n[.ps]*\\n[#AUTOLEAD_VALUE]/1000-\\n[.ps]
.\}
.el .nr #AUTOLEADING \\n[#AUTOLEAD_VALUE]
.vs \\n[.ps]u+\\n[#AUTOLEADING]u
.if \\n[#TOP] \{\
.nr #TOP_BASELINE_ADJ \\n[.v]-\\n[#OLD_LEAD]
.sp -\\n[#TOP_BASELINE_ADJ]u
.rr #TOP
.rr #TOP_BASELINE_ADJ
.\}
.END
.ds ROM  \Ef[R]
.ds IT   \Ef[I]
.ds BD   \Ef[B]
.ds BDI  \Ef[BI]
.ds PREV \Ef[]
.ds S    \Es
.MAC KERN END
.ie '\\$1'' \{\
.kern
.nr #KERN 1
.\}
.el \{\
.kern 0
.nr #KERN 0
.\}
.END
.MAC KERN_UNIT END
.ie '\\$1'DEFAULT' .nr #KERN_UNIT 36
.el .nr #KERN_UNIT \\$1
.END
.nr #KERN_UNIT 36
.ds BU   \h'-(\En[#PT_SIZE]u/\n[#KERN_UNIT]u*\\$1u)'
.ds FU   \h'(\En[#PT_SIZE]u/\n[#KERN_UNIT]u*\\$1u)'
.nr #LOOP 0 1
.while \n+[#LOOP]<37 \{\
.ds BU\n[#LOOP]  \h'-(\En[#PT_SIZE]u/\n[#KERN_UNIT]u*\n[#LOOP]u)'
.\}
.nr #LOOP 0 1
.while \n+[#LOOP]<37 \{\
.ds FU\n[#LOOP] \h'(\En[#PT_SIZE]u/\n[#KERN_UNIT]u*\n[#LOOP]u)'
.\}
.rr #LOOP
.ds BCK  \h'-\\$1'
.ds FWD  \h'\\$1'
.ds BP.25    \h'-.25'
.ds BP.5     \h'-.5'
.ds BP.75    \h'-.75'
.ds BP1      \h'-1p'
.ds BP1.25   \h'-1.25p'
.ds BP1.5    \h'-1.5p'
.ds BP1.75   \h'-1.75p'
.ds BP2      \h'-2p'
.ds BP2.25   \h'-2.25p'
.ds BP2.5    \h'-2.5p'
.ds BP2.75   \h'-2.75p'
.ds BP3      \h'-3p'
.ds BP3.25   \h'-3.25p'
.ds BP3.5    \h'-3.5p'
.ds BP3.75   \h'-3.75p'
.ds BP4      \h'-4p'
.ds BP4.25   \h'-4.25p'
.ds BP4.5    \h'-4.5p'
.ds BP4.75   \h'-4.75p'
.ds BP5      \h'-5p'
.ds BP5.25   \h'-5.25p'
.ds BP5.5    \h'-5.5p'
.ds BP5.75   \h'-5.75p'
.ds BP6      \h'-6p'
.ds BP6.25   \h'-6.25p'
.ds BP6.5    \h'-6.5p'
.ds BP6.75   \h'-6.75p'
.ds BP7      \h'-7p'
.ds BP7.25   \h'-7.25p'
.ds BP7.5    \h'-7.5p'
.ds BP7.75   \h'-7.75p'
.ds BP8      \h'-8p'
.ds BP8.25   \h'-8.25p'
.ds BP8.5    \h'-8.5p'
.ds BP8.75   \h'-8.75p'
.ds BP9      \h'-9p'
.ds BP9.25   \h'-9.25p'
.ds BP9.5    \h'-9.5p'
.ds BP9.75   \h'-9.75p'
.ds BP10     \h'-10p'
.ds BP10.25  \h'-10.25p'
.ds BP10.5   \h'-10.5p'
.ds BP10.75  \h'-10.75p'
.ds BP11     \h'-11p'
.ds BP11.25  \h'-11.25p'
.ds BP11.5   \h'-11.5p'
.ds BP11.75  \h'-11.75p'
.ds BP12     \h'-12p'
.ds BP12.25  \h'-12.25p'
.ds BP12.5   \h'-12.5p'
.ds BP12.75  \h'-12.75p'
.ds FP.25    \h'.25'
.ds FP.5     \h'.5'
.ds FP.75    \h'.75'
.ds FP1      \h'1p'
.ds FP1.25   \h'1.25p'
.ds FP1.5    \h'1.5p'
.ds FP1.75   \h'1.75p'
.ds FP2      \h'2p'
.ds FP2.25   \h'2.25p'
.ds FP2.5    \h'2.5p'
.ds FP2.75   \h'2.75p'
.ds FP3      \h'3p'
.ds FP3.25   \h'3.25p'
.ds FP3.5    \h'3.5p'
.ds FP3.75   \h'3.75p'
.ds FP4      \h'4p'
.ds FP4.25   \h'4.25p'
.ds FP4.5    \h'4.5p'
.ds FP4.75   \h'4.75p'
.ds FP5      \h'5p'
.ds FP5.25   \h'5.25p'
.ds FP5.5    \h'5.5p'
.ds FP5.75   \h'5.75p'
.ds FP6      \h'6p'
.ds FP6.25   \h'6.25p'
.ds FP6.5    \h'6.5p'
.ds FP6.75   \h'6.75p'
.ds FP7      \h'7p'
.ds FP7.25   \h'7.25p'
.ds FP7.5    \h'7.5p'
.ds FP7.75   \h'7.75p'
.ds FP8      \h'8p'
.ds FP8.25   \h'8.25p'
.ds FP8.5    \h'8.5p'
.ds FP8.75   \h'8.75p'
.ds FP9      \h'9p'
.ds FP9.25   \h'9.25p'
.ds FP9.5    \h'9.5p'
.ds FP9.75   \h'9.75p'
.ds FP10     \h'10p'
.ds FP10.25  \h'10.25p'
.ds FP10.5   \h'10.5p'
.ds FP10.75  \h'10.75p'
.ds FP11     \h'11p'
.ds FP11.25  \h'11.25p'
.ds FP11.5   \h'11.5p'
.ds FP11.75  \h'11.75p'
.ds FP12     \h'12p'
.ds FP12.25  \h'12.25p'
.ds FP12.5   \h'12.5p'
.ds FP12.75  \h'12.75p'
.MAC RW END
.if \\n[#BR_AT_LINE_KERN] \{\
.ie \\n[#JUSTIFY]=1 .brp
.el .br
.\}
.rr #EW
.rm $EW
.nr #RW 1
.ds $RW \\$1
.tkf \\n[.f] 1 -\\$1 1 -\\$1
.END
.MAC EW END
.if \\n[#BR_AT_LINE_KERN] \{\
.ie \\n[#JUSTIFY]=1 .brp
.el .br
.\}
.rr #RW
.rm $RW
.nr #EW 1
.ds $EW \\$1
.tkf \\n[.f] 1 \\$1 1 \\$1
.END
.MAC BR_AT_LINE_KERN END
.ie '\\$1'' .nr #BR_AT_LINE_KERN  1
.el .rr #BR_AT_LINE_KERN
.END
.MAC HY END
.ie '\\$1'' \{\
.hy 14
.if \\n[#LINES]  .hlm \\n[#LINES]
.if \\n[#MARGIN] .hym \\n[#MARGIN]]
.if \\n[#SPACE]  .hys \\n[#SPACE]
.nr #HYPHENATE 1
.\}
.el \{\
.if !'\\$1'LINES' \{\
.nh
.nr #HYPHENATE 0
.\}
.if !'\\$1'MARGIN' \{\
.nh
.nr #HYPHENATE 0
.\}
.if !'\\$1'SPACE' \{\
.nh
.nr #HYPHENATE 0
.\}
.if !'\\$1'DEFAULT' \{\
.nh
.nr #HYPHENATE 0
.\}
.if '\\$1'LINES'  \{\
.hlm \\$2
.nr #HY_LINES \\$2
.\}
.if '\\$1'MARGIN' \{\
.hym \\$2
.nr #HY_MARGIN \\$2
.\}
.if '\\$1'SPACE'  \{\
.hys \\$2
.nr #HY_SPACE \\$2
.\}
.if '\\$1'DEFAULT' \{\
.hlm -1
.hym 0
.hys 0
.rr #HY_LINES
.rr #HY_SPACE
.rr #HY_MARGIN
.\}
.\}
.END
.MAC HY_SET END
.nr #HY_SET 1
.hlm \\$1
.hym \\$2
.hys \\$3
.END
.MAC ALD END
.br
.if \\n[nl]=0 .nr #TOP 1
.if '\\$0'ALD' \{\
.nr #ALD (\\$1)
.sp \\n[#ALD]u
.\}
.if '\\$0'ADD_SPACE' \{\
.vpt 0
.nr #ALD (\\$1)
.rs
.nop \&
.sp |\\n[#T_MARGIN]u-1v+\\n[#ALD]u
.rr @TOP
.nr #SPACE_ADDED 1
.vpt
.\}
.if '\\$0'SPACE' .sp \\$1
.if '\\$0'SP'    .sp \\$1
.END
.MAC RLD END
.br
.nr #RLD (\\$1)
.sp -\\n[#RLD]u
.END
.ds DOWN      \v'\\$1'
.ds UP        \v'-\\$1'
.ds ALD.25    \v'.25p'
.ds ALD.5     \v'.5p'
.ds ALD.75    \v'.75p'
.ds ALD1      \v'1p'
.ds ALD1.25   \v'1.25p'
.ds ALD1.5    \v'1.5p'
.ds ALD1.75   \v'1.75p'
.ds ALD2      \v'2p'
.ds ALD2.25   \v'2.25p'
.ds ALD2.5    \v'2.5p'
.ds ALD2.75   \v'2.75p'
.ds ALD3      \v'3p'
.ds ALD3.25   \v'3.25p'
.ds ALD3.5    \v'3.5p'
.ds ALD3.75   \v'3.75p'
.ds ALD4      \v'4p'
.ds ALD4.25   \v'4.25p'
.ds ALD4.5    \v'4.5p'
.ds ALD4.75   \v'4.75p'
.ds ALD5      \v'5p'
.ds ALD5.25   \v'5.25p'
.ds ALD5.5    \v'5.5p'
.ds ALD5.75   \v'5.75p'
.ds ALD6      \v'6p'
.ds ALD6.25   \v'6.25p'
.ds ALD6.5    \v'6.5p'
.ds ALD6.75   \v'6.75p'
.ds ALD7      \v'7p'
.ds ALD7.25   \v'7.25p'
.ds ALD7.5    \v'7.5p'
.ds ALD7.75   \v'7.75p'
.ds ALD8      \v'8p'
.ds ALD8.25   \v'8.25p'
.ds ALD8.5    \v'8.5p'
.ds ALD8.75   \v'8.75p'
.ds ALD9      \v'9p'
.ds ALD9.25   \v'9.25p'
.ds ALD9.5    \v'9.5p'
.ds ALD9.75   \v'9.75p'
.ds ALD10     \v'10p'
.ds ALD10.25  \v'10.25p'
.ds ALD10.5   \v'10.5p'
.ds ALD10.75  \v'10.75p'
.ds ALD11     \v'11p'
.ds ALD11.25  \v'11.25p'
.ds ALD11.5   \v'11.5p'
.ds ALD11.75  \v'11.75p'
.ds ALD12     \v'12p'
.ds ALD12.25  \v'12.5p'
.ds ALD12.5   \v'12.5p'
.ds ALD12.75  \v'12.75p'
.ds RLD.25    \v'-.25p'
.ds RLD.5     \v'-.5p'
.ds RLD.75    \v'-.75p'
.ds RLD1      \v'-1p'
.ds RLD1.25   \v'-1.25p'
.ds RLD1.5    \v'-1.5p'
.ds RLD1.75   \v'-1.75p'
.ds RLD2      \v'-2p'
.ds RLD2.25   \v'-2.25p'
.ds RLD2.5    \v'-2.5p'
.ds RLD2.75   \v'-2.75p'
.ds RLD3      \v'-3p'
.ds RLD3.25   \v'-3.25p'
.ds RLD3.5    \v'-3.5p'
.ds RLD3.75   \v'-3.75p'
.ds RLD4      \v'-4p'
.ds RLD4.25   \v'-4.25p'
.ds RLD4.5    \v'-4.5p'
.ds RLD4.75   \v'-4.75p'
.ds RLD5      \v'-5p'
.ds RLD5.25   \v'-5.25p'
.ds RLD5.5    \v'-5.5p'
.ds RLD5.75   \v'-5.75p'
.ds RLD6      \v'-6p'
.ds RLD6.25   \v'-6.25p'
.ds RLD6.5    \v'-6.5p'
.ds RLD6.75   \v'-6.75p'
.ds RLD7      \v'-7p'
.ds RLD7.25   \v'-7.25p'
.ds RLD7.5    \v'-7.5p'
.ds RLD7.75   \v'-7.75p'
.ds RLD8      \v'-8p'
.ds RLD8.25   \v'-8.25p'
.ds RLD8.5    \v'-8.5p'
.ds RLD8.75   \v'-8.75p'
.ds RLD9      \v'-9p'
.ds RLD9.25   \v'-9.25p'
.ds RLD9.5    \v'-9.5p'
.ds RLD9.75   \v'-9.75p'
.ds RLD10     \v'-10p'
.ds RLD10.25  \v'-10.25p'
.ds RLD10.5   \v'-10.5p'
.ds RLD10.75  \v'-10.75p'
.ds RLD11     \v'-11p'
.ds RLD11.25  \v'-11.25p'
.ds RLD11.5   \v'-11.5p'
.ds RLD11.75  \v'-11.75p'
.ds RLD12     \v'-12p'
.ds RLD12.25  \v'-12.5p'
.ds RLD12.5   \v'-12.5p'
.ds RLD12.75  \v'-12.75p'
.MAC LIGATURES END
.ie '\\$1'' \{\
.lg
.nr #LIGATURES 1
.\}
.el \{\
.lg 0
.nr #LIGATURES 0
.\}
.END
.char " \\*[$QUOTE\\n[#OPEN_CLOSE]]\R'#OPEN_CLOSE (1-\\n[#OPEN_CLOSE])'
.nr #SQ_ON 0
.MAC SMARTQUOTES END
.nr #OPEN_CLOSE 0
.if '\\$1'' \{\
.if !'\\*[$RESTORE_SQ]'' \{\
.SMARTQUOTES \\*[$RESTORE_SQ]
.return
.\}
.ds $QUOTE0 \[lq]
.ds $QUOTE1 \[rq]
.ds $RESTORE_SQ EN
.nr #SQ_ON 1
.return
.\}
.if '\\$1',,' \{\
.ds $QUOTE0 \[Bq]
.ds $QUOTE1 \[lq]
.ds $RESTORE_SQ \\$1
.nr #SQ_ON 1
.return
.\}
.if '\\$1'<<' \{\
.ds $QUOTE0 \[Fo]
.ds $QUOTE1 \[Fc]
.ds $RESTORE_SQ \\$1
.nr #SQ_ON 1
.return
.\}
.if '\\$1'>>' \{\
.ds $QUOTE0 \[Fc]
.ds $QUOTE1 \[Fo]
.ds $RESTORE_SQ \\$1
.nr #SQ_ON 1
.return
.\}
.if '\\$1'DA' \{\
.ds $QUOTE0 \[Fc]
.ds $QUOTE1 \[Fo]
.ds $RESTORE_SQ \\$1
.nr #SQ_ON 1
.return
.\}
.if '\\$1'DE' \{\
.ds $QUOTE0 \[Bq]
.ds $QUOTE1 \[lq]
.ds $RESTORE_SQ \\$1
.nr #SQ_ON 1
.return
.\}
.if '\\$1'EN' \{\
.ds $QUOTE0 \[lq]
.ds $QUOTE1 \[rq]
.ds $RESTORE_SQ \\$1
.nr #SQ_ON 1
.return
.\}
.if '\\$1'ES' \{\
.ds $QUOTE0 \[lq]
.ds $QUOTE1 \[rq]
.ds $RESTORE_SQ \\$1
.nr #SQ_ON 1
.return
.\}
.if '\\$1'FR' \{\
.ds $QUOTE0 \[Fo]\|
.ds $QUOTE1 \|\[Fc]
.ds $RESTORE_SQ \\$1
.nr #SQ_ON 1
.return
.\}
.if '\\$1'IT' \{\
.ds $QUOTE0 \[Fo]\|
.ds $QUOTE1 \|\[Fc]
.ds $RESTORE_SQ \\$1
.nr #SQ_ON 1
.return
.\}
.if '\\$1'NL' \{\
.ds $QUOTE0 \[rq]
.ds $QUOTE1 \[rq]
.ds $RESTORE_SQ \\$1
.nr #SQ_ON 1
.return
.\}
.if '\\$1'NO' \{\
.ds $QUOTE0 \[Fo]
.ds $QUOTE1 \[Fc]
.ds $RESTORE_SQ \\$1
.nr #SQ_ON 1
.return
.\}
.if '\\$1'PT' \{\
.ds $QUOTE0 \[Fo]
.ds $QUOTE1 \[Fc]
.ds $RESTORE_SQ \\$1
.nr #SQ_ON 1
.return
.\}
.if '\\$1'SV' \{\
.ds $QUOTE0 \[Fc]
.ds $QUOTE1 \[Fc]
.ds $RESTORE_SQ \\$1
.nr #SQ_ON 1
.return
.\}
.ds $QUOTE0 \[dq]
.ds $QUOTE1 \[dq]
.nr #SQ_ON 0
.END
.ds $QUOTE0 \[lq]
.ds $QUOTE1 \[rq]
.ds FOOT \[fm]
.ds INCH \[fm]\[fm]
.MAC EL END
.TRAP OFF
.if \\n[#PSEUDO_FILL]=1 \&
.br
.sp -1v
.TRAP
.END
.ds B \h'|0'\R'#NO_ADVANCE 1'\c
.MAC JUSTIFY END
.if \\n[#TAB_ACTIVE]=0 \{\
.nr #QUAD 1
.ds $RESTORE_QUAD_VALUE \\*[$QUAD_VALUE]
.\}
'    ce 0
.QUAD J
.if \\n[#PRINT_STYLE]=1 .QUAD L
.nr #PSEUDO_FILL 0
.END
.MAC QUAD END
.ds $QUAD_VALUE \\$1
.if \\n[#TAB_ACTIVE]=0 \{\
.nr #QUAD 1
.ds $RESTORE_QUAD_VALUE \\*[$QUAD_VALUE]
.\}
'    ce 0
'    fi
.if '\\*[$QUAD_VALUE]'L' \{\
.nr #JUSTIFY 0
.ad l
.\}
.if '\\*[$QUAD_VALUE]'LEFT' \{\
.nr #JUSTIFY 0
.ad l
.\}
.if '\\*[$QUAD_VALUE]'R' \{\
.nr #JUSTIFY 0
.ad r
.\}
.if '\\*[$QUAD_VALUE]'RIGHT' \{\
.nr #JUSTIFY 0
.ad r
.\}
.if '\\*[$QUAD_VALUE]'C' \{\
.nr #JUSTIFY 0
.ad c
.\}
.if '\\*[$QUAD_VALUE]'CENTER' \{\
.nr #JUSTIFY 0
.ad c
.\}
.if '\\*[$QUAD_VALUE]'CENTRE' \{\
.nr #JUSTIFY 0
.ad c
.\}
.if '\\*[$QUAD_VALUE]'J' \{\
.nr #JUSTIFY 1
.ad b
.\}
.if '\\*[$QUAD_VALUE]'JUSTIFY' \{\
.nr #JUSTIFY 1
.ad b
.\}
.nr #PSEUDO_FILL 0
.END
.MAC LEFT END
.if \\n[#TAB_ACTIVE]=0 \{\
.rr #QUAD
.ds $RESTORE_QUAD_VALUE LEFT
.\}
.ce 0
.nf
.nr #PSEUDO_FILL 1
.if '\\n[.z]'LETTERHEAD1' .rr #DATE_FIRST
.END
.MAC RIGHT END
.if \\n[#TAB_ACTIVE]=0 \{\
.rr #QUAD
.ds $RESTORE_QUAD_VALUE RIGHT
.\}
.nf
.rj 100000
.nr #PSEUDO_FILL 1
.END
.MAC CENTER END
.if \\n[#TAB_ACTIVE]=0 \{\
.rr #QUAD
.ds $RESTORE_QUAD_VALUE CENTER
.\}
.nf
.ce 100000
.nr #PSEUDO_FILL 1
.END
.nr #LOOP 0 1
.while \n+[#LOOP]<20 \{\
.ds ST\n[#LOOP] \Ek[#ST\n[#LOOP]_OFFSET]
.\}
.nr #LOOP 0 1
.while \n+[#LOOP]<20 \{\
.ds ST\n[#LOOP]X \Ek[#ST\n[#LOOP]_MARK]
.\}
.rr #LOOP
.ds ST100  \Ek[#ST100_OFFSET]
.ds ST100X \Ek[#ST100_MARK]
.ds ST101  \Ek[#ST101_OFFSET]
.ds ST101X \Ek[#ST101_MARK]
.ds ST102  \Ek[#ST102_OFFSET]
.ds ST102X \Ek[#ST102_MARK]
.ds ST103  \Ek[#ST103_OFFSET]
.ds ST103X \Ek[#ST103_MARK]
.MAC ST END
.ds $ST\\$1_QUAD_DIR \\$2
.if \\n[#NUM_ARGS]=3 .ds $ST\\$1_FILL QUAD
.nr #ST\\$1_LENGTH \\n[#ST\\$1_MARK]-\\n[#ST\\$1_OFFSET]
.ie \\n[#IN_TAB] \
.TAB_SET \\$1 \\n[#ST\\$1_OFFSET]u+\\n[#ST_OFFSET]u \
          \\n[#ST\\$1_LENGTH]u \\*[$ST\\$1_QUAD_DIR] \\*[$ST\\$1_FILL]
.el \
.TAB_SET \\$1 \\n[#ST\\$1_OFFSET]u \\n[#ST\\$1_LENGTH]u \
          \\*[$ST\\$1_QUAD_DIR] \\*[$ST\\$1_FILL]
.END
.MAC TAB_SET END
.br
.nr #TAB_NUMBER \\$1
.ds $CURRENT_TAB \\n[#TAB_NUMBER]
.nr #TAB_OFFSET (\\$2)
.nr #TAB_LENGTH (\\$3)
.MAC TAB\\n[#TAB_NUMBER]
.if !\\\\n[#TB+]=1 .br
.if \\\\n[#TB+]=1 \{\
.EL
.vpt 0
.rr #TB+
.\}
.in 0
.nr #TAB_ACTIVE 1
.nr #CURRENT_TAB \\n[#TAB_NUMBER]
.ds $CURRENT_TAB \\*[$CURRENT_TAB]
.nr #TAB_OFFSET\\*[$CURRENT_TAB] \\n[#TAB_OFFSET]
.nr #ST_OFFSET \\n[#TAB_OFFSET]
.ie !'\\\\n[.z]'' \
\!.         po \\\\n[#L_MARGIN]u+\\\\n[#TAB_OFFSET\\\\*[$CURRENT_TAB]]u
.el \
.po \\\\n[#L_MARGIN]u+\\\\n[#TAB_OFFSET\\\\*[$CURRENT_TAB]]u
.ll \\n[#TAB_LENGTH]u
.ta \En[.l]u
.ie '\\$5'QUAD' \{\
.if '\\$4'L' .QUAD L
.if '\\$4'R' .QUAD R
.if '\\$4'C' .QUAD C
.if '\\$4'J' .JUSTIFY
.\}
.el \{\
.if '\\$4''  .LEFT
.if '\\$4'L' .LEFT
.if '\\$4'R' .RIGHT
.if '\\$4'C' .CENTER
.if '\\$4'J' .JUSTIFY
.\}
.if \\\\n[#TN]=1 \{\
.TRAP
.rr #TN
.\}
..
.rr #TAB_ACTIVE
.END
.MAC TAB END
.ds $TAB_NUMBER \\$1
.TAB\\*[$TAB_NUMBER]
.nr #IN_TAB 1
.END
.MAC TN END
.nr #TN 1
.TRAP OFF
.sp -1v
.nr #NEXT_TAB \\n[#CURRENT_TAB]+1
.TAB\\n[#NEXT_TAB]
.TRAP
.END
.ds TB+ \
"\c\R'#TB+ 1'\R'#TN 1'\R'#NEXT_TAB \\n[#CURRENT_TAB]+1'\\*[TAB\\n[#NEXT_TAB]]\c
.MAC TQ END
.br
.rr #TAB_ACTIVE
.rr #IN_TAB
.nr #LOOP 0 1
.while \\n+[#LOOP]<20 \{\
.rm $ST\\n[#LOOP]_FILL
.\}
.rr #LOOP
.po \\n[#L_MARGIN]u
.ll \\n[#L_LENGTH]u
.ta \\n[.l]u
.ie \\n[#QUAD] \{\
.ie '\\*[$RESTORE_QUAD_VALUE]'J' .JUSTIFY
.el .QUAD \\*[$RESTORE_QUAD_VALUE]
.\}
.el \{\
.if '\\*[$RESTORE_QUAD_VALUE]'LEFT' .LEFT
.if '\\*[$RESTORE_QUAD_VALUE]'RIGHT' .RIGHT
.if '\\*[$RESTORE_QUAD_VALUE]'CENTER' .CENTER
.\}
.END
.MAC COLOR END
.ie \\n[.u]=1 \{\
\c
\\*[\\$1]\c
.\}
.el \\*[\\$1]
.END
.MAC NEWCOLOR END
.if \\n[#NUM_ARGS]=2 .defcolor \\$1 rgb \\$2
.if \\n[#NUM_ARGS]=3 \{\
.if '\\$2'RGB' .ds $COLOR_SCHEME rgb
.if '\\$2'CYM' .ds $COLOR_SCHEME cym
.if '\\$2'CMYK' .ds $COLOR_SCHEME cmyk
.if '\\$2'GRAY' .ds $COLOR_SCHEME gray
.if '\\$2'GREY' .ds $COLOR_SCHEME gray
.defcolor \\$1  \\*[$COLOR_SCHEME] \\$3
.\}
.ds \\$1 \\m[\\$1]
.END
.MAC XCOLOR END
.ds \\$1 \m[\\$1]
.if \\n[#NUM_ARGS]=2 \{\
.ds \\$2 \m[\\$1]
.ds $\\$2_FILL \\$1
.ds COLAL_\\$2 \\$1
.\}
.END
.ds black \m[black]
.ds BLACK \m[black]
.ds white \m[white]
.ds WHITE \m[WHITE]
.nr _w 500
.nr _d 1250
.MAC UNDERLINE_SPECS END
.ie \B'\\$1' .nr _w (u;\\$1)
.el \{\
.ie '\\$1'DEFAULT' .nr _w 500
.el \{\
.nr _w 500
.tm1 "[mom]: The first argument to \\$0 must be a numeric
.tm1 "       argument with a unit of measure appended, or DEFAULT.
.tm1 "       Setting underline weight to DEFAULT.
.\}
.\}
.shift
.ie \B'\\$1' .nr _d (u;\\$1)
.el \{\
.ie '\\$1'DEFAULT' .nr _d 1250
.el \{\
.nr _d 1250
.tm1 "[mom]: The second argument to \\$0 must be a numeric
.tm1 "       argument with a unit of measure appended, or DEFAULT.
.tm1 "       Setting underline distance from baseline to DEFAULT.
.\}
.\}
.END
.MAC UNDERLINE END
\c
.ds $SAVED_SS_VAR \\*[$SS_VAR]
.ie '\\$1'' \{\
.nr #UNDERLINE_ON 1
.ss \\n[.ss] (\\n[.ss]-\\n[.ss])
.ie !n .nop \X'ps: exec \\n[_w] \\n[_d] decorline'\c
.el .ul 1000
.\}
.el \{\
.nr #UNDERLINE_ON 0
.SS \\*[$SAVED_SS_VAR]
.ie !n .nop \X'ps: exec decornone'\c
.el .ul 0
.\}
.END
.MAC UL END
\c
.ds $SAVED_SS_VAR \\*[$SS_VAR]
.ss \\n[.ss] (\\n[.ss]-\\n[.ss])
.ie !'\\n[.z]'' \{\
\c
.ie !n \{\
.if !\\n[.k]=0 \?\h'-\w'\\n[.ss]'u'\?
\?\R'#UNDERLINE_ON 1'\X'ps: exec \\n[_w] \\n[_d] decorline'\?\c
.\}
.el \{\
\?\R'#UNDERLINE_ON 1'\?\c
.ul 1000
.\}
.\}
.el \{\
.ie !n \{\
.nr #UNDERLINE_ON 1
.nop \X'ps: exec \\n[_w] \\n[_d] decorline'\c
.\}
.el \{\
\R'#UNDERLINE_ON 1'\c
.ul 1000
.\}
.\}
.END
.MAC ULX END
\c
.SS \\*[$SAVED_SS_VAR]
.rm $SAVED_SS_VAR
.ie !'\\n[.z]'' \{\
\c
.ie !n \{\
\?\R'#UNDERLINE_ON 0'\X'ps: exec decornone'\?\c
.\}
.el \{\
\?\R'#UNDERLINE_ON 0'\?\c
.ul 0
.\}
.\}
.el \{\
.ie !n \{\
.nr #UNDERLINE_ON 0
.nop \X'ps: exec decornone'\c
.\}
.el \{\
.nr #UNDERLINE_ON 0
.ul 0
.\}
.\}
.END
.MAC UNDERSCORE END
.nr #SAVED_UNDERSCORE_WEIGHT     \\n[#UNDERSCORE_WEIGHT]
.nr #SAVED_UNDERSCORE_WEIGHT_ADJ \\n[#UNDERSCORE_WEIGHT_ADJ]
.ds $SAVED_UNDERSCORE_GAP        \\*[$UNDERSCORE_GAP]
.if \\n[#FROM_BIB_STRING]=1 \{\
.nr #UNDERSCORE_WEIGHT        \\n[#BIB_STRING_UNDERLINE_WEIGHT]
.nr #UNDERSCORE_WEIGHT_ADJ    \\n[#BIB_STRING_UNDERLINE_WEIGHT_ADJ]
.ds $UNDERSCORE_GAP           \\*[$BIB_STRING_UNDERLINE_GAP]
.\}
.if \\n[#FROM_COVER]=1 \{\
.nr #UNDERSCORE_WEIGHT        \\n[#COVER_UNDERLINE_WEIGHT]
.nr #UNDERSCORE_WEIGHT_ADJ    \\n[#COVER_UNDERLINE_WEIGHT_ADJ]
.ds $UNDERSCORE_GAP           \\*[$COVER_UNDERLINE_GAP]
.\}
.if \\n[#FROM_DOC_COVER]=1 \{\
.nr #UNDERSCORE_WEIGHT        \\n[#DOC_COVER_UNDERLINE_WEIGHT]
.nr #UNDERSCORE_WEIGHT_ADJ    \\n[#DOC_COVER_UNDERLINE_WEIGHT_ADJ]
.ds $UNDERSCORE_GAP           \\*[$DOC_COVER_UNDERLINE_GAP]
.\}
.if \\n[#FROM_DOCTYPE]=1 \{\
.nr #UNDERSCORE_WEIGHT        \\n[#DOCTYPE_UNDERLINE_WEIGHT]
.nr #UNDERSCORE_WEIGHT_ADJ    \\n[#DOCTYPE_UNDERLINE_WEIGHT_ADJ]
.ds $UNDERSCORE_GAP           \\*[$DOCTYPE_UNDERLINE_GAP]
.\}
.if \\n[#FROM_EN_STRING]=1 \{\
.nr #UNDERSCORE_WEIGHT        \\n[#EN_STRING_UNDERLINE_WEIGHT]
.nr #UNDERSCORE_WEIGHT_ADJ    \\n[#EN_STRING_UNDERLINE_WEIGHT_ADJ]
.ds $UNDERSCORE_GAP           \\*[$EN_STRING_UNDERLINE_GAP]
.\}
.if \\n[#FROM_EN_TITLE]=1 \{\
.nr #UNDERSCORE_WEIGHT        \\n[#EN_TITLE_UNDERLINE_WEIGHT]
.nr #UNDERSCORE_WEIGHT_ADJ    \\n[#EN_TITLE_UNDERLINE_WEIGHT_ADJ]
.ds $UNDERSCORE_GAP           \\*[$EN_TITLE_UNDERLINE_GAP]
.\}
.ie \\n[#NUM_ARGS]=1 \{\
.nr #TEXT_WIDTH \w'\\$1'
\\$1\
\D't \\n[#UNDERSCORE_WEIGHT]'\
\h'-\\n[#TEXT_WIDTH]u-\\n[#UNDERSCORE_WEIGHT]u'\
\v'+(\\*[$UNDERSCORE_GAP])+\\n[#UNDERSCORE_WEIGHT_ADJ]u'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\D't \\n[#RULE_WEIGHT]'\
\h'-\\n[#RULE_WEIGHT]u'\
\v'-(\\*[$UNDERSCORE_GAP])-\\n[#UNDERSCORE_WEIGHT_ADJ]u'
.\}
.el \{\
.nr #TEXT_WIDTH \w'\\$2'
\\$2\
\h'-\\n[#TEXT_WIDTH]u-\\n[#UNDERSCORE_WEIGHT]u'\
\v'+(\\$1)+\\n[#UNDERSCORE_WEIGHT_ADJ]u'\
\D't \\n[#UNDERSCORE_WEIGHT]'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\D't \\n[#RULE_WEIGHT]'\
\h'-\\n[#RULE_WEIGHT]u'\
\v'-(\\$1)-\\n[#UNDERSCORE_WEIGHT_ADJ]u'
.\}
.nr #UNDERSCORE_WEIGHT     \\n[#SAVED_UNDERSCORE_WEIGHT]
.nr #UNDERSCORE_WEIGHT_ADJ \\n[#SAVED_UNDERSCORE_WEIGHT_ADJ]
.ds $UNDERSCORE_GAP        \\*[$SAVED_UNDERSCORE_GAP]
.rr #SAVED_UNDERSCORE_WEIGHT
.rr #SAVED_UNDERSCORE_WEIGHT_ADJ
.rm $SAVED_UNDERSCORE_GAP
.END
.MAC UNDERSCORE2 END
.nr #SAVED_UNDERSCORE_WEIGHT     \\n[#UNDERSCORE_WEIGHT]
.nr #SAVED_UNDERSCORE_WEIGHT_ADJ \\n[#UNDERSCORE_WEIGHT_ADJ]
.ds $SAVED_UNDERSCORE_GAP        \\*[$UNDERSCORE_GAP]
.ds $SAVED_RULE_GAP              \\*[$RULE_GAP]
.if \\n[#NUM_ARGS]=2 \{\
.ds $UNDERSCORE_GAP \\$1
.\}
.if \\n[#NUM_ARGS]=3 \{\
.ds $UNDERSCORE_GAP \\$1
.ds $RULE_GAP \\$2
.\}
.if \\n[#FROM_BIB_STRING] \{\
.nr #UNDERSCORE_WEIGHT        \\n[#BIB_STRING_UNDERLINE_WEIGHT]
.nr #UNDERSCORE_WEIGHT_ADJ    \\n[#BIB_STRING_UNDERLINE_WEIGHT_ADJ]
.ds $UNDERSCORE_GAP           \\*[$BIB_STRING_UNDERLINE_GAP]
.ds $RULE_GAP                 \\*[$BIB_STRING_RULE_GAP]
.\}
.if \\n[#FROM_EN_STRING] \{\
.nr #UNDERSCORE_WEIGHT        \\n[#EN_STRING_UNDERLINE_WEIGHT]
.nr #UNDERSCORE_WEIGHT_ADJ    \\n[#EN_STRING_UNDERLINE_WEIGHT_ADJ]
.ds $UNDERSCORE_GAP           \\*[$EN_STRING_UNDERLINE_GAP]
.ds $RULE_GAP                 \\*[$EN_STRING_RULE_GAP]
.\}
.if \\n[#NUM_ARGS]=1 \{\
.nr #TEXT_WIDTH \w'\\$1'
\\$1\
\D't \\n[#UNDERSCORE_WEIGHT]'\
\v'+\\*[$UNDERSCORE_GAP]+\\n[#UNDERSCORE_WEIGHT_ADJ]u'\
\h'-\\n[#TEXT_WIDTH]u-\\n[#UNDERSCORE_WEIGHT]u'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\v'+\\*[$RULE_GAP]+\\n[#UNDERSCORE_WEIGHT]u'\
\h'-\\n[#TEXT_WIDTH]u'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\D't \\n[#RULE_WEIGHT]'\
\h'-\\n[#RULE_WEIGHT]u'\
\v'-(\\*[$UNDERSCORE_GAP]+\\*[$RULE_GAP])-(\\n[#UNDERSCORE_WEIGHT]u*2u)'
.\}
.if \\n[#NUM_ARGS]=2 \{\
.nr #TEXT_WIDTH \w'\\$2'
\\$2\
\D't \\n[#UNDERSCORE_WEIGHT]'\
\v'+\\*[$UNDERSCORE_GAP]+\\n[#UNDERSCORE_WEIGHT_ADJ]u'\
\h'-\\n[#TEXT_WIDTH]u-\\n[#UNDERSCORE_WEIGHT]u'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\v'+(\\*[$RULE_GAP])+\\n[#UNDERSCORE_WEIGHT]u'\
\h'-\\n[#TEXT_WIDTH]u'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\D't \\n[#RULE_WEIGHT]'\
\h'-\\n[#RULE_WEIGHT]u'\
\v'-(\\*[$UNDERSCORE_GAP]+\\*[$RULE_GAP])+(\\n[#UNDERSCORE_WEIGHT]u*2u)'
.\}
.if \\n[#NUM_ARGS]=3 \{\
.nr #TEXT_WIDTH \w'\\$3'
\\$3\
\D't \\n[#UNDERSCORE_WEIGHT]'\
\v'+\\*[$UNDERSCORE_GAP]+\\n[#UNDERSCORE_WEIGHT_ADJ]u'\
\h'-\\n[#TEXT_WIDTH]u-\\n[#UNDERSCORE_WEIGHT]u'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\v'+\\*[$RULE_GAP]+\\n[#UNDERSCORE_WEIGHT]u'\
\h'-\\n[#TEXT_WIDTH]u'\
\D'l \\n[#TEXT_WIDTH]u 0'\
\D't \\n[#RULE_WEIGHT]'\
\h'-\\n[#RULE_WEIGHT]u'\
\v'-(\\*[$UNDERSCORE_GAP]+\\*[$RULE_GAP])-(\\n[#UNDERSCORE_WEIGHT]u*2u)'
.\}
.nr #UNDERSCORE_WEIGHT     \\n[#SAVED_UNDERSCORE_WEIGHT]
.nr #UNDERSCORE_WEIGHT_ADJ \\n[#SAVED_UNDERSCORE_WEIGHT_ADJ]
.ds $UNDERSCORE_GAP        \\*[$SAVED_UNDERSCORE_GAP]
.rr #SAVED_UNDERSCORE_WEIGHT
.rr #SAVED_UNDERSCORE_WEIGHT_ADJ
.rm $SAVED_UNDERSCORE_GAP
.rm $SAVED_RULE_GAP
.END
.ds $BIB_STRING_UNDERLINE_GAP 2p
.ds $BIB_STRING_RULE_GAP      2p
.ds $COVER_UNDERLINE_GAP      2p
.ds $DOC_COVER_UNDERLINE_GAP  2p
.ds $DOCTYPE_UNDERLINE_GAP    2p
.ds $EN_STRING_UNDERLINE_GAP  2p
.ds $EN_STRING_RULE_GAP       2p
.ds $EN_TITLE_UNDERLINE_GAP   2p
.ds $RULE_GAP                 2p
.ds $UNDERSCORE_GAP           2p
.ds $SUP_RAISE \v'-.3m'
.ds $SUP_LOWER \v'.3m'
.MAC SUPERSCRIPT_RAISE_AMOUNT END
.ds $SUP_RAISE_AMOUNT \\$1
.ds $SUP_RAISE \v'-\\*[$SUP_RAISE_AMOUNT]'
.ds $SUP_LOWER \v'\\*[$SUP_RAISE_AMOUNT]'
.END
.ds SUP \
\R'#PT_SIZE_IN_UNITS \En[.ps]'\
\R'#SUP_PT_SIZE \En[#PT_SIZE_IN_UNITS]u*6u/10u'\
\s[\En[#PT_SIZE_IN_UNITS]u]\E*[$SUP_RAISE]\s[\En[#SUP_PT_SIZE]u]
.ds SUPX \s[\En[#PT_SIZE_IN_UNITS]u]\E*[$SUP_LOWER]
.ds CONDSUP \
\R'#PT_SIZE_IN_UNITS \En[.ps]'\
\R'#SUP_PT_SIZE \En[#PT_SIZE_IN_UNITS]u*6u/10u'\
\s[\En[#PT_SIZE_IN_UNITS]u]\E*[$SUP_RAISE]\s[\En[#SUP_PT_SIZE]u]\E*[COND_FOR_SUP]
.ds CONDSUPX \s[\En[#PT_SIZE_IN_UNITS]u]\E*[$SUP_LOWER]\E*[COND]
.ds EXTSUP \
\R'#PT_SIZE_IN_UNITS \En[.ps]'\
\R'#SUP_PT_SIZE \En[#PT_SIZE_IN_UNITS]u*6u/10u'\
\s[\En[#PT_SIZE_IN_UNITS]u]\E*[$SUP_RAISE]\s[\En[#SUP_PT_SIZE]u]\E*[EXT_FOR_SUP]
.ds EXTSUPX \s[\En[#PT_SIZE_IN_UNITS]u]\E*[$SUP_LOWER]\E*[EXT]
.nr #DEGREES 15
.ds SLANT \ER'#SLANT_ON 1'\ES'\En[#DEGREES]'
.ds SLANTX \ER'#SLANT_ON 0'\ES'0'
.MAC SETSLANT END
.ie '\\$1'RESET' \{\
.nr #DEGREES 15
.if \\n[#PRINT_STYLE]=1 \
.if \\n[#UNDERLINE_SLANT] .return
.ds SLANT \ER'#SLANT_ON 1'\ES'\En[#DEGREES]'
.\}
.el \{\
.nr #DEGREES \\$1
.if \\n[#PRINT_STYLE]=1 \
.if \\n[#UNDERLINE_SLANT] .return
.ds SLANT \ER'#SLANT_ON 1'\ES'\En[#DEGREES]'
.\}
.ds SLANTX \ER'#SLANT_ON 0'\ES'0'
.END
.nr #BOLDER_UNITS 700
.MAC SETBOLDER END
.if \\n[#IGNORE]=1 .return
.ie '\\$1'RESET' .nr #BOLDER_UNITS 700
.el              .nr #BOLDER_UNITS \\$1
.END
.MAC BOLDER END
\c
.bd \\n[.f] \\n[#BOLDER_UNITS]
.END
.MAC BOLDERX END
\c
.bd \\n[.f]
.END
.MAC CONDENSE_OR_EXTEND END
.if '\\$0'CONDENSE' \{\
.ds $COND_PERCENT \\$1
.if \\n[#PRINT_STYLE]=1 \{\
.rm $COND_PERCENT
.ds $COND_PERCENT 100
.\}
.ds COND \
\R'#PT_SIZE_IN_UNITS \En[.ps]'\
\R'#CONDENSE 1'\
\R'#COND_WIDTH (\En[#PT_SIZE_IN_UNITS]u*\E*[$COND_PERCENT]u)/100'\
\Es[\En[#COND_WIDTH]u]\EH'\En[#PT_SIZE_IN_UNITS]u'
.ds COND_FOR_SUP \
\R'#COND_WIDTH (\En[#SUP_PT_SIZE]u*\E*[$COND_PERCENT]u)/100'\
\Es[\En[#COND_WIDTH]u]\H'\En[#SUP_PT_SIZE]u'
.\}
.if '\\$0'EXTEND' \{\
.ds $EXT_PERCENT \\$1
.if \\n[#PRINT_STYLE]=1 \{\
.rm $EXT_PERCENT
.ds $EXT_PERCENT 100
.\}
.ds EXT \
\R'#PT_SIZE_IN_UNITS \En[.ps]'\
\R'#EXTEND 1'\
\R'#EXT_WIDTH (\En[#PT_SIZE_IN_UNITS]u*\E*[$EXT_PERCENT]u)/100'\
\Es[\En[#EXT_WIDTH]u]\EH'\En[#PT_SIZE_IN_UNITS]u'
.ds EXT_FOR_SUP \
\R'#EXT_WIDTH (\En[#SUP_PT_SIZE]u*\E*[$EXT_PERCENT]u)/100'\
\Es[\En[#EXT_WIDTH]u]\H'\En[#EXT_PT_SIZE]u'
.\}
.END
.ds CONDX \
\ER'#CONDENSE 0'\Es[0]\R'#PT_SIZE_IN_UNITS \En[.ps]'\H'\En[#PT_SIZE_IN_UNITS]u'
.ds EXTX  \
\ER'#EXTEND   0'\Es[0]\R'#PT_SIZE_IN_UNITS \En[.ps]'\H'\En[#PT_SIZE_IN_UNITS]u'
.MAC PAD_MARKER END
.ds $PAD_MARKER \\$1
.END
.MAC PAD END
.if \\n[.u]=1 .nr fill 1
.nf
.if !d$PAD_MARKER .ds $PAD_MARKER #
.char \\*[$PAD_MARKER] \R'#PAD_COUNT \En[#PAD_COUNT]+1'
.ds $FAMILY_FOR_PAD \\n[.fam]
.ds $FONT_FOR_PAD   \\n[.sty]
.nr #SIZE_FOR_PAD   \\n[.ps]
.ds $PAD_STRING \\$1
.as $PAD_STRING \Ekp
.di PAD_STRING
.fam \\*[$FAMILY_FOR_PAD]
\\f[\\*[$FONT_FOR_PAD]]\\s[\\n[#SIZE_FOR_PAD]u]\\*[$PAD_STRING]
.br
.di
.char \\*[$PAD_MARKER] \
\R'#SPACE_TO_END \En[.l]-\En[p]'\R'#PAD_SPACE \En[#SPACE_TO_END]/\En[#PAD_COUNT]'
.di PAD_STRING
.fam \\*[$FAMILY_FOR_PAD]
\\f[\\*[$FONT_FOR_PAD]]\\s[\\n[#SIZE_FOR_PAD]u]\\*[$PAD_STRING]
.br
.di
.char \\*[$PAD_MARKER] \h'\En[#PAD_SPACE]u'
.if \\n[#SILENT] .SILENT
.fam \\*[$FAMILY_FOR_PAD]
\\f[\\*[$FONT_FOR_PAD]]\\s[\\n[#SIZE_FOR_PAD]u]
.ie '\\$2'' .nop \\*[$PAD_STRING]
.el \{\
.ie !'\\$2'NOBREAK' .pdfhref L -D "\\$2" -E -- \&\\*[$PAD_STRING]
.el .nop \\*[$PAD_STRING]
.\}
.if \\n[#SILENT] .SILENT OFF
.br
.if \\n[fill] \{\
.fi
.rr fill
.\}
.rr #PAD_COUNT
.rr #SPACE_TO_END
.rr #PAD_SPACE
.rm $PAD_STRING
.rm PAD_STRING
.rchar #
.if '\\$2'NOBREAK' \{\
.TRAP OFF
.EOL
.TRAP
.\}
.END
.MAC LEADER_CHARACTER END
.lc \\$1
.END
.ds LEADER 
.MAC DROPCAP_FAMILY END
.ds $DC_FAM \\$1
.END
.MAC DROPCAP_FONT END
.ds $DC_FT \\$1
.END
.MAC DROPCAP_COLOR END
.if \\n[#PRINT_STYLE]=1 .return
.nr #DC_COLOR 1
.ds $DC_COLOR \\$1
.END
.MAC DROPCAP_GUTTER END
.nr #DC_GUT (\\$1)
.END
.MAC DROPCAP_ADJUST END
.ds $DC_ADJUST \\$1
.END
.MAC DROPCAP END
.if \\n[#IGNORE]=1 \{\
.PRINT \\$1\c
.return
.\}
.br
.if n \{\
.PRINT \\$1\c
.return
.\}
.if \\n[#DOCS] \{\
.if \\n[#PRINT_STYLE]=1 \{\
.PRINT \\$1\c
.return
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.if \\n[#PP_STYLE]=2 \{\
.PRINT \\$1\c
.return
.\}
.if \\n[#PP]>1 \{\
.PRINT \\$1\c
.return
.\}
.ti 0
.\}
.\}
.ds $DROPCAP         \\$1
.nr #DC_LINES        \\$2-1
.if \\n[#CONDENSE]=1 \{\
.ds $RESTORE_COND \\*[$COND_PERCENT]
\\*[CONDX]
.nr #CONDENSE_WAS_ON 1
.\}
.if \\n[#EXTEND]=1 \{\
.ds $RESTORE_EXT \\*[$EXT_PERCENT]
\\*[EXTX]
.nr #EXTEND_WAS_ON 1
.\}
.if '\\$3'COND' .CONDENSE \\$4
.if '\\$3'EXT' .EXTEND \\$4
.if !r#DC_GUT .nr #DC_GUT (3p)
.ie \\n[#DOCS] .ds $RESTORE_FAM \\*[$DOC_FAM]
.el .ds $RESTORE_FAM \\n[.fam]
.ie \\n[#DOCS] .ds $RESTORE_FT  \\*[$PP_FT]
.el .ds $RESTORE_FT  \\*[$FONT]
.nr #RESTORE_PT_SIZE \\n[#PT_SIZE]
.nr #RESTORE_INDENT  \\n[.i]
.SIZESPECS
.nr #DC_HEIGHT \\n[#DC_LINES]*\\n[#LEAD]+\\n[#CAP_HEIGHT]
.ie !d$DC_FAM .FAM \\n[.fam]
.el .FAM \\*[$DC_FAM]
.ie !d$DC_FT .FT \\*[$FONT]
.el .FT \\*[$DC_FT]
.while \\n[#GET_DC_HEIGHT]<\\n[#DC_HEIGHT] \{\
.ps \\n[#PT_SIZE]u+100u
.SIZESPECS
.nr #GET_DC_HEIGHT \\n[#CAP_HEIGHT]
.\}
.if d$DC_ADJUST .ps \\*[$DC_ADJUST]p
.nr #DC_LINES +1
.if \\n[#DC_LINES]v>\\n[.t] \{\
.nr pgnum \\n%+\\n[#PAGE_NUM_ADJ] 1
.tm1 "[mom]: Dropcap at line \\n[.c] does not fit on page \\n[pgnum].
.tm1 "       Shifting paragraph to page \\n+[pgnum].
.bp
.\}
.ie \\n[#DC_COLOR]=1 \{\
.ie !'\\$3'' \{\
.ie '\\$3'COND' \
.PRINT \
\\*[DOWN \\n[#DC_LINES]v]\
\m[\\*[$DC_COLOR]]\\*[COND]\\*[$DROPCAP]\\*[CONDX]\m[]\\*[UP \\n[#DC_LINES]v]
.el \
.PRINT \
\\*[DOWN \\n[#DC_LINES]v]\
\m[\\*[$DC_COLOR]]\\*[EXT]\\*[$DROPCAP]\\*[EXTX]\m[]\\*[UP \\n[#DC_LINES]v]
.\}
.el .PRINT \
\\*[DOWN \\n[#DC_LINES]v]\
\m[\\*[$DC_COLOR]]\\*[$DROPCAP]\m[]\\*[UP \\n[#DC_LINES]v]
.\}
.el \{\
.ie !'\\$3'' \{\
.ie '\\$3'COND' \
.PRINT \
\\*[DOWN \\n[#DC_LINES]v]\
\\*[COND]\\*[$DROPCAP]\\*[CONDX]\\*[UP \\n[#DC_LINES]v]
.el \
.PRINT \
\\*[DOWN \\n[#DC_LINES]v]\
\\*[EXT]\\*[$DROPCAP]\\*[EXTX]\\*[UP \\n[#DC_LINES]v]
.\}
.el .PRINT \
\\*[DOWN \\n[#DC_LINES]v]\
\m[\\*[$DC_COLOR]]\\*[$DROPCAP]\m[]\\*[UP \\n[#DC_LINES]v]
.\}
.if '\\$3'COND' \E*[COND]
.if '\\$3'EXT' \E*[EXT]
.ie \\n[.i] \{\
.vs 0
.br
.in +\w'\\*[$DROPCAP]'u+\\n[#DC_GUT]u
.vs
.\}
.el \{\
.vs 0
.br
.in \w'\\*[$DROPCAP]'u+\\n[#DC_GUT]u
.vs
.\}
.if '\\$3'COND' \E*[CONDX]\c
.if '\\$3'EXT' \E*[EXTX]\c
.FAM \\*[$RESTORE_FAM]
.FT  \\*[$RESTORE_FT]
.ps \\n[#RESTORE_PT_SIZE]u
.if \\n[#CONDENSE_WAS_ON] \{\
.CONDENSE \\*[$RESTORE_COND]
\\*[COND]\c
.\}
.if \\n[#EXTEND_WAS_ON] \{\
.EXTEND \\*[$RESTORE_EXT]
\\*[EXT]\c
.\}
.ie \\n[.u] .wh \\n[.d]u+\\n[#DC_HEIGHT]u-1v DROPCAP_OFF
.el .wh \\n[.d]u+\\n[#DC_HEIGHT]u DROPCAP_OFF
.rr #CONDENSE_WAS_ON
.rr #EXTEND_WAS_ON
.rm $DROPCAP
.rr #DC_LINES
.rm $RESTORE_COND
.rm $RESTORE_EXT
.rm $RESTORE_FAM
.rm $RESTORE_FT
.rr #RESTORE_PT_SIZE
.rr #RESTORE_INDENT
.rr #DC_HEIGHT
.rr #GET_DC_HEIGHT
.rr x
.END
.MAC DROPCAP_OFF END
'    in \\n[#RESTORE_INDENT]u
.ch DROPCAP_OFF
.END
.MAC DRH END
.if \\n[.vpt]=1 \{\
.vpt 0
.nr #RESTORE_TRAP 1
.\}
.ie !\\n[#NO_ADVANCE]=1 .br
.el \{\
.sp -1v
.rr #NO_ADVANCE
.\}
.ie \\n[.u]=1 \{\
.nr #FILLED 1
.nr #FILL_MODE \\n[.j]
.\}
.el \{\
.nr #NOFILL 1
.if \\n[.ce]>0 .nr #NOFILL_MODE 3
.if \\n[.rj]>0 .nr #NOFILL_MODE 5
.ce 0
.rj 0
.\}
.nf
.ds $RL_WEIGHT \\$1
.ds $RL_INDENT \\$2
.ds $RL_LENGTH \\$3
.ie !'\\$4'' .ds $RL_COLOR  \\$4
.el          .ds $RL_COLOR default
.nr #SAVED_WEIGHT     \\n[#RULE_WEIGHT]
.nr #SAVED_WEIGHT_ADJ \\n[#RULE_WEIGHT_ADJ]
.di NULL
.if \\n[#NUM_ARGS]>=1 .RULE_WEIGHT \\*[$RL_WEIGHT]
.di
.gcolor \\*[$RL_COLOR]
.ie \\n[#NUM_ARGS]=0 \{\
.ie \\n[#INDENT_ACTIVE] \{\
.nr #RESTORE_L_LENGTH \\n[.l]
.if \\n[#INDENT_BOTH_ACTIVE] .ll \\n[.l]u-\\n[#BL_INDENT]u
.if \\n[#INDENT_LEFT_ACTIVE] .ll \\n[.l]u-\\n[#L_INDENT]u
\D't \\n[#RULE_WEIGHT]'\
\h'\\*[$RL_INDENT]-\\n[#RULE_WEIGHT]u'\
\v'\\n[#RULE_WEIGHT_ADJ]u'\
\D'l \En[.l]u 0'\v'-\\n[#RULE_WEIGHT_ADJ]u'\
\v'-\\n[#RULE_WEIGHT_ADJ]u'\
\D't \\n[#SAVED_RULE_WEIGHT]'
.ll \\n[#RESTORE_L_LENGTH]u
.rr #RESTORE_L_LENGTH
.\}
.el \{\
\D't \\n[#RULE_WEIGHT]'\
\h'\\*[$RL_INDENT]-\\n[#RULE_WEIGHT]u'\
\v'\\n[#RULE_WEIGHT_ADJ]u'\
\D'l \En[.l]u 0'\v'-\\n[#RULE_WEIGHT_ADJ]u'\
\v'-\\n[#RULE_WEIGHT_ADJ]u'\
\D't \\n[#SAVED_RULE_WEIGHT]'
.\}
.\}
.el \{\
\D't \\n[#RULE_WEIGHT]'\
\h'\\*[$RL_INDENT]-\\n[#RULE_WEIGHT]u'\
\v'\\n[#RULE_WEIGHT_ADJ]u'\
\D'l \\*[$RL_LENGTH] 0'\
\v'-\\n[#RULE_WEIGHT_ADJ]u'\
\D't \\n[#SAVED_RULE_WEIGHT]'
.\}
.if \\n[#FILLED]=1 \{\
.if \\n[#FILL_MODE]=0 .QUAD LEFT
.if \\n[#FILL_MODE]=1 .JUSTIFY
.if \\n[#FILL_MODE]=3 .QUAD CENTER
.if \\n[#FILL_MODE]=5 .QUAD RIGHT
.rr #FILLED
.\}
.sp -1v
.if \\n[#NOFILL]=1 \{\
.if \\n[#NOFILL_MODE]=3 .CENTER
.if \\n[#NOFILL_MODE]=5 .RIGHT
.\}
.gcolor
.nr #RULE_WEIGHT     \\n[#SAVED_WEIGHT]
.nr #RULE_WEIGHT_ADJ \\n[#SAVED_WEIGHT_ADJ]
.rr #SAVED_WEIGHT
.rr #SAVED_WEIGHT_ADJ
.if \\n[#RESTORE_TRAP]=1 \{\
.vpt 1
.rr #RESTORE_TRAP
.\}
.if '\\n[.z]'FLOAT*DIV' \
.if !(\\n[.d]+\\n[#WEIGHT])<\\n[D-float] .nr D-float \\n[.d]+\\n[#WEIGHT]
.END
.MAC RULE END
.if \\n[.u]=1 \{\
.nr fill 1
.ds $CURRENT_QUAD \\*[$QUAD_VALUE]
.nf
.\}
.ie \\n[#INDENT_ACTIVE] \{\
.if \\n[#INDENT_BOTH_ACTIVE] .ll \\n[.l]u-\\n[#BL_INDENT]u
.if \\n[#INDENT_LEFT_ACTIVE] .ll \\n[.l]u-\\n[#L_INDENT]u
.PRINT \
\D't \\n[#RULE_WEIGHT]'\v'\\n[#RULE_WEIGHT_ADJ]u'\
\h'-\\n[#RULE_WEIGHT]u'\
\D'l \En[.l]u 0'\v'-\\n[#RULE_WEIGHT_ADJ]u'\h'|0'\c
.ll
.rr #RESTORE_L_LENGTH
.\}
.el \{\
.PRINT \
\D't \\n[#RULE_WEIGHT]'\v'\\n[#RULE_WEIGHT_ADJ]u'\
\h'-\\n[#RULE_WEIGHT]u'\
\D'l \En[.l]u 0'\v'-\\n[#RULE_WEIGHT_ADJ]u'\h'|0'\c
.\}
.if \\n[fill] \{\
.fi
.rr fill
.QUAD \\*[$CURRENT_QUAD]
.rm $CURRENT_QUAD
.\}
.EOL
.END
.MAC DRV END
.if \\n[.vpt]=1 \{\
.vpt 0
.nr #RESTORE_TRAP 1
.\}
.ie !\\n[#NO_ADVANCE]=1 .br
.el \{\
.sp -1v
.rr #NO_ADVANCE
.\}
.ie \\n[.u]=1 \{\
.nr #FILLED 1
.nr #FILL_MODE \\n[.j]
.\}
.el \{\
.nr #NOFILL 1
.if \\n[.ce]>0 .nr #NOFILL_MODE 3
.if \\n[.rj]>0 .nr #NOFILL_MODE 5
.ce 0
.rj 0
.\}
.nf
.ds $RL_WEIGHT \\$1
.ds $RL_INDENT \\$2
.ds $RL_DEPTH  \\$3
.ie !'\\$4'' \{\
.ds $RL_COLOR  \\$4
.\}
.el .ds $RL_COLOR default
.nr #SAVED_WEIGHT     \\n[#RULE_WEIGHT]
.nr #SAVED_WEIGHT_ADJ \\n[#RULE_WEIGHT_ADJ]
.RULE_WEIGHT \\*[$RL_WEIGHT]
.gcolor \\*[$RL_COLOR]
\D't \\n[#RULE_WEIGHT]'\
\h'\\*[$RL_INDENT]-\\n[#RULE_WEIGHT_ADJ]u'\
\D'l 0 \\*[$RL_DEPTH]'\
\D't \\n[#SAVED_RULE_WEIGHT]'
.if \\n[#FILLED]=1 \{\
.if \\n[#FILL_MODE]=0 .QUAD LEFT
.if \\n[#FILL_MODE]=1 .JUSTIFY
.if \\n[#FILL_MODE]=3 .QUAD CENTER
.if \\n[#FILL_MODE]=5 .QUAD RIGHT
.rr #FILLED
.\}
.sp -1v
.if \\n[#NOFILL]=1 \{\
.if \\n[#NOFILL_MODE]=3 .CENTER
.if \\n[#NOFILL_MODE]=5 .RIGHT
.\}
.gcolor
.nr #RULE_WEIGHT     \\n[#SAVED_WEIGHT]
.nr #RULE_WEIGHT_ADJ \\n[#SAVED_WEIGHT_ADJ]
.if \\n[#RESTORE_TRAP]=1 \{\
.vpt 1
.rr #RESTORE_TRAP
.\}
.if '\\n[.z]'FLOAT*DIV' \{\
.if !(\\n[.d]+\\*[$RL_DEPTH])<\\n[D-float] .nr D-float \\n[.d]+\\*[$RL_DEPTH]
.\}
.END
.MAC DBX END
.if \\n[.vpt]=1 \{\
.vpt 0
.nr #RESTORE_TRAP 1
.\}
.ie !\\n[#NO_ADVANCE]=1 .br
.el \{\
.sp -1v
.rr #NO_ADVANCE
.\}
.ie \\n[.u]=1 \{\
.nr #FILLED 1
.nr #FILL_MODE \\n[.j]
.\}
.el \{\
.nr #NOFILL 1
.if \\n[.ce]>0 .nr #NOFILL_MODE 3
.if \\n[.rj]>0 .nr #NOFILL_MODE 5
.ce 0
.rj 0
.\}
.nf
.ie '\\$1'SOLID' .nr #BX_SOLID 1
.el              .ds $BX_WEIGHT \\$1
.ds $BX_INDENT \\$2
.ds $BX_WIDTH  \\$3
.ds $BX_DEPTH  \\$4
.ie !'\\$5'' \{\
.ie d$\\$5_FILL .ds $BX_COLOR \\*[$\\$5_FILL]
.el             .ds $BX_COLOR \\$5
.\}
.el .ds $BX_COLOR default
.nr #SAVED_WEIGHT     \\n[#RULE_WEIGHT]
.nr #SAVED_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.if !'\\$1'SOLID' .RULE_WEIGHT \\*[$BX_WEIGHT]
.ds $BX_INDENT \\*[$BX_INDENT]-\\n[#WEIGHT_ADJ]u
.ie \\n[#BX_SOLID]=1 \{\
.fcolor \\*[$BX_COLOR]
\h'\\*[$BX_INDENT]'\
\D'P \\*[$BX_WIDTH] 0 0 \\*[$BX_DEPTH] -\\*[$BX_WIDTH] 0 0 -\\*[$BX_DEPTH]'
.fcolor
.rr #BX_SOLID
.\}
.el \{\
.gcolor \\*[$BX_COLOR]
\D't \\n[#RULE_WEIGHT]'\
\h'\\*[$BX_INDENT]'\
\v'\\n[#WEIGHT_ADJ]u'\
\D'p \\*[$BX_WIDTH]-\\n[#RULE_WEIGHT]u 0 0 \\*[$BX_DEPTH]-\\n[#RULE_WEIGHT]u -\\*[$BX_WIDTH]+\\n[#RULE_WEIGHT]u 0 0 -\\*[$BX_DEPTH]+\\n[#RULE_WEIGHT]u'\
\v'-\\n[#WEIGHT_ADJ]u'\
\D't \\n[#SAVED_RULE_WEIGHT]'
.gcolor
.\}
.sp -1v
.if \\n[#FILLED]=1 \{\
.if \\n[#FILL_MODE]=0 .QUAD LEFT
.if \\n[#FILL_MODE]=1 .JUSTIFY
.if \\n[#FILL_MODE]=3 .QUAD CENTER
.if \\n[#FILL_MODE]=5 .QUAD RIGHT
.rr #FILLED
.\}
.if \\n[#NOFILL]=1 \{\
.if \\n[#NOFILL_MODE]=3 .CENTER
.if \\n[#NOFILL_MODE]=5 .RIGHT
.\}
.nr #RULE_WEIGHT \\n[#SAVED_WEIGHT]
.nr #WEIGHT_ADJ  \\n[#SAVED_WEIGHT_ADJ]
.rr #SAVED_WEIGHT
.rr #SAVED_WEIGHT_ADJ
.if \\n[#RESTORE_TRAP]=1 \{\
.vpt 1
.rr #RESTORE_TRAP
.\}
.if '\\n[.z]'FLOAT*DIV' \
.if !(\\n[.d]+\\*[$BX_DEPTH])<\\n[D-float] .nr D-float \\n[.d]+\\*[$BX_DEPTH]
.END
.MAC DCL END
.if \\n[.vpt]=1 \{\
.vpt 0
.nr #RESTORE_TRAP 1
.\}
.ie !\\n[#NO_ADVANCE]=1 .br
.el \{\
.sp -1v
.rr #NO_ADVANCE
.\}
.ie \\n[.u]=1 \{\
.nr #FILLED 1
.nr #FILL_MODE \\n[.j]
.\}
.el \{\
.nr #NOFILL 1
.if \\n[.ce]>0 .nr #NOFILL_MODE 3
.if \\n[.rj]>0 .nr #NOFILL_MODE 5
.ce 0
.rj 0
.\}
.nf
.ie '\\$1'SOLID' .nr #CL_SOLID 1
.el              .ds $CL_WEIGHT \\$1
.ds $CL_INDENT \\$2
.ds $CL_WIDTH  \\$3
.ds $CL_DEPTH  \\$4
.ie !'\\$5'' \{\
.ie d$\\$5_FILL .ds $CL_COLOR \\*[$\\$5_FILL]
.el             .ds $CL_COLOR \\$5
.\}
.el .ds $CL_COLOR default
.nr #SAVED_WEIGHT     \\n[#RULE_WEIGHT]
.nr #SAVED_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.if !'\\$1'SOLID' .RULE_WEIGHT \\*[$CL_WEIGHT]
.ds $CL_INDENT \\*[$CL_INDENT]-\\n[#WEIGHT_ADJ]u
.ie \\n[#CL_SOLID]=1 \{\
.fcolor \\*[$CL_COLOR]
\h'\\*[$CL_INDENT]'\
\v'\\*[$CL_DEPTH]/2u'\
\D'E \\*[$CL_WIDTH]-\\n[#RULE_WEIGHT]u \\*[$CL_DEPTH]-\\n[#RULE_WEIGHT]u'\
\v'-\\*[$CL_DEPTH]/2u'
.fcolor
.rr #CL_SOLID
.\}
.el \{\
.gcolor \\*[$CL_COLOR]
\D't \\n[#RULE_WEIGHT]'\
\h'\\*[$CL_INDENT]'\
\v'\\*[$CL_DEPTH]/2u'\
\D'e \\*[$CL_WIDTH]-\\n[#RULE_WEIGHT]u \\*[$CL_DEPTH]-\\n[#RULE_WEIGHT]u'\
\v'-(\\*[$CL_DEPTH]/2u)'\
\D't \\n[#SAVED_RULE_WEIGHT]'
.gcolor
.\}
.sp -1v
.if \\n[#FILLED]=1 \{\
.if \\n[#FILL_MODE]=0 .QUAD LEFT
.if \\n[#FILL_MODE]=1 .JUSTIFY
.if \\n[#FILL_MODE]=3 .QUAD CENTER
.if \\n[#FILL_MODE]=5 .QUAD RIGHT
.rr #FILLED
.\}
.if \\n[#NOFILL]=1 \{\
.if \\n[#NOFILL_MODE]=3 .CENTER
.if \\n[#NOFILL_MODE]=5 .RIGHT
.\}
.nr #RULE_WEIGHT \\n[#SAVED_WEIGHT]
.nr #WEIGHT_ADJ  \\n[#SAVED_WEIGHT_ADJ]
.rr #SAVED_WEIGHT
.rr #SAVED_WEIGHT_ADJ
.if \\n[#RESTORE_TRAP]=1 \{\
.vpt 1
.rr #RESTORE_TRAP
.\}
.if '\\n[.z]'FLOAT*DIV' \
.if !(\\n[.d]+\\*[$CL_DEPTH])<\\n[D-float] .nr D-float \\n[.d]+\\*[$CL_DEPTH]
.END
.MAC RULE_WEIGHT END
.di NULL
.ds $ARG \\$1
.substring $ARG -1
.if !\B'\\*[$ARG]' \{\
.tm1 "[mom]: The argument to \\$0 must not have a unit of measure appended.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.length #STR_LENGTH \\$1
.ds $ARG \\$1
.substring $ARG 0 0
.ie '\\*[$ARG]'.' \{\
.ds $ARG \\$1
.substring $ARG 1 \\n[#STR_LENGTH]-1
.nr #WEIGHT \\*[$ARG]*100
.if (\\n[#WEIGHT]>=1000) \{\
.while (\\n[#WEIGHT]>=1000) \{\
.nr #WEIGHT \\n[#WEIGHT]/10
.\}
.\}
.\}
.el \{\
.ds $ARG \\$1
.substring $ARG 1 1
.ie '\\*[$ARG]'.' \{\
.ds $LHS \\$1
.substring $LHS 0 0
.ds $RHS \\$1
.substring $RHS 2
.nr #WEIGHT \\*[$LHS]\\*[$RHS]*100
.if (\\n[#WEIGHT]>=10000) \{\
.while (\\n[#WEIGHT]>=10000) \{\
.nr #WEIGHT \\n[#WEIGHT]/10
.\}
.\}
.\}
.el \{\
.ie \\n[#STR_LENGTH]<=2 .nr #WEIGHT \\$1*1000
.el \{\
.ds $ARG \\$1
.substring $ARG 2 2
.ie !'\\*[$ARG]'.' \{\
.tm1 "[mom]: Invalid argument given to macro \\$0 at line \\n[.c].
.tm1 "       Rule weight must be < 100 points.
.tm1 "       Falling back to default weight .5 points.
.nr #WEIGHT 500
.\}
.el \{\
.ds $LHS \\$1
.substring $LHS 0 1
.ds $RHS \\$1
.substring $RHS 3
.nr #WEIGHT \\*[$LHS]\\*[$RHS]*1000
.if (\\n[#WEIGHT]>=100000) \{\
.while (\\n[#WEIGHT]>=100000) \{\
.nr #WEIGHT \\n[#WEIGHT]/10
.\}
.\}
.\}
.\}
.\}
.\}
.nr #WEIGHT_ADJ \\n[#WEIGHT]/2
.if '\\$0'BIBLIOGRAPHY_STRING_UNDERLINE_WEIGHT' \{\
.nr #BIB_STRING_UNDERLINE_WEIGHT     \\n[#WEIGHT]
.nr #BIB_STRING_UNDERLINE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.\}
.if '\\$0'COVER_UNDERLINE_WEIGHT' \{\
.nr #COVER_UNDERLINE_WEIGHT     \\n[#WEIGHT]
.nr #COVER_UNDERLINE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.\}
.if '\\$0'DOC_COVER_UNDERLINE_WEIGHT' \{\
.nr #DOC_COVER_UNDERLINE_WEIGHT     \\n[#WEIGHT]
.nr #DOC_COVER_UNDERLINE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.\}
.if '\\$0'DOCTYPE_UNDERLINE_WEIGHT' \{\
.nr #DOCTYPE_UNDERLINE_WEIGHT     \\n[#WEIGHT]
.nr #DOCTYPE_UNDERLINE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.\}
.if '\\$0'ENDNOTE_STRING_UNDERLINE_WEIGHT' \{\
.nr #EN_STRING_UNDERLINE_WEIGHT     \\n[#WEIGHT]
.nr #EN_STRING_UNDERLINE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.\}
.if '\\$0'ENDNOTE_TITLE_UNDERLINE_WEIGHT' \{\
.nr #EN_TITLE_UNDERLINE_WEIGHT     \\n[#WEIGHT]
.nr #EN_TITLE_UNDERLINE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.\}
.if '\\$0'FOOTER_RULE_WEIGHT' \{\
.nr #FOOTER_RULE_WEIGHT     \\n[#WEIGHT]
.nr #FOOTER_RULE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.\}
.if '\\$0'FOOTNOTE_RULE_WEIGHT' \{\
.nr #FN_RULE_WEIGHT     \\n[#WEIGHT]
.nr #FN_RULE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.\}
.if '\\$0'HEADER_RULE_WEIGHT' \{\
.nr #HEADER_RULE_WEIGHT     \\n[#WEIGHT]
.nr #HEADER_RULE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.\}
.if '\\$0'RULE_WEIGHT' \{\
.nr #RULE_WEIGHT     \\n[#WEIGHT]
.nr #RULE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.\}
.if '\\$0'UNDERSCORE_WEIGHT' \{\
.nr #UNDERSCORE_WEIGHT     \\n[#WEIGHT]
.nr #UNDERSCORE_WEIGHT_ADJ \\n[#WEIGHT_ADJ]
.\}
.di
.END
.ALIAS BIBLIOGRAPHY_STRING_UNDERLINE_WEIGHT RULE_WEIGHT
.ALIAS COVER_UNDERLINE_WEIGHT               RULE_WEIGHT
.ALIAS DOC_COVER_UNDERLINE_WEIGHT           RULE_WEIGHT
.ALIAS DOCTYPE_UNDERLINE_WEIGHT             RULE_WEIGHT
.ALIAS ENDNOTE_STRING_UNDERLINE_WEIGHT      RULE_WEIGHT
.ALIAS ENDNOTE_TITLE_UNDERLINE_WEIGHT       RULE_WEIGHT
.ALIAS FOOTER_RULE_WEIGHT                   RULE_WEIGHT
.ALIAS FOOTNOTE_RULE_WEIGHT                 RULE_WEIGHT
.ALIAS HEADER_RULE_WEIGHT                   RULE_WEIGHT
.ALIAS UNDERSCORE_WEIGHT                    RULE_WEIGHT
.nr #BIB_STRING_UNDERLINE_WEIGHT 500
.nr #COVER_UNDERLINE_WEIGHT      500
.nr #DOC_COVER_UNDERLINE_WEIGHT  500
.nr #DOCTYPE_UNDERLINE_WEIGHT    500
.nr #EN_STRING_UNDERLINE_WEIGHT  500
.nr #EN_TITLE_UNDERLINE_WEIGHT   500
.nr #FN_RULE_WEIGHT              500
.nr #FOOTER_RULE_WEIGHT          500
.nr #HEADER_RULE_WEIGHT          500
.nr #RULE_WEIGHT                 500
.nr #UNDERSCORE_WEIGHT           500
.nr #BIB_STRING_UNDERLINE_WEIGHT_ADJ \n[#BIB_STRING_UNDERLINE_WEIGHT]/2
.nr #COVER_UNDERLINE_WEIGHT_ADJ      \n[#DOCTYPE_UNDERLINE_WEIGHT]/2
.nr #DOC_COVER_UNDERLINE_WEIGHT_ADJ  \n[#DOCTYPE_RULE_WEIGHT]/2
.nr #DOCTYPE_UNDERLINE_WEIGHT_ADJ    \n[#DOCTYPE_RULE_WEIGHT]/2
.nr #EN_STRING_UNDERLINE_WEIGHT_ADJ  \n[#EN_STRING_UNDERLINE_WEIGHT]/2
.nr #EN_TITLE_UNDERLINE_WEIGHT_ADJ   \n[#EN_STRING_UNDERLINE_WEIGHT]/2
.nr #FOOTER_RULE_WEIGHT_ADJ          \n[#FOOTER_RULE_WEIGHT]/2
.nr #FN_RULE_WEIGHT_ADJ              \n[#FN_RULE_WEIGHT]/2
.nr #HEADER_RULE_WEIGHT_ADJ          \n[#HEADER_RULE_WEIGHT]/2
.nr #RULE_WEIGHT_ADJ                 \n[#RULE_WEIGHT]/2
.nr #UNDERSCORE_WEIGHT_ADJ           \n[#UNDERSCORE_WEIGHT]/2
.di NULL
\D't 500'
.di
.MAC WS END
.ds $WS_CURR \\n[.ss]
.ds $WS_VAR  \\$1
.ie '\\$1'DEFAULT' .ss 12 \\n[.sss]
.el \{\
.ds $WS (\\*[$WS_CURR]\\*[$WS_VAR])
.ie \\n[.sss]=12 .ss \\*[$WS] 12
.el \{\
.ss \\*[$WS] (\\*[$WS]\\*[$SS_VAR])
.SS \\*[$SS_VAR]
.\}
.\}
.END
.MAC SS END
.ds $SS_VAR \\$1
.ie '\\$1'0' .ss \\n[.ss] (\\n[.ss]-\\n[.ss])
.el \{\
.ie '\\$1'DEFAULT' .ss \\n[.ss]
.el                .ss \\n[.ss] (0\\*[$SS_VAR])
.\}
.END
.MAC IL END
.if \\n[#INDENT_STYLE_BOTH] .IBX
.nr #INDENT_STYLE_LEFT  1
.nr #INDENT_ACTIVE      1
.nr #INDENT_LEFT_ACTIVE 1
.ie '\\$1'' \{\
.br
.in \\n[#L_INDENT]u
.ta \\n[.l]u-\\n[#L_INDENT]u
.\}
.el \{\
.br
.nr #L_INDENT +(\\$1)
.in \\n[#L_INDENT]u
.ta \\n[.l]u-\\n[#L_INDENT]u
.\}
.if \\n[#IN_ITEM] .nr #IN_ITEM_L_INDENT +(\\$1)
.END
.MAC IR END
.if \\n[#INDENT_STYLE_BOTH] .IBX
.nr #INDENT_STYLE_RIGHT   1
.nr #INDENT_ACTIVE        1
.nr #INDENT_RIGHT_ACTIVE  1
.ie '\\$1'' \{\
.br
.ie \\n[#TAB_ACTIVE] \{\
.ll \\n[.l]u-\\n[#R_INDENT]u
.ta \\n[.l]u-\\n[#L_INDENT]u
.\}
.el \{\
.ll \\n[.l]u-\\n[#R_INDENT]u
.ta \\n[.l]u-\\n[#L_INDENT]u
.\}
.\}
.el \{\
.br
.nr #R_INDENT +(\\$1)
.ie \\n[#TAB_ACTIVE] \{\
.ll \\n[.l]u-\\n[#R_INDENT]u
.ta \\n[.l]u-\\n[#L_INDENT]u
.\}
.el \{\
.ll \\n[.l]u-\\n[#R_INDENT]u
.ta \\n[.l]u-\\n[#L_INDENT]u
.\}
.\}
.END
.MAC IB END
.if \\n[#INDENT_STYLE_LEFT] .ILX
.if \\n[#INDENT_STYLE_RIGHT] .IRX
.nr #INDENT_STYLE_BOTH  1
.nr #INDENT_ACTIVE      1
.nr #INDENT_BOTH_ACTIVE 1
.ie '\\$1'' \{\
.br
.in \\n[#BL_INDENT]u
.ie \\n[#TAB_ACTIVE] \{\
.ll \\n[.l]u-\\n[#BR_INDENT]u
.ta \\n[.l]u-\\n[#BR_INDENT]u
.\}
.el \{\
.ll \\n[.l]u-\\n[#BR_INDENT]u
.ta \\n[.l]u-\\n[#BR_INDENT]u
.\}
.\}
.el \{\
.br
.nr #BL_INDENT (\\n[#INDENT]+\\$1)
.ie \\n[#NUM_ARGS]=2 .nr #BR_INDENT +(\\$2)
.el .nr #BR_INDENT \\n[#BL_INDENT]
.ie \\n[#TAB_ACTIVE] \{\
.in \\n[#BL_INDENT]u
.ll \\n[.l]u-\\n[#BR_INDENT]u
.ta \\n[.l]u-\\n[#BL_INDENT]u
.\}
.el \{\
.in \\n[#BL_INDENT]u
.ll \\n[.l]u-\\n[#BR_INDENT]u
.ta \\n[.l]u-\\n[#BR_INDENT]u
.\}
.\}
.END
.MAC TI END
.br
.ie '\\$1'' \{\
.ti \\n[#T_INDENT]u
.if \\n[#INDENT_LEFT_ACTIVE] .ti \\n[#T_INDENT]u+\\n[#L_INDENT]u
.if \\n[#INDENT_BOTH_ACTIVE] .ti \\n[#T_INDENT]u+\\n[#BL_INDENT]u
.\}
.el \{\
.nr #T_INDENT (\\$1)
.ti \\n[#T_INDENT]u
.\}
.END
.MAC HI END
.ie '\\$1'' .ti -\\n[#HL_INDENT]u
.el \{\
.nr #HL_INDENT (\\$1)
.ti -\\n[#HL_INDENT]u
.\}
.END
.MAC ILX END
.ie \\n[#IN_ITEM] .nr #L_INDENT -\\n[#IN_ITEM_L_INDENT]
.el \{\
.br
.in 0
.rr #INDENT_LEFT_ACTIVE
.\}
.if '\\$1'CLEAR' \{\
.rr #L_INDENT
.rr #INDENT_STYLE_LEFT
.\}
.END
.MAC IRX END
.br
.rr #INDENT_RIGHT_ACTIVE
.ie \\n[#TAB_ACTIVE] .TAB\\n[#CURRENT_TAB]
.el \{\
.ie \\n[#COLUMNS] \{\
.ll \\n[#COL_L_LENGTH]u
.ta \\n[.l]u
.\}
.el \{\
.ll \\n[#L_LENGTH]u
.ta \\n[.l]u
.\}
.\}
.if '\\$1'CLEAR' \{\
.rr #R_INDENT
.rr #INDENT_STYLE_RIGHT
.\}
.END
.MAC IBX END
.br
.in 0
.rr #INDENT_BOTH_ACTIVE
.ie \\n[#TAB_ACTIVE] .TAB\\n[#CURRENT_TAB]
.el \{\
.ie \\n[#COLUMNS] \{\
.ll \\n[#COL_L_LENGTH]u
.ta \\n[.l]u
.\}
.el \{\
.ll \\n[#L_LENGTH]u
.ta \\n[.l]u
.\}
.\}
.if '\\$1'CLEAR' \{\
.rr #BL_INDENT
.rr #BR_INDENT
.rr #INDENT_STYLE_BOTH
.\}
.END
.MAC IX END
.if '\\$0'IX' \{\
.if !\\n[#IX_WARN] \{\
.tm1 "[mom]: Use of .IX is deprecated.  Use .IQ instead.
.tm1 "      .IX will continue to behave as before, but to
.tm1 "       avoid this message, please update your document.
.nr #IX_WARN 1
.\}
.\}
.br
.in 0
.rr #INDENT_LEFT_ACTIVE
.rr #INDENT_RIGHT_ACTIVE
.rr #INDENT_BOTH_ACTIVE
.if \\n[#INDENT_STYLE_RIGHT] \{\
.ie \\n[#TAB_ACTIVE] .TAB\\n[#CURRENT_TAB]
.el \{\
.ie \\n[#COLUMNS] \{\
.ll \\n[#COL_L_LENGTH]u
.ta \\n[.l]u
.\}
.el \{\
.ll \\n[#L_LENGTH]u
.ta \\n[.l]u
.\}
.\}
.\}
.if \\n[#INDENT_STYLE_BOTH] \{\
.ie \\n[#TAB_ACTIVE] .TAB\\n[#CURRENT_TAB]
.el \{\
.ie \\n[#COLUMNS] \{\
.ll \\n[#COL_L_LENGTH]u
.ta \\n[.l]u
.\}
.el \{\
.ll \\n[#L_LENGTH]u
.ta \\n[.l]u
.\}
.\}
.\}
.if '\\$1'CLEAR' \{\
.if \\n[#INDENT_STYLE_RIGHT] \{\
.ie \\n[#TAB_ACTIVE] .TAB\\n[#CURRENT_TAB]
.el \{\
.ie \\n[#COLUMNS] \{\
.ll \\n[#COL_L_LENGTH]u
.ta \\n[.l]u
.\}
.el \{\
.ll \\n[#L_LENGTH]u
.ta \\n[.l]u
.\}
.\}
.\}
.if \\n[#INDENT_STYLE_BOTH] \{\
.ie \\n[#TAB_ACTIVE] .TAB\\n[#CURRENT_TAB]
.el \{\
.ie \\n[#COLUMNS] \{\
.ll \\n[#COL_L_LENGTH]u
.ta \\n[.l]u
.\}
.el \{\
.ll \\n[#L_LENGTH]u
.ta \\n[.l]u
.\}
.\}
.\}
.rr #L_INDENT
.rr #R_INDENT
.rr #BL_INDENT
.rr #BR_INDENT
.rr #T_INDENT
.rr #H_INDENT
.rr #INDENT_STYLE_LEFT
.rr #INDENT_STYLE_RIGHT
.rr #INDENT_STYLE_BOTH
.\}
.rr #INDENT_ACTIVE
.END
.MAC MCO END
.mk c
.END
.MAC MCR END
.TRAP OFF
.sp |\\n[c]u
.TRAP
.END
.MAC MCX END
.TRAP OFF
.ie '\\$1'' \{\
.TQ
.sp |\\n[.h]u
.\}
.el \{\
.nr #MCX_ALD (\\$1)
.TQ
.ie \\n[#MCX_ALD]=0 .sp |\\n[.h]u-1v
.el .sp |\\n[.h]u+\\n[#MCX_ALD]u
.rr #MCX_ALD
.\}
.TRAP
.END
.MAC TRAP END
.ie '\\$1'' .vpt 1
.el         .vpt 0
.END
.MAC SILENT END
.nr #SILENT 1
.if \\n[#QUAD] .br
.ie '\\$1'' .di NO_FLASH
.el \{\
.br
.di
.rm NO_FLASH
.rr #SILENT
.\}
.END
.MAC PRINT END
.nop \\$*
.END
.MAC CAPS END
.ie '\\$1'' \{\
.tr aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ
.tr \[`a]\[`A]
.tr \[^a]\[^A]
.tr \['a]\['A]
.tr \[:a]\[:A]
.tr \[oa]\[oA]
.tr \[~a]\[~A]
.tr \[ae]\[AE]
.tr \[`e]\[`E]
.tr \[^e]\[^E]
.tr \['e]\['E]
.tr \[:e]\[:E]
.tr \[`i]\[`I]
.tr \[^i]\[^I]
.tr \['i]\['I]
.tr \[:i]\[:I]
.tr \[`o]\[`O]
.tr \[^o]\[^O]
.tr \['o]\['O]
.tr \[:o]\[:O]
.tr \[~o]\[~O]
.tr \[/o]\[/O]
.tr \[`u]\[`U]
.tr \[^u]\[^U]
.tr \['u]\['U]
.tr \[:u]\[:U]
.tr \[,c]\[,C]
.tr \[-d]\[-D]
.tr \[~n]\[~N]
.tr \[Sd]\[-D]
.tr \[Tp]\[TP]
.tr \['y]\['Y]
.tr \[:y]\[:Y]
.nr #CAPS_ON 1
.\}
.el \{\
.tr aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz
.tr \[`a]\[`a]
.tr \[^a]\[^a]
.tr \['a]\['a]
.tr \[:a]\[:a]
.tr \[oa]\[oa]
.tr \[~a]\[~a]
.tr \[ae]\[ae]
.tr \[`e]\[`e]
.tr \[^e]\[^e]
.tr \['e]\['e]
.tr \[:e]\[:e]
.tr \[`i]\[`i]
.tr \[^i]\[^i]
.tr \['i]\['i]
.tr \[:i]\[:i]
.tr \[`o]\[`o]
.tr \[^o]\[^o]
.tr \['o]\['o]
.tr \[:o]\[:o]
.tr \[~o]\[~o]
.tr \[/o]\[/o]
.tr \[`u]\[`u]
.tr \[^u]\[^u]
.tr \['u]\['u]
.tr \[:u]\[:u]
.tr \[,c]\[,c]
.tr \[Sd]\[Sd]
.tr \[~n]\[~n]
.tr \[Tp]\[Tp]
.tr \['y]\['y]
.tr \[:y]\[:y]
.rr #CAPS_ON
.\}
.END
.MAC UC END
\c
.tr aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ
.tr \[`a]\[`A]
.tr \[^a]\[^A]
.tr \['a]\['A]
.tr \[:a]\[:A]
.tr \[oa]\[oA]
.tr \[~a]\[~A]
.tr \[ae]\[AE]
.tr \[`e]\[`E]
.tr \[^e]\[^E]
.tr \['e]\['E]
.tr \[:e]\[:E]
.tr \[`i]\[`I]
.tr \[^i]\[^I]
.tr \['i]\['I]
.tr \[:i]\[:I]
.tr \[`o]\[`O]
.tr \[^o]\[^O]
.tr \['o]\['O]
.tr \[:o]\[:O]
.tr \[~o]\[~O]
.tr \[/o]\[/O]
.tr \[`u]\[`U]
.tr \[^u]\[^U]
.tr \['u]\['U]
.tr \[:u]\[:U]
.tr \[,c]\[,C]
.tr \[Sd]\[-D]
.tr \[~n]\[~N]
.tr \[Tp]\[TP]
.tr \['y]\['Y]
.tr \[:y]\[:Y]
.nr #CAPS_ON 1
.END
.MAC LC END
\c
.tr aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz
.tr \[`a]\[`a]
.tr \[^a]\[^a]
.tr \['a]\['a]
.tr \[:a]\[:a]
.tr \[oa]\[oa]
.tr \[~a]\[~a]
.tr \[ae]\[ae]
.tr \[`e]\[`e]
.tr \[^e]\[^e]
.tr \['e]\['e]
.tr \[:e]\[:e]
.tr \[`i]\[`i]
.tr \[^i]\[^i]
.tr \['i]\['i]
.tr \[:i]\[:i]
.tr \[`o]\[`o]
.tr \[^o]\[^o]
.tr \['o]\['o]
.tr \[:o]\[:o]
.tr \[~o]\[~o]
.tr \[/o]\[/o]
.tr \[`u]\[`u]
.tr \[^u]\[^u]
.tr \['u]\['u]
.tr \[:u]\[:u]
.tr \[,c]\[,c]
.tr \[Sd]\[Sd]
.tr \[~n]\[~n]
.tr \[Tp]\[Tp]
.tr \['y]\['y]
.tr \[:y]\[:y]
.rr #CAPS_ON
.END
.MAC SIZESPECS END
.if '\\n[.z]'FLOAT*DIV' \
.if \\n[dn] .nr saved-dn \\n[dn]
.di TYPESIZE
E\R'#CAP_HEIGHT \\n[.cht]'
e\R'#X_HEIGHT \\n[.cht]'
y\R'#DESCENDER \\n[.cdp]'
.br
.ds $CAP_HEIGHT \\n[#CAP_HEIGHT]u
.ds $X_HEIGHT \\n[#X_HEIGHT]u
.ds $DESCENDER \\n[#DESCENDER]u
.di
.if '\\n[.z]'FLOAT*DIV' \
.nr dn \\n[saved-dn]
.END
.ALIAS    ADD_SPACE       ALD
.ALIAS    CENTRE          CENTER
.ALIAS    COLOUR          COLOR
.ALIAS    COMMENT         SILENT
.ALIAS    CONDENSE        CONDENSE_OR_EXTEND
.ALIAS    EXTEND          CONDENSE_OR_EXTEND
.ALIAS    FAM             FAMILY
.ALIAS    FONT            FT
.ALIAS    HYPHENATE       HY
.ALIAS    HYPHENATION     HY
.ALIAS    HYSET           HY_SET
.ALIAS    IBQ             IBX
.ALIAS    ILQ             ILX
.ALIAS    IQ              IX
.ALIAS    IRQ             IRX
.ALIAS    LIG             LIGATURES
.ALIAS    NEWCOLOUR       NEWCOLOR
.ALIAS    PADMARKER       PAD_MARKER
.ALIAS    SP              ALD
.ALIAS    SPACE           ALD
.ALIAS    TABSET          TAB_SET
.ALIAS    TB              TAB
.ALIAS    UNDERSCORE_2    UNDERSCORE2
.ALIAS    XCOLOUR         XCOLOR
.ALIAS    PDF_LINK_COLOUR PDF_LINK_COLOR
.ALIAS    AUTO_TOC_RELOCATE AUTO_RELOCATE_TOC
.MAC DOC_MACRO_ERROR END
.if '\\$1'DOC_L_MARGIN'    .ds $REPLACEMENT L_MARGIN
.if '\\$1'DOC_R_MARGIN'    .ds $REPLACEMENT R_MARGIN
.if '\\$1'DOC_LINE_LENGTH' .ds $REPLACEMENT LL
.if '\\$1'DOC_FAMILY'      .ds $REPLACEMENT "FAMILY or FAM
.if '\\$1'DOC_PT_SIZE'     .ds $REPLACEMENT PT_SIZE
.if '\\$1'DOC_LEAD'        .ds $REPLACEMENT LS
.if '\\$1'DOC_QUAD'        .ds $REPLACEMENT QUAD
.tm1 "[mom]: \\$1 at line \\n[.c] of '\\n[.F]' should not be used before START.
.tm1 "       Use \\*[$REPLACEMENT] instead.
.ab  Aborting.
.END
.MAC PAPER END
.ds $PAPER \\$1
.if '\\*[$PAPER]'LETTER' \{\
.PAGEWIDTH  8.5i
.PAGELENGTH 11i
.\}
.if '\\*[$PAPER]'LEGAL' \{\
.PAGEWIDTH  8.5i
.PAGELENGTH 14i
.\}
.if '\\*[$PAPER]'STATEMENT' \{\
.PAGEWIDTH  5.5i
.PAGELENGTH 8.5i
.\}
.if '\\*[$PAPER]'TABLOID' \{\
.PAGEWIDTH  11i
.PAGELENGTH 17i
.\}
.if '\\*[$PAPER]'LEDGER' \{\
.PAGEWIDTH  17i
.PAGELENGTH 11i
.\}
.if '\\*[$PAPER]'FOLIO' \{\
.PAGEWIDTH  8.5i
.PAGELENGTH 13i
.\}
.if '\\*[$PAPER]'QUARTO' \{\
.PAGEWIDTH  610p
.PAGELENGTH 780p
.\}
.if '\\*[$PAPER]'10x14' \{\
.PAGEWIDTH  10i
.PAGELENGTH 14i
.\}
.if '\\*[$PAPER]'EXECUTIVE' \{\
.PAGEWIDTH  7.25i
.PAGELENGTH 10.5i
.\}
.if '\\*[$PAPER]'A3' \{\
.PAGEWIDTH  842p
.PAGELENGTH 1190p
.\}
.if '\\*[$PAPER]'A4' \{\
.PAGEWIDTH  595p
.PAGELENGTH 842p
.\}
.if '\\*[$PAPER]'A5' \{\
.PAGEWIDTH  421p
.PAGELENGTH 595p
.\}
.if '\\*[$PAPER]'B4' \{\
.PAGEWIDTH  709p
.PAGELENGTH 1002p
.\}
.if '\\*[$PAPER]'B5' \{\
.PAGEWIDTH  501p
.PAGELENGTH 709p
.\}
.if '\\$2'LANDSCAPE' \{\
.nr #PAGE_WIDTH_TMP \\n[#PAGE_WIDTH]
.PAGEWIDTH \\n[#PAGE_LENGTH]u
.PAGELENGTH \\n[#PAGE_WIDTH_TMP]u
.\}
.if !r#L_MARGIN .L_MARGIN \\n[.o]
.if !r#R_MARGIN .R_MARGIN 1i
.END
.MAC PRINTSTYLE END
.if !\\n[#COLLATE]=1 \{\
.if !d$PAPER .PAPER LETTER
.if '\\$1'TYPEWRITE' \{\
.nr #PRINT_STYLE 1
.if !\\n[#DOC_TYPE]=4 .L_MARGIN 6P
.if !\\n[#DOC_TYPE]=4 .R_MARGIN 6P
.ds $TYPEWRITER_FAM C
.ds $TYPEWRITER_PS  12
.TYPEWRITER
.color 0
.ie '\\$2'SINGLESPACE' \{\
.nr #SINGLE_SPACE 1
.vs 12
.ie \\n[#DOC_TYPE]=4 .nr #FOOTER_ADJ \\n[.v]
.el .nr #FOOTER_ADJ \\n[.v]*2
.nr #ORIGINAL_DOC_LEAD \\n[.v]
.\}
.el \{\
.if !\\n[#DOC_TYPE]=4 \{\
.vs 24
.nr #FOOTER_ADJ \\n[.v]/2
.nr #ORIGINAL_DOC_LEAD \\n[.v]
.\}
.\}
.QUAD    L
.HY      OFF
.SMARTQUOTES OFF
.if !\\n[#PP_INDENT] .nr #PP_INDENT 3P
.HDRFTR_RIGHT_CAPS
.nr #BOLDER_UNITS 0
.nr #CONDENSE 0
.nr #EXTEND 0
.if !\\n[#ITALIC_MEANS_ITALIC] .rm IT
.rm BD
.rm BDI
.if !\\n[#ITALIC_MEANS_ITALIC] .rm PREV
.if !\\n[#SLANT_MEANS_SLANT]   .UNDERLINE_SLANT
.if !\\n[#ITALIC_MEANS_ITALIC] .UNDERLINE_ITALIC
.if !\\n[#UNDERLINE_QUOTES]    .UNDERLINE_QUOTES
.nr #IGNORE_COLUMNS 1
.nr #RULE_WEIGHT 500
.char \[em] --
.tr `'
.tr \[lq]"
.tr \[rq]"
.\}
.if '\\$1'TYPESET' \{\
.nr #PRINT_STYLE 2
.if !\\n[#DOC_TYPE]=4 .L_MARGIN 6P
.if !\\n[#DOC_TYPE]=4 .R_MARGIN 6P
.FAMILY  T
.FT      R
.if !\\n[#DOC_TYPE]=4 .ps 12.5
.if !\\n[#DOC_TYPE]=4 .vs 16
.nr #FOOTER_ADJ 12000
.JUSTIFY
.HY
.HY_SET 2 36p 1p
.KERN
.LIG
.SS 0
.SMARTQUOTES
.if !\\n[#PP_INDENT] \{\
.in 2m
.nr #PP_INDENT \\n[.i]
.in 0
.\}
.HDRFTR_RIGHT_CAPS
.rr #IGNORE_COLUMNS
.\}
.nr #HD_LEVEL 0 1
.nr #LOOP 9
.while \\n+[#HD_LEVEL]<=\\n[#LOOP] \{\
.HEADING_STYLE \\n[#HD_LEVEL] \
            FONT   B \
            SIZE  +0 \
            QUAD   L \
            COLOR  black
.TOC_ENTRY_STYLE \\n[#HD_LEVEL] \
            FONT   R \
            SIZE  +0 \
            COLOR  black
.\}
.nr #HD_LEVEL 0 1
.nr #LOOP 3
.nr #HD_SIZE 4 1
.while \\n+[#HD_LEVEL]<=\\n[#LOOP] \{\
.nr #HD_SIZE_CHANGE \\n-[#HD_SIZE]
.ds $HEAD_\\n[#HD_LEVEL]_SIZE +\\n[#HD_SIZE_CHANGE]
.\}
.TOC_TITLE_STYLE FONT R SIZE +0 INDENT 0
.LABELS ALL FONT B AUTOLEAD 2
.LABELS EQN FONT R QUAD RIGHT
.CAPTIONS ALL AUTOLEAD 2
.CAPTIONS EQN QUAD CENTER
.SOURCES TBL AUTOLEAD 2
.\}
.END
.MAC TYPEWRITER_FAMILY END
.ds $TYPEWRITER_FAM \\$1
.END
.ALIAS TYPEWRITER_FAM TYPEWRITER_FAMILY
.MAC TYPEWRITER_SIZE END
.ds $TYPEWRITER_PS \\$1
.END
.MAC TYPEWRITER END
.fam \\*[$TYPEWRITER_FAM]
.ft  R
.ps  \\*[$TYPEWRITER_PS]
.END
.MAC ITALIC_MEANS_ITALIC END
.if \\n[#PRINT_STYLE]=1 \{\
.nr #ITALIC_MEANS_ITALIC 1
.rr #UNDERLINE_ITALIC
.rm ROM
.rm IT
.rm PREV
.ds ROM  \Ef[R]
.ds IT   \Ef[I]
.ds PREV \Ef[]
.\}
.END
.MAC UNDERLINE_ITALIC END
.if \\n[#PRINT_STYLE]=1 \{\
.nr #UNDERLINE_ITALIC 1
.rr #ITALIC_MEANS_ITALIC
.rm ROM
.rm IT
.rm PREV
.ds ROM  \E*[ULX]
.ds IT   \E*[UL]
.ds PREV \E*[ULX]
.\}
.END
.MAC UNDERLINE_SLANT END
.if \\n[#PRINT_STYLE]=1 \{\
.rr #SLANT_MEANS_SLANT
.nr #UNDERLINE_SLANT 1
.rm SLANT
.rm SLANTX
.ds SLANT  \ER'#SLANT_ON 1'\E*[UL]
.ds SLANTX \ER'#SLANT_ON 0'\E*[ULX]
.\}
.END
.MAC SLANT_MEANS_SLANT END
.if \\n[#PRINT_STYLE]=1 \{\
.rr #UNDERLINE_SLANT
.nr #SLANT_MEANS_SLANT 1
.rm SLANT
.rm SLANTX
.ds SLANT  \ER'#SLANT_ON 1'\ES'\En[#DEGREES]'
.ds SLANTX \ER'#SLANT_ON 0'\ES'0'
.\}
.END
.MAC IGNORE_COLUMNS END
.if \\n[#PRINT_STYLE]=1 .nr #NO_COLUMNS 1
.END
.MAC COPYSTYLE END
.ds $COPY_STYLE \\$1
.if '\\*[$COPY_STYLE]'DRAFT' \{\
.nr #COPY_STYLE 1
.if !d$DRAFT .DRAFT 1
.\}
.if '\\*[$COPY_STYLE]'FINAL' .nr #COPY_STYLE 2
.if !d$CHAPTER_STRING  .CHAPTER_STRING "Chapter"
.if !d$DRAFT_STRING    .DRAFT_STRING "Draft"
.if !d$REVISION_STRING .REVISION_STRING "Rev."
.if \\n[#DOC_TYPE]=1 \{\
.ie \\n[#COPY_STYLE]=1 \{\
.ie \\n[#PAGENUM_STYLE_SET] .PAGENUM_STYLE \\*[$PAGENUM_STYLE]
.el .PAGENUM_STYLE roman
.if \\n[#USER_DEF_HDRFTR_CENTER]=0 \{\
.ie \\n[#DRAFT_WITH_PAGENUM] .ds $HDRFTR_CENTER
.el \{\
.ie '\\*[$REVISION]'' \{\
.ds $HDRFTR_CENTER \
                    \\*[$DRAFT_STRING]\\*[$DRAFT]
.\}
.el \{\
.ds $HDRFTR_CENTER \
                    \\*[$DRAFT_STRING]\\*[$DRAFT], \
                    \\*[$REVISION_STRING] \\*[$REVISION]
.\}
.\}
.\}
.\}
.el \{\
.ie \\n[#PAGENUM_STYLE_SET] .PAGENUM_STYLE \\*[$PAGENUM_STYLE]
.el                         .PAGENUM_STYLE DIGIT
.if \\n[#DRAFT_WITH_PAGENUM] .rr #DRAFT_WITH_PAGENUM
.if \\n[#USER_DEF_HDRFTR_CENTER]=0 \{\
.ds $HDRFTR_CENTER
.rr #USER_DEF_HDRFTR_CENTER
.\}
.\}
.\}
.if \\n[#DOC_TYPE]=2 \{\
.ie \\n[#COPY_STYLE]=1 \{\
.ie \\n[#PAGENUM_STYLE_SET] \
.PAGENUM_STYLE \\*[$PAGENUM_STYLE]
.el \
.PAGENUM_STYLE roman
.if \\n[#USER_DEF_HDRFTR_CENTER]=0 \{\
.ie \\n[#DRAFT_WITH_PAGENUM] \{\
.ie '\\*[$CHAPTER]'' \{\
.ie !'\\*[$CHAPTER_TITLE_1]'' \
.ds $HDRFTR_CENTER \\*[$CHAPTER_TITLE]
.el .ds $HDRFTR_CENTER \\*[$CHAPTER_STRING]
.\}
.el \{\
.ie !'\\*[$CHAPTER_TITLE_1]'' \
.ds $HDRFTR_CENTER \\*[$CHAPTER_TITLE]
.el .ds $HDRFTR_CENTER \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.\}
.\}
.el \{\
.ie '\\*[$REVISION]'' \{\
.ie '\\*[$CHAPTER]'' \{\
.ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.ie '\\*[$DRAFT]'' \
.ds $HDRFTR_CENTER \\*[$CHAPTER_TITLE]
.el \{\
.ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_TITLE], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT]
.\}
.\}
.el \{\
.ie '\\*[$DRAFT]'' \{\
.ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING]
.\}
.el \{\
.ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT]
.\}
.\}
.\}
.el \{\
.ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.ie '\\*[$DRAFT]'' \
.ds $HDRFTR_CENTER \\*[$CHAPTER_TITLE]
.el \{\
.ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_TITLE_1], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT]
.\}
.\}
.el \{\
.ie '\\*[$DRAFT]'' \{\
.ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.\}
.el \{\
.ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING] \\*[$CHAPTER], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT]
.\}
.\}
.\}
.\}
.el \{\
.ie '\\*[$CHAPTER]'' \{\
.ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.ie '\\*[$DRAFT]'' \{\
.ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_TITLE], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.\}
.el \{\
.ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_TITLE], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.\}
.\}
.el \{\
.ie '\\*[$DRAFT]'' \{\
.ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.\}
.el \{\
.ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.\}
.\}
.\}
.el \{\
.ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.ie '\\*[$DRAFT]'' \{\
.ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_TITLE], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.\}
.el \{\
.ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_TITLE], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.\}
.\}
.el \{\
.ie '\\*[$DRAFT]'' \{\
.ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING] \\*[$CHAPTER], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.\}
.el \{\
.ds $HDRFTR_CENTER \
                             \\*[$CHAPTER_STRING] \\*[$CHAPTER], \
                             \\*[$DRAFT_STRING]\\*[$DRAFT], \
                             \\*[$REVISION_STRING] \\*[$REVISION]
.\}
.\}
.\}
.\}
.\}
.\}
.\}
.el \{\
.if \\n[#DRAFT_WITH_PAGENUM] .rr #DRAFT_WITH_PAGENUM
.if \\n[#USER_DEF_HDRFTR_CENTER]=0 \{\
.ie \\n[#PAGENUM_STYLE_SET] \
.PAGENUM_STYLE \\*[$PAGENUM_STYLE]
.el .PAGENUM_STYLE DIGIT
.ie '\\*[$CHAPTER]'' \{\
.ie !'\\*[$CHAPTER_TITLE_1]'' \
.ds $HDRFTR_CENTER \\*[$CHAPTER_TITLE]
.el \
.ds $HDRFTR_CENTER \\*[$CHAPTER_STRING]
.\}
.el \{\
.ie !'\\*[$CHAPTER_TITLE_1]'' \
.ds $HDRFTR_CENTER \\*[$CHAPTER_TITLE]
.el \
.ds $HDRFTR_CENTER \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.\}
.\}
.\}
.\}
.if \\n[#DOC_TYPE]=3 \{\
.ie \\n[#COPY_STYLE]=1 \{\
.ie \\n[#PAGENUM_STYLE_SET] .PAGENUM_STYLE \\*[$PAGENUM_STYLE]
.el                         .PAGENUM_STYLE roman
.ie \\n[#DRAFT_WITH_PAGENUM] \
.ds $HDRFTR_CENTER \\*[$DOC_TYPE]
.el \{\
.if \\n[#USER_DEF_HDRFTR_CENTER]=0 \{\
.ie '\\*[$REVISION]'' \{\
.ie '\\*[$DRAFT]'' \
.ds $HDRFTR_CENTER \\*[$DOC_TYPE]
.el \{\
.ds $HDRFTR_CENTER \
                       \\*[$DOC_TYPE], \
                       \\*[$DRAFT_STRING]\\*[$DRAFT]
.\}
.\}
.el \{\
.ie '\\*[$DRAFT]'' \{\
.ds $HDRFTR_CENTER \
                       \\*[$DOC_TYPE], \
                       \\*[$REVISION_STRING] \\*[$REVISION]
.\}
.el \{\
.ds $HDRFTR_CENTER \
                       \\*[$DOC_TYPE], \
                       \\*[$DRAFT_STRING]\\*[$DRAFT], \
                       \\*[$REVISION_STRING] \\*[$REVISION]
.\}
.\}
.\}
.\}
.\}
.el \{\
.if \\n[#DRAFT_WITH_PAGENUM] .rr #DRAFT_WITH_PAGENUM
.if \\n[#USER_DEF_HDRFTR_CENTER]=0 \{\
.ie \\n[#PAGENUM_STYLE_SET] .PAGENUM_STYLE \\*[$PAGENUM_STYLE]
.el .PAGENUM_STYLE DIGIT
.ds $HDRFTR_CENTER \\*[$DOC_TYPE]
.\}
.\}
.\}
.END
.MAC DOCTITLE END
.rr #DOCTITLE_NUM
.nr #DOCTITLE_NUM 0 1
.while \\n[#NUM_ARGS]>\\n[#DOCTITLE_NUM] \{\
.ds $DOC_TITLE_\\n+[#DOCTITLE_NUM] \\$\\n[#DOCTITLE_NUM]
.\}
.ds $DOC_TITLE \\$*
.PDF_TITLE \\*[$DOC_TITLE]
.END
.MAC TITLE END
.ie \\n[#NUM_ARGS]=0 \{\
.if \\n[#TITLE_NUM] \{\
.nr #ITEM 0 1
.while \\n[#TITLE_NUM]>\\n[#ITEM] \{\
.rm $TITLE_\\n+[#ITEM]
.\}
.rr #TITLE_NUM
.\}
.\}
.el \{\
.nr #TITLE_NUM 0 1
.while \\n[#NUM_ARGS]>\\n[#TITLE_NUM] \{\
.ds $TITLE_\\n+[#TITLE_NUM] \\$\\n[#TITLE_NUM]
.\}
.ds $TITLE \\$*
.\}
.END
.MAC SUBTITLE END
.ie \\n[#NUM_ARGS]=0 \{\
.if \\n[#SUBTITLE_NUM] \{\
.nr #ITEM 0 1
.while \\n[#SUBTITLE_NUM]>\\n[#ITEM] \{\
.rm $SUBTITLE_\\n+[#ITEM]
.\}
.rr #SUBTITLE_NUM
.rm $SUBTITLE
.\}
.\}
.el \{\
.if '\\$1'DOC_COVER' \{\
.shift
.nr #SUBTITLE_DOC_COVER_NUM 0 1
.while \\n[#NUM_ARGS]>\\n[#SUBTITLE_DOC_COVER_NUM] \{\
.ds $SUBTITLE_DOC_COVER_\\n+[#SUBTITLE_DOC_COVER_NUM] \
\\$\\n[#SUBTITLE_DOC_COVER_NUM]
.\}
.return
.\}
.if '\\$1'COVER' \{\
.shift
.nr #SUBTITLE_COVER_NUM 0 1
.while \\n[#NUM_ARGS]>\\n[#SUBTITLE_COVER_NUM] \{\
.ds $SUBTITLE_COVER_\\n+[#SUBTITLE_COVER_NUM] \
\\$\\n[#SUBTITLE_COVER_NUM]
.\}
.return
.\}
.nr #SUBTITLE_NUM 0 1
.while \\n[#NUM_ARGS]>\\n[#SUBTITLE_NUM] \{\
.ds $SUBTITLE_\\n+[#SUBTITLE_NUM] \\$\\n[#SUBTITLE_NUM]
.\}
.ds $SUBTITLE \\$*
.\}
.END
.MAC CHAPTER END
.nr #CHAPTER_CALLED 1
.ds $CHAPTER \\$1
.if r #CH_NUM \
.if \B'\\*[$CHAPTER]' .nr #CH_NUM \\*[$CHAPTER]
.END
.MAC CHAPTER_TITLE END
.ie \\n[#NUM_ARGS]=0 \{\
.if \\n[#CHAPTER_TITLE_NUM] \{\
.nr #ITEM 0 1
.while \\n[#CHAPTER_TITLE_NUM]>\\n[#ITEM] \{\
.rm $CHAPTER_TITLE_\\n+[#ITEM]
.\}
.rr #CHAPTER_TITLE_NUM
.rm $CHAPTER_TITLE
.\}
.\}
.el \{\
.rr #CHAPTER_TITLE_NUM
.nr #CHAPTER_TITLE_NUM 0 1
.while \\n[#NUM_ARGS]>\\n[#CHAPTER_TITLE_NUM] \{\
.ds $CHAPTER_TITLE_\\n+[#CHAPTER_TITLE_NUM] \
\\$\\n[#CHAPTER_TITLE_NUM]
.\}
.ds $CHAPTER_TITLE \\$*
.\}
.END
.MAC DRAFT END
.ie '\\$1'' .ds $DRAFT
.el .ds $DRAFT " \\$1
.END
.MAC REVISION END
.ds $REVISION \\$1
.END
.MAC DRAFT_WITH_PAGENUMBER END
.nr #DRAFT_WITH_PAGENUM 1
.END
.MAC AUTHOR END
.if '\\$1'DOC_COVER' \{\
.shift
.nr #AUTHOR_DOCCOVER_NUM 0 1
.while \\n[#NUM_ARGS]>\\n[#AUTHOR_DOCCOVER_NUM] \{\
.ds $AUTHOR_DOCCOVER_\\n+[#AUTHOR_DOCCOVER_NUM] \
\\$\\n[#AUTHOR_DOCCOVER_NUM]
.\}
.return
.\}
.if '\\$1'COVER' \{\
.shift
.nr #AUTHOR_COVER_NUM 0 1
.while \\n[#NUM_ARGS]>\\n[#AUTHOR_COVER_NUM] \{\
.ds $AUTHOR_COVER_\\n+[#AUTHOR_COVER_NUM] \\$\\n[#AUTHOR_COVER_NUM]
.\}
.return
.\}
.nr #AUTHOR_NUM 0 1
.rm $AUTHORS
.while \\n[#NUM_ARGS]>\\n[#AUTHOR_NUM] \{\
.ds $AUTHOR_\\n+[#AUTHOR_NUM] \\$\\n[#AUTHOR_NUM]
.as $AUTHORS \\*[$AUTHOR_\\n[#AUTHOR_NUM]], 
.\}
.ds $AUTHOR \\*[$AUTHOR_1]
.substring $AUTHORS 0 -2
.ds PDF_AUTHORS \\*[$AUTHORS]
.pdfmomclean PDF_AUTHORS
.nop \!x X ps:exec [/Author (\\*[PDF_AUTHORS]) /DOCINFO pdfmark
.END
.ALIAS EDITOR AUTHOR
.MAC COPYRIGHT END
.ie \\n[#NUM_ARGS]=1 \{\
.ds $COPYRIGHT \[co]\\$1
.rm $COPYRIGHT_DOCCOVER
.rm $COPYRIGHT_COVER
.\}
.el \{\
.if '\\$1'DOC_COVER' .ds $COPYRIGHT_DOCCOVER \[co]\\$2
.if '\\$1'COVER'     .ds $COPYRIGHT_COVER \[co]\\$2
.\}
.END
.MAC MISC END
.ie \\n[#NUM_ARGS]=0 \{\
.if \\n[#MISC_NUM] \{\
.nr #ITEM 0 1
.while \\n[#MISC_NUM]>\\n[#ITEM] \{\
.rm $MISC_\\n+[#ITEM]
.\}
.rr #MISC_NUM
.rr #NUM_MISCS
.\}
.if \\n[#MISC_DOC_COVER_NUM] \{\
.nr #ITEM 0 1
.while \\n[#MISC_DOC_COVER_NUM]>\\n[#ITEM] \{\
.rm $MISC_DOC_COVER_\\n+[#ITEM]
.\}
.rr #MISC_DOC_COVER_NUM
.rr #NUM_MISCS
.\}
.if \\n[#MISC_COVER_NUM] \{\
.nr #ITEM 0 1
.while \\n[#MISC_COVER_NUM]>\\n[#ITEM] \{\
.rm $MISC_COVER_\\n+[#ITEM]
.\}
.rr #MISC_COVER_NUM
.rr #NUM_MISCS
.\}
.\}
.el \{\
.if !'\\$1'DOC_COVER' \{\
.if !'\\$1'COVER' .nr #NEITHER 1
.\}
.if !'\\$1'COVER' \{\
.if !'\\$1'DOC_COVER' .nr #NEITHER 1
.\}
.if '\\$1'DOC_COVER' \{\
.shift
.nr #MISC_DOC_COVER_NUM 0 1
.while \\n[#NUM_ARGS]>\\n[#MISC_DOC_COVER_NUM] \{\
.ds $MISC_DOC_COVER_\\n+[#MISC_DOC_COVER_NUM] \
\\$[\\n[#MISC_DOC_COVER_NUM]]
.\}
.nr #NUM_MISCS_DOCCOVER \\n[#NUM_ARGS]
.\}
.if '\\$1'COVER' \{\
.shift
.nr #MISC_COVER_NUM 0 1
.while \\n[#NUM_ARGS]>\\n[#MISC_COVER_NUM] \{\
.ds $MISC_COVER_\\n+[#MISC_COVER_NUM] \\$[\\n[#MISC_COVER_NUM]]
.\}
.nr #NUM_MISCS_COVER \\n[#NUM_ARGS]
.\}
.if \\n[#NEITHER]=1 \{\
.nr #MISC_NUM 0 1
.while \\n[#NUM_ARGS]>\\n[#MISC_NUM] \{\
.ds $MISC_\\n+[#MISC_NUM] \\$[\\n[#MISC_NUM]]
.\}
.nr #NUM_MISCS \\n[#NUM_ARGS]
.rr #NEITHER
.\}
.\}
.END
.MAC PAGENUMBER END
.nr #n%_AT_PAGENUM_SET \\n%
.nr #PAGE_NUM_ADJ \\$1-\\n[#n%_AT_PAGENUM_SET]
.rr #n%_AT_PAGENUM_SET
.nr #PAGE_NUM_SET 1
.END
.MAC DOCTYPE END
.if '\\$1'DEFAULT' .nr #DOC_TYPE 1
.if '\\$1'CHAPTER' .nr #DOC_TYPE 2
.if '\\$1'NAMED' \{\
.ds $DOC_TYPE \\$2
.nr #DOC_TYPE 3
.\}
.if '\\$1'LETTER' \{\
.nr #DOC_TYPE 4
.L_MARGIN 1.125i
.R_MARGIN 1.125i
.ps 12
.vs 13.5
.nr #FOOTER_ADJ \\n[.v]
.DOCHEADER OFF
.PARA_INDENT 3m
.INDENT_FIRST_PARAS
.PARA_SPACE
.ds $SUITE \En[#SUITE]
.HEADER_MARGIN 3P+6p
.HEADER_GAP 3P
.FOOTERS
.FOOTER_RULE OFF
.FOOTER_LEFT ""
.FOOTER_CENTER ""
.FOOTER_RIGHT_SIZE +0
.FOOTER_RIGHT "\&.../\E*[$SUITE]
.FOOTER_ON_FIRST_PAGE
.em ALL_DONE
.\}
.END
.nr #FIELD 0 1
.MAC DATE END
.if !'\\n[.z]'' .di
.di LETTERHEAD\\n+[#FIELD]
.ie \\n[#FIELD]=1 \{\
.nr #DATE_FIRST 1
.RIGHT
.\}
.el .LEFT
.END
.MAC TO END
.if !'\\n[.z]'' .di
.di LETTERHEAD\\n+[#FIELD]
.LEFT
.END
.MAC FROM END
.if !'\\n[.z]'' .di
.di LETTERHEAD\\n+[#FIELD]
.LEFT
.END
.MAC GREETING END
.if !'\\n[.z]'' .di
.di LETTERHEAD\\n+[#FIELD]
.LEFT
.END
.MAC CLOSING END
.if '\\*[$SIG_SPACE]'' .ds $SIG_SPACE 3v
.ie ( (2v+\\*[$SIG_SPACE]) > \\n[.t] ) \{\
.ch HEADER
.ch FOOTER
.br
.tm1 "[mom]: Insufficient room for \\$0 and signature line.
.ab Aborting '\\n[.F]'.
.\}
.el .br
.nr #CLOSING 1
.di CLOSING_TEXT
.END
.MAC CLOSING_INDENT END
.ds $CLOSE_INDENT \\$1
.END
.MAC SIGNATURE_SPACE END
.ds $SIG_SPACE \\$1
.END
.MAC NO_SUITE END
.FOOTER_RIGHT ""
.END
.MAC _FAMILY END
.if '\\$0'AUTHOR_FAMILY' \
.ds $AUTHOR_FAM \\$1
.if '\\$0'BIBLIOGRAPHY_FAMILY' \
.ds $BIB_FAM \\$1
.if '\\$0'BIBLIOGRAPHY_STRING_FAMILY' \
.ds $BIB_STRING_FAM \\$1
.if '\\$0'BLOCKQUOTE_FAMILY' \
.ds $BQUOTE_FAM \\$1
.if '\\$0'CITATION_FAMILY' \
.ds $BQUOTE_FAM \\$1
.if '\\$0'CITE_FAMILY' \
.ds $BQUOTE_FAM \\$1
.if '\\$0'CHAPTER_TITLE_FAMILY' \
.ds $CHAPTER_TITLE_FAM \\$1
.if '\\$0'COVER_AUTHOR_FAMILY' \
.ds $COVER_AUTHOR_FAM \\$1
.if '\\$0'COVER_CHAPTER_TITLE_FAMILY' \
.ds $COVER_CHAPTER_TITLE_FAM \\$1
.if '\\$0'COVER_COPYRIGHT_FAMILY' \
.ds $COVER_COPYRIGHT_FAM \\$1
.if '\\$0'COVER_DOCTYPE_FAMILY' \
.ds $COVER_DOCTYPE_FAM \\$1
.if '\\$0'COVER_FAMILY' \
.ds $COVER_FAM \\$1
.if '\\$0'COVER_MISC_FAMILY' \
.ds $COVER_MISC_FAM \\$1
.if '\\$0'COVER_SUBTITLE_FAMILY' \
.ds $COVER_SUBTITLE_FAM \\$1
.if '\\$0'COVER_TITLE_FAMILY' \
.ds $COVER_TITLE_FAM \\$1
.if '\\$0'DOC_COVER_AUTHOR_FAMILY' \
.ds $DOC_COVER_AUTHOR_FAM \\$1
.if '\\$0'DOC_COVER_CHAPTER_TITLE_FAMILY' \
.ds $DOC_COVER_CHAPTER_TITLE_FAM \\$1
.if '\\$0'DOC_COVER_COPYRIGHT_FAMILY' \
.ds $DOC_COVER_COPYRIGHT_FAM \\$1
.if '\\$0'DOC_COVER_DOCTYPE_FAMILY' \
.ds $DOC_COVER_DOCTYPE_FAM \\$1
.if '\\$0'DOC_COVER_FAMILY' \
.ds $DOC_COVER_FAM \\$1
.if '\\$0'DOC_COVER_MISC_FAMILY' \
.ds $DOC_COVER_MISC_FAM \\$1
.if '\\$0'DOC_COVER_SUBTITLE_FAMILY' \
.ds $DOC_COVER_SUBTITLE_FAM \\$1
.if '\\$0'DOC_COVER_TITLE_FAMILY' \
.ds $DOC_COVER_TITLE_FAM \\$1
.if '\\$0'DOCHEADER_FAMILY' \
.ds $DOCHEADER_FAM \\$1
.if '\\$0'DOCTYPE_FAMILY' \
.ds $DOCTYPE_FAM \\$1
.if '\\$0'ENDNOTE_FAMILY' \
.ds $EN_FAM \\$1
.if '\\$0'ENDNOTE_NUMBER_FAMILY' \
.ds $EN_NUMBER_FAM \\$1
.if '\\$0'ENDNOTE_LINENUMBER_FAMILY' \
.ds $EN_LN_FAM \\$1
.if '\\$0'ENDNOTE_STRING_FAMILY' \
.ds $EN_STRING_FAM \\$1
.if '\\$0'ENDNOTE_TITLE_FAMILY' \
.ds $EN_TITLE_FAM \\$1
.if '\\$0'EPIGRAPH_FAMILY' \
.ds $EPI_FAM \\$1
.if '\\$0'FOOTNOTE_FAMILY' \
.ds $FN_FAM \\$1
.if '\\$0'HDRFTR_CENTER_FAMILY' \
.ds $HDRFTR_CENTER_FAM \\$1
.if '\\$0'HDRFTR_FAMILY' \{\
.ds $HDRFTR_FAM        \\$1
.ds $HDRFTR_LEFT_FAM   \\$1
.ds $HDRFTR_CENTER_FAM \\$1
.ds $HDRFTR_RIGHT_FAM  \\$1
.\}
.if '\\$0'HDRFTR_LEFT_FAMILY' \
.ds $HDRFTR_LEFT_FAM \\$1
.if '\\$0'HDRFTR_RIGHT_FAMILY' \
.ds $HDRFTR_RIGHT_FAM \\$1
.if '\\$0'LINENUMBER_FAMILY' \
.ds $LN_FAM \\$1
.if '\\$0'PAGENUM_FAMILY' \
.ds $PAGE_NUM_FAM \\$1
.if '\\$0'QUOTE_FAMILY' \
.ds $QUOTE_FAM \\$1
.if '\\$0'SUBTITLE_FAMILY' \
.ds $SUBTITLE_FAM \\$1
.if '\\$0'TITLE_FAMILY' \
.ds $TITLE_FAM \\$1
.if '\\$0'TOC_FAMILY' \
.ds $TOC_FAM \\$1
.if '\\$0'TOC_FAM' \
.ds $TOC_FAM \\$1
.if '\\$0'TOC_HEADER_FAMILY' \
.ds $TOC_HEADER_FAM \\$1
.if '\\$0'TOC_PN_FAMILY' \
.ds $TOC_PN_FAM \\$1
.END
.MAC _FONT END
.if '\\$0'AUTHOR_FONT' \
.ds $AUTHOR_FT \\$1
.if '\\$0'BIBLIOGRAPHY_FONT' \
.ds $BIB_FT \\$1
.if '\\$0'BIBLIOGRAPHY_STRING_FONT' \
.ds $BIB_STRING_FT \\$1
.if '\\$0'BLOCKQUOTE_FONT' \
.ds $BQUOTE_FT \\$1
.if '\\$0'CITATION_FONT' \
.ds $BQUOTE_FT \\$1
.if '\\$0'CITE_FONT' \
.ds $BQUOTE_FT \\$1
.if '\\$0'CHAPTER_TITLE_FONT' \
.ds $CHAPTER_TITLE_FT \\$1
.if '\\$0'COVER_AUTHOR_FONT' \
.ds $COVER_AUTHOR_FT \\$1
.if '\\$0'COVER_CHAPTER_TITLE_FONT' \
.ds $COVER_CHAPTER_TITLE_FT \\$1
.if '\\$0'COVER_COPYRIGHT_FONT' \
.ds $COVER_COPYRIGHT_FT \\$1
.if '\\$0'COVER_DOCTYPE_FONT' \
.ds $COVER_DOCTYPE_FT \\$1
.if '\\$0'COVER_MISC_FONT' \
.ds $COVER_MISC_FT \\$1
.if '\\$0'COVER_SUBTITLE_FONT' \
.ds $COVER_SUBTITLE_FT \\$1
.if '\\$0'COVER_TITLE_FONT' \
.ds $COVER_TITLE_FT \\$1
.if '\\$0'DOC_COVER_AUTHOR_FONT' \
.ds $DOC_COVER_AUTHOR_FT \\$1
.if '\\$0'DOC_COVER_CHAPTER_TITLE_FONT' \
.ds $DOC_COVER_CHAPTER_TITLE_FT \\$1
.if '\\$0'DOC_COVER_COPYRIGHT_FONT' \
.ds $DOC_COVER_COPYRIGHT_FT \\$1
.if '\\$0'DOC_COVER_DOCTYPE_FONT' \
.ds $DOC_COVER_DOCTYPE_FT \\$1
.if '\\$0'DOC_COVER_MISC_FONT' \
.ds $DOC_COVER_MISC_FT \\$1
.if '\\$0'DOC_COVER_SUBTITLE_FONT' \
.ds $DOC_COVER_SUBTITLE_FT \\$1
.if '\\$0'DOC_COVER_TITLE_FONT' \
.ds $DOC_COVER_TITLE_FT \\$1
.if '\\$0'DOCTYPE_FONT' \
.ds $DOCTYPE_FT \\$1
.if '\\$0'ENDNOTE_FONT' \
.ds $EN_FT \\$1
.if '\\$0'ENDNOTE_NUMBER_FONT' \
.ds $EN_NUMBER_FT \\$1
.if '\\$0'ENDNOTE_LINENUMBER_FONT' \
.ds $EN_LN_FT \\$1
.if '\\$0'ENDNOTE_STRING_FONT' \
.ds $EN_STRING_FT \\$1
.if '\\$0'ENDNOTE_TITLE_FONT' \
.ds $EN_TITLE_FT \\$1
.if '\\$0'EPIGRAPH_FONT' \
.ds $EPI_FT \\$1
.if '\\$0'FOOTNOTE_FONT' \
.ds $FN_FT \\$1
.if '\\$0'HDRFTR_CENTER_FONT' \
.ds $HDRFTR_CENTER_FT \\$1
.if '\\$0'HDRFTR_LEFT_FONT' \
.ds $HDRFTR_LEFT_FT \\$1
.if '\\$0'HDRFTR_RIGHT_FONT' \
.ds $HDRFTR_RIGHT_FT \\$1
.if '\\$0'LINENUMBER_FONT' \
.ds $LN_FT \\$1
.if '\\$0'PAGENUM_FONT' \
.ds $PAGE_NUM_FT \\$1
.if '\\$0'QUOTE_FONT' \
.ds $QUOTE_FT \\$1
.if '\\$0'SUBTITLE_FONT' \
.ds $SUBTITLE_FT \\$1
.if '\\$0'TITLE_FONT' \
.ds $TITLE_FT \\$1
.if '\\$0'TOC_HEADER_FONT' \
.ds $TOC_HEADER_FT \\$1
.if '\\$0'TOC_PN_FONT' \
.ds $TOC_PN_FT \\$1
.END
.MAC _SIZE END
.if '\\$0'AUTHOR_SIZE' \
.ds $AUTHOR_SIZE_CHANGE \\$1
.if '\\$0'BIBLIOGRAPHY_STRING_SIZE' \
.ds $BIB_STRING_SIZE_CHANGE \\$1
.if '\\$0'BLOCKQUOTE_SIZE' \
.ds $BQUOTE_SIZE_CHANGE \\$1
.if '\\$0'CITATION_SIZE' \
.ds $BQUOTE_SIZE_CHANGE \\$1
.if '\\$0'CITE_SIZE' \
.ds $BQUOTE_SIZE_CHANGE \\$1
.if '\\$0'CHAPTER_TITLE_SIZE' \
.ds $CHAPTER_TITLE_SIZE_CHANGE \\$1
.if '\\$0'COVER_AUTHOR_SIZE' \
.ds $COVER_AUTHOR_SIZE_CHANGE \\$1
.if '\\$0'COVER_CHAPTER_TITLE_SIZE' \
.ds $COVER_CHAPTER_TITLE_SIZE_CHANGE \\$1
.if '\\$0'COVER_COPYRIGHT_SIZE' \
.ds $COVER_COPYRIGHT_SIZE_CHANGE \\$1
.if '\\$0'COVER_DOCTYPE_SIZE' \
.ds $COVER_DOCTYPE_SIZE_CHANGE \\$1
.if '\\$0'COVER_MISC_SIZE' \
.ds $COVER_MISC_SIZE_CHANGE \\$1
.if '\\$0'COVER_SUBTITLE_SIZE' \
.ds $COVER_SUBTITLE_SIZE_CHANGE \\$1
.if '\\$0'COVER_TITLE_SIZE' \
.ds $COVER_TITLE_SIZE_CHANGE \\$1
.if '\\$0'DOC_COVER_AUTHOR_SIZE' \
.ds $DOC_COVER_AUTHOR_SIZE_CHANGE \\$1
.if '\\$0'DOC_COVER_CHAPTER_TITLE_SIZE' \
.ds $DOC_COVER_CHAPTER_TITLE_SIZE_CHANGE \\$1
.if '\\$0'DOC_COVER_COPYRIGHT_SIZE' \
.ds $DOC_COVER_COPYRIGHT_SIZE_CHANGE \\$1
.if '\\$0'DOC_COVER_DOCTYPE_SIZE' \
.ds $DOC_COVER_DOCTYPE_SIZE_CHANGE \\$1
.if '\\$0'DOC_COVER_MISC_SIZE' \
.ds $DOC_COVER_MISC_SIZE_CHANGE \\$1
.if '\\$0'DOC_COVER_SUBTITLE_SIZE' \
.ds $DOC_COVER_SUBTITLE_SIZE_CHANGE \\$1
.if '\\$0'DOC_COVER_TITLE_SIZE' \
.ds $DOC_COVER_TITLE_SIZE_CHANGE \\$1
.if '\\$0'DOCTYPE_SIZE' \
.ds $DOCTYPE_SIZE_CHANGE \\$1
.if '\\$0'ENDNOTE_NUMBER_SIZE' \
.ds $EN_NUMBER_SIZE_CHANGE \\$1
.if '\\$0'ENDNOTE_LINENUMBER_SIZE' \
.ds $EN_LN_SIZE_CHANGE \\$1
.if '\\$0'ENDNOTE_STRING_SIZE' \
.ds $EN_STRING_SIZE_CHANGE \\$1
.if '\\$0'ENDNOTE_TITLE_SIZE' \
.ds $EN_TITLE_SIZE_CHANGE \\$1
.if '\\$0'EPIGRAPH_SIZE' \
.ds $EPI_SIZE_CHANGE \\$1
.if '\\$0'FOOTNOTE_SIZE' \
.ds $FN_SIZE_CHANGE \\$1
.if '\\$0'HDRFTR_CENTER_SIZE' \
.ds $HDRFTR_CENTER_SIZE_CHANGE \\$1
.if '\\$0'HDRFTR_LEFT_SIZE' \
.ds $HDRFTR_LEFT_SIZE_CHANGE \\$1
.if '\\$0'HDRFTR_RIGHT_SIZE' \
.ds $HDRFTR_RIGHT_SIZE_CHANGE \\$1
.if '\\$0'HDRFTR_SIZE' \
.ds $HDRFTR_SIZE_CHANGE \\$1
.if '\\$0'LINENUMBER_SIZE' \
.ds $LN_SIZE_CHANGE \\$1
.if '\\$0'PAGENUM_SIZE' \
.ds $PAGE_NUM_SIZE_CHANGE \\$1
.if '\\$0'QUOTE_SIZE' \
.ds $QUOTE_SIZE_CHANGE \\$1
.if '\\$0'SUBTITLE_SIZE' \
.ds $SUBTITLE_SIZE_CHANGE \\$1
.if '\\$0'TITLE_SIZE' \
.ds $TITLE_SIZE_CHANGE \\$1
.if '\\$0'TOC_HEADER_SIZE' \
.ds $TOC_HEADER_SIZE_CHANGE \\$1
.if '\\$0'TOC_PN_SIZE' \
.ds $TOC_PN_SIZE_CHANGE \\$1
.END
.MAC _COLOR END
.if \\n[#PRINT_STYLE]=1 .return
.if '\\$0'ATTRIBUTE_COLOR' \{\
.nr #ATTRIBUTE_COLOR 1
.ds $ATTRIBUTE_COLOR \\$1
.\}
.if '\\$0'AUTHOR_COLOR' \{\
.nr #AUTHOR_COLOR 1
.ds $AUTHOR_COLOR \\$1
.\}
.if '\\$0'BLOCKQUOTE_COLOR' \{\
.nr #BQUOTE_COLOR 1
.ds $BQUOTE_COLOR \\$1
.\}
.if '\\$0'CITATION_COLOR' \{\
.nr #BQUOTE_COLOR 1
.ds $BQUOTE_COLOR \\$1
.\}
.if '\\$0'CITE_COLOR' \{\
.nr #BQUOTE_COLOR 1
.ds $BQUOTE_COLOR \\$1
.\}
.if '\\$0'CHAPTER_TITLE_COLOR' \{\
.nr #CHAPTER_TITLE_COLOR 1
.ds $CHAPTER_TITLE_COLOR \\$1
.\}
.if '\\$0'CODE_COLOR' \{\
.nr #CODE_COLOR 1
.ds $CODE_COLOR \\$1
.\}
.if '\\$0'COVER_ATTRIBUTE_COLOR' \{\
.nr #COVER_ATTRIBUTE_COLOR 1
.ds $COVER_ATTRIBUTE_COLOR \\$1
.\}
.if '\\$0'COVER_AUTHOR_COLOR' \{\
.nr #COVER_AUTHOR_COLOR 1
.ds $COVER_AUTHOR_COLOR \\$1
.\}
.if '\\$0'COVER_CHAPTER_TITLE_COLOR' \{\
.nr #COVER_CHAPTER_TITLE_COLOR 1
.ds $COVER_CHAPTER_TITLE_COLOR \\$1
.\}
.if '\\$0'COVER_COLOR' \{\
.nr #COVER_COLOR 1
.ds $COVER_COLOR \\$1
.\}
.if '\\$0'COVER_COPYRIGHT_COLOR' \{\
.nr #COVER_COPYRIGHT_COLOR 1
.ds $COVER_COPYRIGHT_COLOR \\$1
.\}
.if '\\$0'COVER_MISC_COLOR' \{\
.nr #COVER_MISC_COLOR 1
.ds $COVER_MISC_COLOR \\$1
.\}
.if '\\$0'COVER_TITLE_COLOR' \{\
.nr #COVER_TITLE_COLOR 1
.ds $COVER_TITLE_COLOR \\$1
.\}
.if '\\$0'COVER_SUBTITLE_COLOR' \{\
.nr #COVER_SUBTITLE_COLOR 1
.ds $COVER_SUBTITLE_COLOR \\$1
.\}
.if '\\$0'COVER_DOCTYPE_COLOR' \{\
.nr #COVER_DOCTYPE_COLOR 1
.ds $COVER_DOCTYPE_COLOR \\$1
.\}
.if '\\$0'DOC_COVER_ATTRIBUTE_COLOR' \{\
.nr #DOC_COVER_ATTRIBUTE_COLOR 1
.ds $DOC_COVER_ATTRIBUTE_COLOR \\$1
.\}
.if '\\$0'DOC_COVER_AUTHOR_COLOR' \{\
.nr #DOC_COVER_AUTHOR_COLOR 1
.ds $DOC_COVER_AUTHOR_COLOR \\$1
.\}
.if '\\$0'DOC_COVER_CHAPTER_TITLE_COLOR' \{\
.nr #DOC_COVER_CHAPTER_TITLE_COLOR 1
.ds $DOC_COVER_CHAPTER_TITLE_COLOR \\$1
.\}
.if '\\$0'DOC_COVER_COLOR' \{\
.nr #DOC_COVER_COLOR 1
.ds $DOC_COVER_COLOR \\$1
.\}
.if '\\$0'DOC_COVER_COPYRIGHT_COLOR' \{\
.nr #DOC_COVER_COPYRIGHT_COLOR 1
.ds $DOC_COVER_COPYRIGHT_COLOR \\$1
.\}
.if '\\$0'DOC_COVER_MISC_COLOR' \{\
.nr #DOC_COVER_MISC_COLOR 1
.ds $DOC_COVER_MISC_COLOR \\$1
.\}
.if '\\$0'DOC_COVER_TITLE_COLOR' \{\
.nr #DOC_COVER_TITLE_COLOR 1
.ds $DOC_COVER_TITLE_COLOR \\$1
.\}
.if '\\$0'DOC_COVER_SUBTITLE_COLOR' \{\
.nr #DOC_COVER_SUBTITLE_COLOR 1
.ds $DOC_COVER_SUBTITLE_COLOR \\$1
.\}
.if '\\$0'DOC_COVER_DOCTYPE_COLOR' \{\
.nr #DOC_COVER_DOCTYPE_COLOR 1
.ds $DOC_COVER_DOCTYPE_COLOR \\$1
.\}
.if '\\$0'DOCHEADER_COLOR' \{\
.nr #DOCHEADER_COLOR 1
.ds $DOCHEADER_COLOR \\$1
.\}
.if '\\$0'DOCTYPE_COLOR' \{\
.nr #DOCTYPE_COLOR 1
.ds $DOCTYPE_COLOR \\$1
.\}
.if '\\$0'ENDNOTE_STRING_COLOR' \{\
.nr #ENDNOTE_STRING_COLOR 1
.ds $ENDNOTE_STRING_COLOR \\$1
.\}
.if '\\$0'EPIGRAPH_COLOR' \{\
.nr #EPI_COLOR 1
.ds $EPI_COLOR \\$1
.\}
.if '\\$0'FINIS_COLOR' \{\
.nr #FINIS_COLOR 1
.ds $FINIS_COLOR \\$1
.\}
.if '\\$0'FOOTNOTE_COLOR' \{\
.nr #FOOTNOTE_COLOR 1
.ds $FOOTNOTE_COLOR \\$1
.\}
.if '\\$0'HDRFTR_CENTER_COLOR' \{\
.nr #HDRFTR_CENTER_COLOR 1
.ds $HDRFTR_CENTER_COLOR \\$1
.\}
.if '\\$0'HDRFTR_COLOR' \{\
.nr #HDRFTR_COLOR 1
.ds $HDRFTR_COLOR \\$1
.\}
.if '\\$0'HDRFTR_LEFT_COLOR' \{\
.nr #HDRFTR_LEFT_COLOR 1
.ds $HDRFTR_LEFT_COLOR \\$1
.\}
.if '\\$0'HDRFTR_RIGHT_COLOR' \{\
.nr #HDRFTR_RIGHT_COLOR 1
.ds $HDRFTR_RIGHT_COLOR \\$1
.\}
.if '\\$0'HDRFTR_RULE_COLOR' \{\
.nr #HDRFTR_RULE_COLOR 1
.ds $HDRFTR_RULE_COLOR \\$1
.\}
.if '\\$0'LINEBREAK_COLOR' \{\
.nr #LINEBREAK_COLOR 1
.ds $LINEBREAK_COLOR \\$1
.\}
.if '\\$0'LINENUMBER_COLOR' \{\
.nr #LINENUMBER_COLOR 1
.ds $LN_COLOR \\$1
.\}
.if '\\$0'PAGENUM_COLOR' \{\
.nr #PAGE_NUM_COLOR 1
.ds $PAGENUM_COLOR \\$1
.\}
.if '\\$0'QUOTE_COLOR' \{\
.nr #QUOTE_COLOR 1
.ds $QUOTE_COLOR \\$1
.\}
.if '\\$0'SECTION_COLOR' \{\
.nr #LINEBREAK_COLOR 1
.ds $LINEBREAK_COLOR \\$1
.\}
.if '\\$0'SUBTITLE_COLOR' \{\
.nr #SUBTITLE_COLOR 1
.ds $SUBTITLE_COLOR \\$1
.\}
.if '\\$0'TITLE_COLOR' \{\
.nr #TITLE_COLOR 1
.ds $TITLE_COLOR \\$1
.\}
.END
.MAC _QUAD END
.if '\\$0'BIBLIOGRAPHY_QUAD' \{\
.ds $BIB_QUAD \\$1
.if '\\*[$BIB_QUAD]'R' \
.ab \\$0 at line \\n[.c] must be set to either L or J.  Aborting \\n'[.F]'.
.if '\\*[$BIB_QUAD]'C' \
.ab \\$0 at line \\n[.c] must be set to either L or J.  Aborting \\n'[.F]'.
.\}
.if '\\$0'BIBLIOGRAPHY_STRING_QUAD' \
.ds $BIB_STRING_QUAD \\$1
.if '\\$0'BLOCKQUOTE_QUAD' \
.ds $BQUOTE_QUAD \\$1
.if '\\$0'CITATION_QUAD' \
.ds $BQUOTE_QUAD \\$1
.if '\\$0'CITE_QUAD' \
.ds $BQUOTE_QUAD \\$1
.if '\\$0'COVER_COPYRIGHT_QUAD' \
.ds $COVER_COPYRIGHT_QUAD \\$1
.if '\\$0'COVER_MISC_QUAD' \
.ds $COVER_MISC_QUAD \\$1
.if '\\$0'COVER_QUAD' \
.ds $COVER_QUAD \\$1
.if '\\$0'DOC_COVER_COPYRIGHT_QUAD' \
.ds $DOC_COVER_COPYRIGHT_QUAD \\$1
.if '\\$0'DOC_COVER_MISC_QUAD' \
.ds $DOC_COVER_MISC_QUAD \\$1
.if '\\$0'DOC_COVER_QUAD' \
.ds $DOC_COVER_QUAD \\$1
.if '\\$0'DOCHEADER_QUAD' \
.ds $DOCHEADER_QUAD \\$1
.if '\\$0'DOC_QUAD' \{\
.if !\\n[DOCS] .DOC_MACRO_ERROR \\$0
.ds $DOC_QUAD \\$1
.QUAD \\*[$DOC_QUAD]
.\}
.if '\\$0'ENDNOTE_QUAD' \{\
.ds $EN_QUAD \\$1
.if '\\*[$EN_QUAD]'R' \
.ab \\$0 at line \\n[.c] must be set to either L or J.  Aborting \\n'[.F]'.
.if '\\*[$EN_QUAD]'C' \
.ab \\$0 at line \\n[.c] must be set to either L or J.  Aborting \\n'[.F]'.
.\}
.if '\\$0'ENDNOTE_STRING_QUAD' \
.ds $EN_STRING_QUAD \\$1
.if '\\$0'ENDNOTE_TITLE_QUAD' \
.ds $EN_TITLE_QUAD \\$1
.if '\\$0'EPIGRAPH_QUAD' \
.ds $EPI_QUAD \\$1
.if '\\$0'FOOTNOTE_QUAD' \
.ds $FN_QUAD \\$1
.if '\\$0'TOC_HEADER_QUAD' \
.ds $TOC_HEADER_QUAD \\$1
.END
.MAC DEFAULTS END
.if !d $PAPER .PAPER LETTER
.if !\\n[#DOC_TYPE] .DOCTYPE DEFAULT
.ie \\n[#PAGENUM_STYLE_SET] .PAGENUM_STYLE \\*[$PAGENUM_STYLE]
.el \
.if !\\n[#COPY_STYLE]=1 .PAGENUM_STYLE DIGIT
.if !\\n[#COPY_STYLE] .COPYSTYLE FINAL
.if \\n[#DRAFT_WITH_PAGENUM] .COPYSTYLE \\*[$COPY_STYLE]
.if \\n[#DOC_TYPE]=4 \{\
.if !\\n[#USER_SET_L_LENGTH] \{\
.R_MARGIN \\n[#R_MARGIN]u
.rr #USER_SET_L_LENGTH
.\}
.if \\n[#PRINT_STYLE]=1 .PRINTSTYLE TYPEWRITE SINGLESPACE
.\}
.if \\n[#COPY_STYLE]=1 \{\
.COPYSTYLE DRAFT
.PAGENUMBER 1
.\}
.if !r #DOC_HEADER .DOCHEADER
.if !r #HEADERS_ON .HEADERS
.if !r #PAGINATE   .PAGINATE
.if !r #HEADER_MARGIN .HEADER_MARGIN 4P+6p
.if !r #HEADER_GAP    .HEADER_GAP 3P
.if \\n[#FOOTERS_ON] \{\
.HEADERS OFF
.ie \\n[#PAGINATE] \
.if \\n[#PAGE_NUM_POS_SET]=0 .PAGENUM_POS TOP CENTER
.el \
.if !\\n[#T_MARGIN] .T_MARGIN 6P
.\}
.if !\\n[#HEADERS_ON] \{\
.if !\\n[#FOOTERS_ON] \{\
.ie \\n[#PAGE_NUM_V_POS]=1 \{\
.HEADER_MARGIN \\n[#HEADER_MARGIN]
.HEADER_GAP \\n[#HEADER_GAP]
.\}
.el .if !r #T_MARGIN .T_MARGIN 6P
.\}
.\}
.if !r #T_MARGIN          .T_MARGIN \\n[#HEADER_MARGIN]+\\n[#HEADER_GAP]
.if !r #DOCHEADER_ADVANCE .nr #DOCHEADER_ADVANCE \\n[#T_MARGIN]
.if !r #FOOTER_MARGIN     .FOOTER_MARGIN 3P
.if !r #FOOTER_GAP        .FOOTER_GAP 3P
.if !r #B_MARGIN          .B_MARGIN \\n[#FOOTER_MARGIN]u+\\n[#FOOTER_GAP]u
.if (\\n[#FOOTER_MARGIN]+\\n[.v]>=\\n[#B_MARGIN]) \{\
.tm1 "[mom]: Your chosen bottom margin for running text is too close to the footer margin.
.tm1 "       No footers or bottom-of-page page numbers will be printed.
.tm1 "       Please reset B_MARGIN or FOOTER_MARGIN to allow enough space.
.tm1 "       If no footers or bottom-of-page page numbers are required,
.tm1 "       invoke .FOOTER_MARGIN 0 before .START
.\}
.if !r #HEADER_RULE_GAP .HEADER_RULE_GAP 4p
.if !r #FOOTER_RULE_GAP .FOOTER_RULE_GAP 4p
.if !r #HDRFTR_RULE     .HDRFTR_RULE
.if !r #PAGE_NUM_SET    .PAGENUMBER 1
.nr #DOC_L_MARGIN \\n[#L_MARGIN]
.nr #DOC_L_LENGTH \\n[#L_LENGTH]
.nr #DOC_R_MARGIN \\n[#PAGE_WIDTH]-(\\n[#DOC_L_MARGIN]+\\n[#L_LENGTH])
.if '\\*[$SAVED_DOC_FAM]'' \{\
.ds $DOC_FAM \\*[$FAMILY]
.rm $SAVED_DOC_FAM
.\}
.nr #DOC_PT_SIZE  \\n[#PT_SIZE]
.if \\n[#TOC]          .nr #DOC_PT_SIZE \\n[#TOC_PS]
.if \\n[#ENDNOTES]     .nr #DOC_PT_SIZE \\n[#EN_PS]
.if \\n[#BIBLIOGRAPHY] .nr #DOC_PT_SIZE \\n[#BIB_PS]
.nr #DOC_LEAD     \\n[.v]
.nr #DOC@LEAD     \\n[#DOC_LEAD]
.if \\n[#AUTO_LEAD] .nr #DOC_AUTOLEAD \\n[#AUTOLEAD_VALUE]
.if \\n[#SAVED_DOC_LEAD] \{\
.if \
(\\n[#TOC]=0):\
(\\n[#LIST_OF_FIGURES]=0):\
(\\n[#LIST_OF_TABLES]=0):\
(\\n[#LIST_OF_EQUATIONS]=0) \
.if !\\n[#DOC_LEAD]=\\n[#SAVED_DOC_LEAD] .nr #RERUN_TRAPS 1
.\}
.ie \\n[#ADJ_DOC_LEAD]=1 .
.el \
.if !\\n[#DOC_LEAD_ADJUST_OFF] .DOC_LEAD_ADJUST
.ds $DOC_QUAD \\*[$QUAD_VALUE]
.if '\\*[$FONT]''   .FT R
.if '\\*[$PP_FT]''  .ds $PP_FT \\*[$FONT]
.if !'\\*[$PP_FT]'' .ds $PP_FT \\*[$FONT]
.nr #PP                0
.nr #FN_NUMBER         0 1
.nr #EN_NUMBER         0 1
.nr #FN_COUNT_FOR_COLS 0 1
.nr #DONE_ONCE         0 1
.if \\n[#NO_SHIM]=2    .rr #NO_SHIM
.nr #PP_STYLE 1
.PARA_INDENT \\n[#PP_INDENT]u
.if !d $HDRFTR_FAM               .HDRFTR_FAMILY \\*[$DOC_FAM]
.if !d $HDRFTR_SIZE_CHANGE       .HDRFTR_SIZE +0
.if !d $PAGE_NUM_FAM             .PAGENUM_FAMILY \\*[$DOC_FAM]
.if !d $PAGE_NUM_FT              .PAGENUM_FONT R
.if !d $PAGE_NUM_SIZE_CHANGE     .PAGENUM_SIZE +0
.if !r #PAGE_NUM_POS_SET         .PAGENUM_POS BOTTOM CENTER
.ie \\n[#PAGE_NUM_HYPHENS_SET] \{\
.if \\n[#PAGE_NUM_HYPHENS]=0  .PAGENUM_HYPHENS OFF
.if \\n[#PAGE_NUM_HYPHENS]=1  .PAGENUM_HYPHENS
.\}
.el .PAGENUM_HYPHENS
.if !r #HDRFTR_RIGHT_CAPS .HDRFTR_RIGHT_CAPS
.if \\n[#HDRFTR_RIGHT_CAPS]=0 \
.if !d $HDRFTR_RIGHT_SIZE_CHANGE .HDRFTR_RIGHT_SIZE +0
.if !d $FN_FAM        .FOOTNOTE_FAMILY \\*[$DOC_FAM]
.if !d $FN_FT         .FOOTNOTE_FONT R
.if !d $FN_QUAD       .FOOTNOTE_QUAD \\*[$DOC_QUAD]
.if !r #FN_RULE       .FOOTNOTE_RULE
.if !r #FN_MARKERS    .FOOTNOTE_MARKERS
.if \\n[#FN_MARKERS]=1 \{\
.if \\n[#FN_REF]=1 \
.if !\\n[#FN_MARKER_STYLE] .FOOTNOTE_MARKER_STYLE NUMBER
.if !\\n[#FN_MARKER_STYLE] .FOOTNOTE_MARKER_STYLE STAR
.\}
.if !r #EN_MARKER_STYLE     .ENDNOTE_MARKER_STYLE SUPERSCRIPT
.if !d $EN_PN_STYLE         .ENDNOTES_PAGENUM_STYLE digit
.if !d $EN_FAM              .ENDNOTE_FAMILY \\*[$DOC_FAM]
.if !d $EN_FT               .ENDNOTE_FONT R
.if !d $EN_QUAD             .ENDNOTE_QUAD \\*[$DOC_QUAD]
.if !d $EN_STRING           .ENDNOTE_STRING "Endnotes"
.if !d $EN_STRING_FAM       .ENDNOTE_STRING_FAMILY \\*[$EN_FAM]
.if !d $EN_STRING_QUAD      .ENDNOTE_STRING_QUAD CENTER
.if !r #EN_STRING_UNDERLINE .nr #EN_STRING_UNDERLINE 2
.if !r #EN_STRING_CAPS      .ENDNOTE_STRING_CAPS
.if !d $EN_TITLE \{\
.ie \\n[#DOC_TYPE]=2 \{\
.ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.ie '\\*[$CHAPTER]'' .ENDNOTE_TITLE "\\*[$CHAPTER_TITLE]"
.el .ENDNOTE_TITLE \
"\\*[$CHAPTER_STRING] \\*[$CHAPTER]: \\*[$CHAPTER_TITLE]"
.\}
.el \{\
.ie '\\*[$CHAPTER]'' .ENDNOTE_TITLE "\\*[$CHAPTER_STRING]"
.el .ENDNOTE_TITLE "\\*[$CHAPTER_STRING] \\*[$CHAPTER]"
.\}
.\}
.el .ENDNOTE_TITLE "\\*[$TITLE]"
.\}
.if !d $EN_TITLE_FAM          .ENDNOTE_TITLE_FAMILY \\*[$EN_FAM]
.if !d $EN_TITLE_QUAD         .ENDNOTE_TITLE_QUAD LEFT
.if !r #EN_TITLE_UNDERLINE    .nr #EN_TITLE_UNDERLINE 1
.if !d $EN_NUMBER_FAM         .ENDNOTE_NUMBER_FAMILY \\*[$EN_FAM]
.if !d $EN_LN_FAM             .ENDNOTE_LINENUMBER_FAMILY \\*[$EN_FAM]
.if !r #EN_NUMBERS_ALIGN_LEFT \{\
.if !r #EN_NUMBERS_ALIGN_RIGHT \{\
.ie !\\n[#EN_MARKER_STYLE]=2 .ENDNOTE_NUMBERS_ALIGN RIGHT 2
.el .ENDNOTE_NUMBERS_ALIGN RIGHT 4
.\}
.\}
.if !r #EN_LN_GAP            .ENDNOTE_LINENUMBER_GAP 1m
.if !r #EN_ALLOWS_HEADERS    .ENDNOTES_ALLOWS_HEADERS
.if !d $BIB_PN_STYLE         .BIBLIOGRAPHY_PAGENUM_STYLE digit
.if !d $BIB_FAM              .BIBLIOGRAPHY_FAMILY \\*[$DOC_FAM]
.if !d $BIB_FT               .BIBLIOGRAPHY_FONT R
.if !d $BIB_QUAD             .BIBLIOGRAPHY_QUAD \\*[$DOC_QUAD]
.if !d $BIB_STRING           .BIBLIOGRAPHY_STRING "Bibliography"
.if !d $BIB_STRING_FAM       .BIBLIOGRAPHY_STRING_FAMILY \\*[$BIB_FAM]
.if !d $BIB_STRING_QUAD      .BIBLIOGRAPHY_STRING_QUAD CENTER
.if !r #BIB_STRING_UNDERLINE .nr #BIB_STRING_UNDERLINE 2
.if !r #BIB_STRING_CAPS      .BIBLIOGRAPHY_STRING_CAPS
.if !d $TOC_HEADER_STRING    .TOC_HEADER_STRING "Contents"
.if !d $TOC_HEADER_QUAD      .TOC_HEADER_QUAD LEFT
.if !d $TOC_PN_STYLE         .TOC_PAGENUM_STYLE roman
.if !r #TOC_PN_PADDING       .TOC_PADDING 3
.if !r #LN_GUTTER      .nr #LN_GUTTER 2
.if !r #Q_LN_GUTTER    .nr #Q_LN_GUTTER 2
.if !r #BQ_LN_GUTTER   .nr #BQ_LN_GUTTER 2
.if !d $LN_FAM         .ds $LN_FAM \\*[$DOC_FAM]
.if !d $LN_FT          .ds $LN_FT R
.if !d $LN_SIZE_CHANGE .ds $LN_SIZE_CHANGE +0
.if !d $LN_COLOR       .ds $LN_COLOR black
.if !\\n[PDFHREF_COLOR_SET] .PDF_LINK_COLOR 0.0 0.3 0.9
.if !d pdf-img:frame-weight .ds pdf-img:frame-weight .5
.if !d pdf-img:frame-color  .ds pdf-img:frame-color  black
.nr label-type-counter 0 1
.while \\n+[label-type-counter]<=4 \{\
.if \\n[label-type-counter]=1 .ds label-type eqn
.if \\n[label-type-counter]=2 .ds label-type pdf-img
.if \\n[label-type-counter]=3 .ds label-type pic
.if \\n[label-type-counter]=4 .ds label-type tbl
.nr spec-type-counter 0 1
.while \\n+[spec-type-counter]<=3 \{\
.if \\n[spec-type-counter]=1 .ds spec-type label
.if \\n[spec-type-counter]=2 .ds spec-type caption
.if \\n[spec-type-counter]=3 .ds spec-type source
.set-defaults
.set-inline-specs
.\}
.\}
.ie \\n[#DOC_TYPE]=1 \{\
.ie '\\*[$DOC_TITLE]'' \{\
.if \\n[#USER_DEF_HDRFTR_LEFT]=0  .ds $HDRFTR_LEFT \\*[$AUTHOR_1]
.if \\n[#USER_DEF_HDRFTR_RIGHT]=0 .ds $HDRFTR_RIGHT \\*[$TITLE]
.\}
.el \{\
.if \\n[#COPY_STYLE]=1             .DRAFT_WITH_PAGENUMBER
.if \\n[#USER_DEF_HDRFTR_LEFT]=0   .ds $HDRFTR_LEFT \\*[$AUTHOR_1]
.if \\n[#USER_DEF_HDRFTR_CENTER]=0 .ds $HDRFTR_CENTER \\*[$TITLE]
.if \\n[#USER_DEF_HDRFTR_RIGHT]=0  .ds $HDRFTR_RIGHT \\*[$DOC_TITLE]
.\}
.\}
.el \{\
.if \\n[#USER_DEF_HDRFTR_LEFT]=0  .ds $HDRFTR_LEFT \\*[$AUTHOR_1]
.if \\n[#USER_DEF_HDRFTR_RIGHT]=0 .ds $HDRFTR_RIGHT \\*[$TITLE]
.\}
.if !d $ATTRIBUTE_STRING     .ds $ATTRIBUTE_STRING by
.if !d $FINIS_STRING         .FINIS_STRING "End"
.if !r #FINIS_STRING_CAPS    .nr #FINIS_STRING_CAPS 1
.if !r #DOC_COVERS_OFF           .nr #DOC_COVERS 1
.if !r #COVERS_OFF               .nr #COVERS 1
.if !d $COVER_COPYRIGHT_QUAD     .COVER_COPYRIGHT_QUAD R
.if !d $COVER_MISC_QUAD          .COVER_MISC_QUAD L
.if !d $DOC_COVER_COPYRIGHT_QUAD .DOC_COVER_COPYRIGHT_QUAD R
.if !d $DOC_COVER_MISC_QUAD      .DOC_COVER_MISC_QUAD L
.if !r #DOC_COVER_UNDERLINE      .DOC_COVER_UNDERLINE
.if !r #COVER_UNDERLINE          .COVER_UNDERLINE
.if \\n[#PRINT_STYLE]=1 \{\
.TYPEWRITER
.SS DEFAULT
.if \\n[#UNDERLINE_QUOTES]=1 .UNDERLINE_QUOTES
.if \\n[#UNDERLINE_QUOTES]=0 .UNDERLINE_QUOTES OFF
.if !r #DOCTYPE_UNDERLINE .nr #DOCTYPE_UNDERLINE 1
.if !r #Q_OFFSET_VALUE \{\
.if '\\*[$Q_OFFSET_VALUE]'' .QUOTE_INDENT 1
.\}
.if !r #EPI_OFFSET_VALUE \
.if '\\*[$EPI_OFFSET_VALUE]'' .EPIGRAPH_INDENT 2
.if !d $LINEBREAK_CHAR .LINEBREAK_CHAR * 3 2p
.if !d $FN_SIZE_CHANGE    .FOOTNOTE_SIZE +0
.if !r #FN_RULE_LENGTH    .FOOTNOTE_RULE_LENGTH 2i
.if !r #EN_PP_INDENT .ENDNOTE_PARA_INDENT \\n[#PP_INDENT]
.if !r #FN_RULE_ADJ  .FOOTNOTE_RULE_ADJ 6p
.if !r #SLANT_MEANS_SLANT \{\
.ie \\n[#UNDERLINE_SLANT]=1 .UNDERLINE_SLANT
.el .UNDERLINE_SLANT OFF
.\}
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.if !d $DOCHEADER_LEAD_ADJ .DOCHEADER_LEAD +0
.if !d $COVER_LEAD_ADJ .COVER_LEAD +0
.if !d $COVER_FAM      .COVER_FAMILY \\*[$DOC_FAM]
.if !d $COVER_TITLE_FAM \{\
.ie !d $COVER_FAM .COVER_TITLE_FAMILY \\*[$DOC_FAM]
.el .COVER_TITLE_FAMILY \\*[$COVER_FAM]
.\}
.if !d $COVER_TITLE_FT .COVER_TITLE_FONT B
.if !d $COVER_TITLE_SIZE_CHANGE .COVER_TITLE_SIZE +3.5
.if !d $COVER_CHAPTER_TITLE_FAM \{\
.ie !d $COVER_FAM .COVER_CHAPTER_TITLE_FAMILY \\*[$DOC_FAM]
.el .COVER_CHAPTER_TITLE_FAMILY \\*[$COVER_FAM]
.\}
.if !d $COVER_CHAPTER_TITLE_FT .COVER_CHAPTER_TITLE_FONT BI
.if !d $COVER_CHAPTER_TITLE_SIZE_CHANGE .COVER_CHAPTER_TITLE_SIZE +4
.if !d $COVER_SUBTITLE_FAM \{\
.ie !d $COVER_FAM .COVER_SUBTITLE_FAMILY \\*[$DOC_FAM]
.el .COVER_SUBTITLE_FAMILY \\*[$COVER_FAM]
.\}
.if !d $COVER_SUBTITLE_FT .COVER_SUBTITLE_FONT R
.if !d $COVER_SUBTITLE_SIZE_CHANGE .COVER_SUBTITLE_SIZE +0
.if !d $COVER_AUTHOR_FAM \{\
.ie !d $COVER_FAM .COVER_AUTHOR_FAMILY \\*[$DOC_FAM]
.el .COVER_AUTHOR_FAMILY \\*[$COVER_FAM]
.\}
.if !d $COVER_AUTHOR_FT .COVER_AUTHOR_FONT I
.if !d $COVER_AUTHOR_SIZE_CHANGE .COVER_AUTHOR_SIZE +0
.if !d $COVER_DOCTYPE_FAM \{\
.ie !d $COVER_FAM .COVER_DOCTYPE_FAMILY \\*[$DOC_FAM]
.el .COVER_DOCTYPE_FAMILY \\*[$COVER_FAM]
.\}
.if !d $COVER_DOCTYPE_FT .COVER_DOCTYPE_FONT BI
.if !d $COVER_DOCTYPE_SIZE_CHANGE .COVER_DOCTYPE_SIZE +3
.if !d $COVER_COPYRIGHT_FAM \{\
.ie !d $COVER_FAM .COVER_COPYRIGHT_FAMILY \\*[$DOC_FAM]
.el .COVER_COPYRIGHT_FAMILY \\*[$COVER_FAM]
.\}
.if !d $COVER_COPYRIGHT_FT .COVER_COPYRIGHT_FONT R
.if !d $COVER_COPYRIGHT_SIZE_CHANGE .COVER_COPYRIGHT_SIZE -2
.if !d $COVER_MISC_FAM         .COVER_MISC_FAMILY \\*[$DOC_FAM]
.if !d $COVER_MISC_FT          .COVER_MISC_FONT R
.if !d $COVER_MISC_SIZE_CHANGE .COVER_MISC_SIZE -2
.if !r #COVER_MISC_AUTOLEAD    .COVER_MISC_AUTOLEAD 2
.if !d $DOC_COVER_LEAD_ADJ .DOC_COVER_LEAD +0
.if !d $DOC_COVER_FAM      .DOC_COVER_FAMILY \\*[$DOC_FAM]
.if !d $DOC_COVER_TITLE_FAM \{\
.ie !d $DOC_COVER_FAM .DOC_COVER_TITLE_FAMILY \\*[$DOC_FAM]
.el .DOC_COVER_TITLE_FAMILY \\*[$DOC_COVER_FAM]
.\}
.if !d $DOC_COVER_TITLE_FT          .DOC_COVER_TITLE_FONT B
.if !d $DOC_COVER_TITLE_SIZE_CHANGE .DOC_COVER_TITLE_SIZE +3.5
.if !d $DOC_COVER_CHAPTER_TITLE_FAM \{\
.ie !d $DOC_COVER_FAM .DOC_COVER_CHAPTER_TITLE_FAMILY \\*[$DOC_FAM]
.el .DOC_COVER_CHAPTER_TITLE_FAMILY \\*[$DOC_COVER_FAM]
.\}
.if !d $DOC_COVER_CHAPTER_TITLE_FT .DOC_COVER_CHAPTER_TITLE_FONT BI
.if !d $DOC_COVER_CHAPTER_TITLE_SIZE_CHANGE .DOC_COVER_CHAPTER_TITLE_SIZE +4
.if !d $DOC_COVER_SUBTITLE_FAM \{\
.ie !d $DOC_COVER_FAM .DOC_COVER_SUBTITLE_FAMILY \\*[$DOC_FAM]
.el .DOC_COVER_SUBTITLE_FAMILY \\*[$DOC_COVER_FAM]
.\}
.if !d $DOC_COVER_SUBTITLE_FT .DOC_COVER_SUBTITLE_FONT R
.if !d $DOC_COVER_SUBTITLE_SIZE_CHANGE .DOC_COVER_SUBTITLE_SIZE +0
.if !d $DOC_COVER_AUTHOR_FAM \{\
.ie !d $DOC_COVER_FAM .DOC_COVER_AUTHOR_FAMILY \\*[$DOC_FAM]
.el .DOC_COVER_AUTHOR_FAMILY \\*[$DOC_COVER_FAM]
.\}
.if !d $DOC_COVER_AUTHOR_FT .DOC_COVER_AUTHOR_FONT I
.if !d $DOC_COVER_AUTHOR_SIZE_CHANGE .DOC_COVER_AUTHOR_SIZE +0
.if !d $DOC_COVER_DOCTYPE_FAM \{\
.ie !d $DOC_COVER_FAM .DOC_COVER_DOCTYPE_FAMILY \\*[$DOC_FAM]
.el .DOC_COVER_DOCTYPE_FAMILY \\*[$DOC_COVER_FAM]
.\}
.if !d $DOC_COVER_DOCTYPE_FT .DOC_COVER_DOCTYPE_FONT BI
.if !d $DOC_COVER_DOCTYPE_SIZE_CHANGE .DOC_COVER_DOCTYPE_SIZE +3
.if !d $DOC_COVER_COPYRIGHT_FAM \{\
.ie !d $DOC_COVER_FAM .DOC_COVER_COPYRIGHT_FAMILY \\*[$DOC_FAM]
.el .DOC_COVER_COPYRIGHT_FAMILY \\*[$DOC_COVER_FAM]
.\}
.if !d $DOC_COVER_COPYRIGHT_FT .DOC_COVER_COPYRIGHT_FONT R
.if !d $DOC_COVER_COPYRIGHT_SIZE_CHANGE .DOC_COVER_COPYRIGHT_SIZE -2
.if !d $DOC_COVER_MISC_FAM         .DOC_COVER_MISC_FAMILY \\*[$DOC_FAM]
.if !d $DOC_COVER_MISC_FT          .DOC_COVER_MISC_FONT R
.if !d $DOC_COVER_MISC_SIZE_CHANGE .DOC_COVER_MISC_SIZE -2
.if !r #DOC_COVER_MISC_AUTOLEAD    .DOC_COVER_MISC_AUTOLEAD 2
.if !d $DOCHEADER_FAM .DOCHEADER_FAMILY \\*[$DOC_FAM]
.if !d $TITLE_FAM \{\
.ie !d $DOCHEADER_FAM .TITLE_FAMILY \\*[$DOC_FAM]
.el .TITLE_FAMILY \\*[$DOCHEADER_FAM]
.\}
.if !d $TITLE_FT .TITLE_FONT B
.if !d $TITLE_SIZE_CHANGE \{\
.ie \\n[#DOC_TYPE]=2 .TITLE_SIZE +4
.el .TITLE_SIZE +3.5
.\}
.if !d $CHAPTER_TITLE_FAM \{\
.ie !d $DOCHEADER_FAM .CHAPTER_TITLE_FAMILY \\*[$DOC_FAM]
.el .CHAPTER_TITLE_FAMILY \\*[$DOCHEADER_FAM]
.\}
.if !d $CHAPTER_TITLE_FT          .CHAPTER_TITLE_FONT BI
.if !d $CHAPTER_TITLE_SIZE_CHANGE .CHAPTER_TITLE_SIZE +4
.if !d $SUBTITLE_FAM \{\
.ie !d $DOCHEADER_FAM .SUBTITLE_FAMILY \\*[$DOC_FAM]
.el .SUBTITLE_FAMILY \\*[$DOCHEADER_FAM]
.\}
.if !d $SUBTITLE_FT          .SUBTITLE_FONT R
.if !d $SUBTITLE_SIZE_CHANGE .SUBTITLE_SIZE +0
.if !d $AUTHOR_FAM \{\
.ie !d $DOCHEADER_FAM .AUTHOR_FAMILY \\*[$DOC_FAM]
.el .AUTHOR_FAMILY \\*[$DOCHEADER_FAM]
.\}
.if !d $AUTHOR_FT          .AUTHOR_FONT I
.if !d $AUTHOR_SIZE_CHANGE .AUTHOR_SIZE +0
.if !d $DOCTYPE_FAM \{\
.ie !d $DOCHEADER_FAM .DOCTYPE_FAMILY \\*[$DOC_FAM]
.el .DOCTYPE_FAMILY \\*[$DOCHEADER_FAM]
.\}
.if !d $DOCTYPE_FT           .DOCTYPE_FONT BI
.if !d $DOCTYPE_SIZE_CHANGE  .DOCTYPE_SIZE +3
.if !r #DOCTYPE_UNDERLINE    .DOCTYPE_UNDERLINE
.if !d $HDRFTR_LEFT_FAM              .HDRFTR_LEFT_FAMILY \\*[$DOC_FAM]
.if !d $HDRFTR_LEFT_FT               .HDRFTR_LEFT_FONT R
.if \\n[#HDRFTR_LEFT_CAPS] \
.if !d $HDRFTR_LEFT_SIZE_CHANGE   .HDRFTR_LEFT_SIZE -2
.if !d $HDRFTR_LEFT_SIZE_CHANGE      .HDRFTR_LEFT_SIZE -.5
.if !d $HDRFTR_CENTER_FAM            .HDRFTR_CENTER_FAMILY \\*[$DOC_FAM]
.if !d $HDRFTR_CENTER_FT             .HDRFTR_CENTER_FONT I
.if \\n[#HDRFTR_CENTER_CAPS] \
.if !d $HDRFTR_CENTER_SIZE_CHANGE .HDRFTR_CENTER_SIZE -2
.if !d $HDRFTR_CENTER_SIZE_CHANGE    .HDRFTR_CENTER_SIZE -.5
.if !d $HDRFTR_RIGHT_FAM             .HDRFTR_RIGHT_FAMILY \\*[$DOC_FAM]
.if !d $HDRFTR_RIGHT_FT              .HDRFTR_RIGHT_FONT R
.if \\n[#HDRFTR_RIGHT_CAPS] \
.if !d $HDRFTR_RIGHT_SIZE_CHANGE  .HDRFTR_RIGHT_SIZE -2
.if !d $HDRFTR_RIGHT_SIZE_CHANGE     .HDRFTR_RIGHT_SIZE -.5
.if !d $QUOTE_FAM         .QUOTE_FAMILY \\*[$DOC_FAM]
.if !d $QUOTE_FT          .QUOTE_FONT I
.if !d $QUOTE_SIZE_CHANGE .QUOTE_SIZE+0
.if !r #Q_OFFSET_VALUE \
.if '\\*[$Q_OFFSET_VALUE]'' .QUOTE_INDENT 3
.if !d $BQUOTE_FAM         .BLOCKQUOTE_FAMILY \\*[$DOC_FAM]
.if !d $BQUOTE_FT          .BLOCKQUOTE_FONT R
.if !d $BQUOTE_SIZE_CHANGE .BLOCKQUOTE_SIZE -1
.if !d $BQUOTE_QUAD        .BLOCKQUOTE_QUAD LEFT
.if !d $EPI_FAM         .EPIGRAPH_FAMILY \\*[$DOC_FAM]
.if !d $EPI_FT          .EPIGRAPH_FONT R
.if !d $EPI_SIZE_CHANGE .EPIGRAPH_SIZE -1.5
.if !r #EPI_AUTOLEAD    .EPIGRAPH_AUTOLEAD 2
.if !d $EPI_QUAD        .EPIGRAPH_QUAD \\*[$DOC_QUAD]
.if !r #EPI_OFFSET_VALUE \
.if '\\*[$EPI_OFFSET_VALUE]'' .EPIGRAPH_INDENT 3
.if !d $LINEBREAK_CHAR  .LINEBREAK_CHAR * 3 3p
.if !d $LINEBREAK_COLOR .LINEBREAK_COLOR black
.if !r #FN_RULE_LENGTH .FOOTNOTE_RULE_LENGTH 4P
.if !r #FN_RULE_ADJ    .FOOTNOTE_RULE_ADJ 3p
.if !d $FN_SIZE_CHANGE .FOOTNOTE_SIZE -2
.if !r #FN_AUTOLEAD    .FOOTNOTE_AUTOLEAD 2
.if !r #EN_PS                 .ENDNOTE_PT_SIZE (\\n[#DOC_PT_SIZE]u)
.if !d $EN_STRING_FT          .ENDNOTE_STRING_FONT B
.if !d $EN_STRING_SIZE_CHANGE .ENDNOTE_STRING_SIZE +1
.if !d $EN_TITLE_FT           .ENDNOTE_TITLE_FONT B
.if !d $EN_TITLE_SIZE_CHANGE  .ENDNOTE_TITLE_SIZE +0
.if !d $EN_NUMBER_FT          .ENDNOTE_NUMBER_FONT B
.if !d $EN_LN_FT              .ENDNOTE_LINENUMBER_FONT R
.if !d $EN_NUMBER_SIZE_CHANGE .ENDNOTE_NUMBER_SIZE +0
.if !d $EN_LN_SIZE_CHANGE     .ENDNOTE_LINENUMBER_SIZE +0
.if !r #EN_PP_INDENT          .ENDNOTE_PARA_INDENT 1.5m
.if !d $EN_SPACE              .ENDNOTE_SPACING 0
.if !r #BIB_LIST               .BIBLIOGRAPHY_TYPE PLAIN
.if !r #BIB_PS                 .BIBLIOGRAPHY_PT_SIZE (\\n[#DOC_PT_SIZE]u)
.if !d $BIB_STRING_FT          .BIBLIOGRAPHY_STRING_FONT B
.if !d $BIB_STRING_SIZE_CHANGE .BIBLIOGRAPHY_STRING_SIZE +1
.if !d $TOC_FAM                .TOC_FAMILY \\*[$DOC_FAM]
.if !r #TOC_PS                 .TOC_PT_SIZE (\\n[#DOC_PT_SIZE]u)
.if '\\*[$TOC_LEAD]''          .TOC_LEAD \\n[#DOC@LEAD]u ADJUST
.if !d $TOC_HEADER_FAM         .TOC_HEADER_FAMILY \\*[$TOC_FAM]
.if !d $TOC_HEADER_SIZE_CHANGE .TOC_HEADER_SIZE +4
.if !d $TOC_HEADER_FT          .TOC_HEADER_FONT B
.if !d $TOC_PN_FAM             .TOC_PN_FAMILY \\*[$TOC_FAM]
.if !d $TOC_PN_FT              .TOC_PN_FONT R
.if !d $TOC_PN_SIZE_CHANGE     .TOC_PN_SIZE +0
.\}
.if !r #EN_REF .nr #FN_REF 1
.if !d $REF_FN_INDENT \{\
.if \\n[#PRINT_STYLE]=1 .INDENT_REFS FOOTNOTE .5i
.if \\n[#PRINT_STYLE]=2 .INDENT_REFS FOOTNOTE 2m
.\}
.if !d $REF_EN_INDENT \{\
.if \\n[#PRINT_STYLE]=1 .INDENT_REFS ENDNOTE .5i
.if \\n[#PRINT_STYLE]=2 .INDENT_REFS ENDNOTE 2m
.\}
.if !d $REF_BIB_INDENT \{\
.if \\n[#PRINT_STYLE]=1 .INDENT_REFS BIBLIO .5i
.if \\n[#PRINT_STYLE]=2 .INDENT_REFS BIBLIO 2m
.\}
.if \\n[#PRINT_STYLE]=1 .char \[idem] \[hy]\[hy]\[hy]
.if \\n[#PRINT_STYLE]=2 .char \[idem] \v'-.3m'\l'3m'\v'.3m'
.if \\n[#PRINT_STYLE]=2 \
.if \\n[#ADJ_DOC_LEAD]=1 .DOC_LEAD_ADJUST
.di NULL
.if \\n[#AUTO_LEAD] \{\
.nr #RESTORE_AUTO_LEAD 1
.nr #SAVED_AUTOLEAD_VALUE \\n[#AUTOLEAD_VALUE]
.\}
.ev NULL
.if \\n[#PRINT_STYLE]=1 \{\
.ps \\*[$TYPEWRITER_PS]
.ie \\n[#SINGLE_SPACE]=1 .vs \\n[#ORIGINAL_DOC_LEAD]u
.el .vs \\n[#ORIGINAL_DOC_LEAD]u/2u
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.ps  \\n[#DOC_PT_SIZE]u\\*[$FN_SIZE_CHANGE]
.vs \\n[.ps]u+\\n[#FN_AUTOLEAD]u
.\}
.nr #FN_LEAD \\n[#LEAD]
.ev
.di
.if \\n[#RESTORE_AUTO_LEAD] \{\
.nr #AUTO_LEAD 1
.nr #AUTOLEAD_VALUE  \\n[#SAVED_AUTOLEAD_VALUE]
.\}
.ie !\\n[#COLLATE] \{\
.TRAPS
.if \\n[#REMOVE_ADJ] .DOC_LEAD \\n[#DOC_LEAD]u-\\n[#DOC_LEAD_ADJ]u
.nr #OK_PROCESS_LEAD 1
.nr #RESTORE_DOC_LEAD \\n[.v]
.nr #RESTORE_B_MARGIN \\n[#B_MARGIN]
.if \\n[#PRINT_STYLE]=1 \{\
.ie \\n[#SINGLE_SPACE] \{\
.ENDNOTE_LEAD      12 ADJUST
.BIBLIOGRAPHY_LEAD 12 ADJUST
.\}
.el \{\
.ie \\n[#EN_SINGLESPACE] .ENDNOTE_LEAD 12 ADJUST
.el .ENDNOTE_LEAD 24 ADJUST
.ie \\n[#BIB_SINGLESPACE] .BIBLIOGRAPHY_LEAD 12 ADJUST
.el .BIBLIOGRAPHY_LEAD 24 ADJUST
.\}
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.ie !d $EN_LEAD  .ENDNOTE_LEAD \\n[#UNADJUSTED_DOC_LEAD]u ADJUST
.el .ENDNOTE_LEAD \\*[$EN_LEAD] \\*[$ADJUST_EN_LEAD]
.ie !d $BIB_LEAD .BIBLIOGRAPHY_LEAD \\n[#UNADJUSTED_DOC_LEAD]u ADJUST
.el .BIBLIOGRAPHY_LEAD \\*[$BIB_LEAD] \\*[$ADJUST_BIB_LEAD]
.ie !d $TOC_LEAD .TOC_LEAD \\n[#UNADJUSTED_DOC_LEAD]u \\*[$ADJUST_TOC_LEAD]
.el .TOC_LEAD \\*[$TOC_LEAD] \\*[$ADJUST_TOC_LEAD]
.\}
.ie !d $BIB_SPACE .BIBLIOGRAPHY_SPACING 0
.el \{\
.if \\n[#DEFER_BIB_SPACING]=1 \{\
.BIBLIOGRAPHY_SPACING \\*[$BIB_SPACE]
.rr #DEFER_BIB_SPACING
.\}
.\}
.nr #DOC_LEAD \\n[#RESTORE_DOC_LEAD]u
.nr #B_MARGIN \\n[#RESTORE_B_MARGIN]
.vs \\n[#DOC_LEAD]u
.\}
.el \{\
.if \\n[#COLLATE] \{\
.if !\\n[#PRINT_STYLE]=1 \{\
.if \\n[#RERUN_TRAPS] \{\
.TRAPS
.rr #RERUN_TRAPS
.\}
.\}
.\}
.\}
.nr #HD_LEVEL 0 1
.nr #LOOP 9
.while \\n+[#HD_LEVEL]<=\\n[#LOOP] \{\
.if '\\*[$HEAD_\\n[#HD_LEVEL]_FAM]'' \
.ds $HEAD_\\n[#HD_LEVEL]_FAM \\*[$DOC_FAM]
.if '\\*[$HEAD_\\n[#HD_LEVEL]_BASELINE_ADJ]'' \
.ds $HEAD_\\n[#HD_LEVEL]_BASELINE_ADJ \\n[.v]/10
.if '\\*[$TOC_HEAD_\\n[#HD_LEVEL]_FAM]'' \
.ds $TOC_HEAD_\\n[#HD_LEVEL]_FAM \\*[$DOC_FAM]
.\}
.if '\\*[$TOC_TITLE_FAM]'' .ds $TOC_TITLE_FAM \\*[$DOC_FAM]
.if !'\\*[$MN-arg1]'' \{\
.MNinit \
\\*[$MN-arg1] \\*[$MN-arg2] \
\\*[$MN-arg3] \\*[$MN-arg4] \
\\*[$MN-arg5] \\*[$MN-arg6] \
\\*[$MN-arg7] \\*[$MN-arg8] \
\\*[$MN-arg9]
.\}
.if \\n[#PRINT_STYLE]=1 .nr #IGNORE 1
.if \\n[#AUTO_LEAD] \{\
.rr #AUTO_LEAD
.rr #AUTOLEAD_VALUE
.\}
.END
.ds $DOC_COVER_AUTHOR_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$DOC_COVER_AUTHOR_SIZE_CHANGE]
.ds $DOC_COVER_CHAPTER_TITLE_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$DOC_COVER_CHAPTER_TITLE_SIZE_CHANGE]
.ds $DOC_COVER_COPYRIGHT_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$DOC_COVER_COPYRIGHT_SIZE_CHANGE]
.ds $DOC_COVER_DOCTYPE_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$DOC_COVER_DOCTYPE_SIZE_CHANGE]
.ds $DOC_COVER_MISC_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$DOC_COVER_MISC_SIZE_CHANGE]
.ds $DOC_COVER_SUBTITLE_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$DOC_COVER_SUBTITLE_SIZE_CHANGE]
.ds $DOC_COVER_TITLE_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$DOC_COVER_TITLE_SIZE_CHANGE]
.ds $COVER_AUTHOR_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$COVER_AUTHOR_SIZE_CHANGE]
.ds $COVER_CHAPTER_TITLE_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$COVER_CHAPTER_TITLE_SIZE_CHANGE]
.ds $COVER_COPYRIGHT_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$COVER_COPYRIGHT_SIZE_CHANGE]
.ds $COVER_DOCTYPE_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$COVER_DOCTYPE_SIZE_CHANGE]
.ds $COVER_MISC_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$COVER_MISC_SIZE_CHANGE]
.ds $COVER_SUBTITLE_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$COVER_SUBTITLE_SIZE_CHANGE]
.ds $COVER_TITLE_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$COVER_TITLE_SIZE_CHANGE]
.ds $AUTHOR_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$AUTHOR_SIZE_CHANGE]
.ds $CHAPTER_TITLE_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$CHAPTER_TITLE_SIZE_CHANGE]
.ds $COPYRIGHT_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$COPYRIGHT_SIZE_CHANGE]
.ds $DOCTYPE_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$DOCTYPE_SIZE_CHANGE]
.ds $SUBTITLE_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$SUBTITLE_SIZE_CHANGE]
.ds $TITLE_PT_SIZE \
    \\n[#DOC_PT_SIZE]u\\*[$TITLE_SIZE_CHANGE]
.MAC DOC_HEADER_QUAD END
.if '\\$0'DOC_HEADER_QUAD' .ds $CALLING_MACRO DOCHEADER
.if '\\$0'COVER_H_POS'     .ds $CALLING_MACRO COVER
.if '\\$0'DOC_COVER_H_POS' .ds $CALLING_MACRO DOC_COVER
.ie !'\\*[$\\*[$CALLING_MACRO]_QUAD]'' \{\
.if '\\*[$\\*[$CALLING_MACRO]_QUAD]'L'      .LEFT
.if '\\*[$\\*[$CALLING_MACRO]_QUAD]'LEFT'   .LEFT
.if '\\*[$\\*[$CALLING_MACRO]_QUAD]'R'      .RIGHT
.if '\\*[$\\*[$CALLING_MACRO]_QUAD]'RIGHT'  .RIGHT
.if '\\*[$\\*[$CALLING_MACRO]_QUAD]'C'      .RIGHT
.if '\\*[$\\*[$CALLING_MACRO]_QUAD]'CENTER' .CENTER
.if '\\*[$\\*[$CALLING_MACRO]_QUAD]'CENTRE' .CENTER
.\}
.el .CENTER
.END
.ALIAS COVER_H_POS      DOC_HEADER_QUAD
.ALIAS DOC_COVER_H_POS  DOC_HEADER_QUAD
.MAC PRINT_AUTHORS END
.ie r#DOING_COVER \{\
.if \\n[#DOC_COVER]=1 \{\
.ie !'\\*[$AUTHOR_DOCCOVER_1]'' \{\
.nr #AUTHORS \\n[#AUTHOR_DOCCOVER_NUM]
.nr #NEXT_AUTHOR 0 1
.while \\n[#AUTHORS]>\\n[#NEXT_AUTHOR] \{\
.ie \\n[#DOC_COVER_AUTHOR_COLOR]=1 \
.PRINT \
\m[\\*[$DOC_COVER_AUTHOR_COLOR]]\\*[$AUTHOR_DOCCOVER_\\n+[#NEXT_AUTHOR]]\m[]
.el .PRINT \\*[$AUTHOR_DOCCOVER_\\n+[#NEXT_AUTHOR]]
.\}
.\}
.el \{\
.nr #AUTHORS \\n[#AUTHOR_NUM]
.nr #NEXT_AUTHOR 0 1
.while \\n[#AUTHORS]>\\n[#NEXT_AUTHOR] \{\
.ie \\n[#DOC_COVER_AUTHOR_COLOR]=1 \
.PRINT \
\m[\\*[$DOC_COVER_AUTHOR_COLOR]]\\*[$AUTHOR_\\n+[#NEXT_AUTHOR]]\m[]
.el .PRINT \\*[$AUTHOR_\\n+[#NEXT_AUTHOR]]
.\}
.\}
.return
.\}
.if \\n[#COVER]=1 \{\
.ie !'\\*[$AUTHOR_COVER_1]'' \{\
.nr #AUTHORS \\n[#AUTHOR_COVER_NUM]
.nr #NEXT_AUTHOR 0 1
.while \\n[#AUTHORS]>\\n[#NEXT_AUTHOR] \{\
.ie \\n[#COVER_AUTHOR_COLOR]=1 \
.PRINT \
\m[\\*[$COVER_AUTHOR_COLOR]]\\*[$AUTHOR_COVER_\\n+[#NEXT_AUTHOR]]\m[]
.el .PRINT \\*[$AUTHOR_COVER_\\n+[#NEXT_AUTHOR]]
.\}
.\}
.el \{\
.nr #AUTHORS \\n[#AUTHOR_NUM]
.nr #NEXT_AUTHOR 0 1
.while \\n[#AUTHORS]>\\n[#NEXT_AUTHOR] \{\
.ie \\n[#COVER_AUTHOR_COLOR]=1 \
.PRINT \
\m[\\*[$COVER_AUTHOR_COLOR]]\\*[$AUTHOR_\\n+[#NEXT_AUTHOR]]\m[]
.el .PRINT \\*[$AUTHOR_\\n+[#NEXT_AUTHOR]]
.\}
.\}
.return
.\}
.\}
.el \{\
.nr #AUTHORS \\n[#AUTHOR_NUM]
.nr #NEXT_AUTHOR 0 1
.while \\n[#AUTHORS]>\\n[#NEXT_AUTHOR] \{\
.ie \\n[#AUTHOR_COLOR]=1 \
.PRINT \m[\\*[$AUTHOR_COLOR]]\\*[$AUTHOR_\\n+[#NEXT_AUTHOR]]\m[]
.el .PRINT \\*[$AUTHOR_\\n+[#NEXT_AUTHOR]]
.\}
.\}
.END
.MAC DEFAULT_DOCHEADER END
.DOC_HEADER_QUAD
.if !'\\*[$TITLE_1]'' \{\
.FAMILY  \\*[$TITLE_FAM]
.FT      \\*[$TITLE_FT]
.ps \\*[$TITLE_PT_SIZE]
.vs      \\n[#DOCHEADER_LEAD]u
.nr #ARG_NUM 0 1
.while \\n[#TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.ie \\n[#TITLE_COLOR]=1 \
.PRINT "\m[\\*[$TITLE_COLOR]]\\*[$TITLE_\\n[#ARG_NUM]]\m[]
.el .PRINT "\\*[$TITLE_\\n[#ARG_NUM]]
.\}
.\}
.if !'\\*[$SUBTITLE_1]'' \{\
.FAMILY  \\*[$SUBTITLE_FAM]
.FT      \\*[$SUBTITLE_FT]
.ps \\*[$SUBTITLE_PT_SIZE]
.nr #ARG_NUM 0 1
.while \\n[#SUBTITLE_NUM]>=\\n+[#ARG_NUM] \{\
.ie \\n[#SUBTITLE_COLOR]=1 \
.PRINT "\m[\\*[$SUBTITLE_COLOR]]\\*[$SUBTITLE_\\n[#ARG_NUM]]\m[]
.el .PRINT "\\*[$SUBTITLE_\\n[#ARG_NUM]]
.\}
.\}
.if !'\\*[$AUTHOR_1]'' \{\
.FAMILY  \\*[$AUTHOR_FAM]
.FT      \\*[$AUTHOR_FT]
.ps \\*[$AUTHOR_PT_SIZE]
.ie \\n[#ATTRIBUTE_COLOR]=1 \
.PRINT \&\m[\\*[$ATTRIBUTE_COLOR]]\\*[$ATTRIBUTE_STRING]\m[]
.el .PRINT \&\\*[$ATTRIBUTE_STRING]
.PRINT_AUTHORS
.\}
.FAMILY \\*[$DOC_FAM]
.FT R
.END
.MAC CHAPTER_DOCHEADER END
.DOC_HEADER_QUAD
.FAMILY  \\*[$TITLE_FAM]
.FT      \\*[$TITLE_FT]
.ps \\*[$TITLE_PT_SIZE]
.vs \\n[#DOCHEADER_LEAD]u
.ie '\\*[$CHAPTER]'' \{\
.ie !'\\*[$CHAPTER_TITLE_1]'' \{\
.if \\n[#PRINT_STYLE]=2 \{\
.FAMILY  \\*[$CHAPTER_TITLE_FAM]
.FT      \\*[$CHAPTER_TITLE_FT]
.ps \\*[$CHAPTER_TITLE_PT_SIZE]
.vs \\n[#DOCHEADER_LEAD]u
.\}
.nr #ARG_NUM 0 1
.while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.ie \\n[#TITLE_COLOR]=1 \{\
.PRINT \
\m[\\*[$TITLE_COLOR]]\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]\m[]
.\}
.el .PRINT \\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]
.\}
.\}
.el \{\
.ie \\n[#TITLE_COLOR]=1 \{\
.PRINT \m[\\*[$TITLE_COLOR]]\\*[$CHAPTER_STRING]\m[]
.\}
.el .PRINT \\*[$CHAPTER_STRING]
.\}
.\}
.el \{\
.ie \\n[#TITLE_COLOR]=1 \{\
.PRINT \m[\\*[$TITLE_COLOR]]\\*[$CHAPTER_STRING] \\*[$CHAPTER]\m[]
.\}
.el .PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.if !'\\*[$CHAPTER_TITLE_1]'' \{\
.if \\n[#PRINT_STYLE]=2 \{\
.FAMILY  \\*[$CHAPTER_TITLE_FAM]
.FT      \\*[$CHAPTER_TITLE_FT]
.ps \\*[$CHAPTER_TITLE_PT_SIZE]
.vs \\n[#DOCHEADER_LEAD]u
.ALD     \\n[.v]u/4u
.\}
.nr #ARG_NUM 0 1
.while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.ie \\n[#CHAPTER_TITLE_COLOR]=1 \{\
.PRINT \
\m[\\*[$CHAPTER_TITLE_COLOR]]\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]\m[]
.\}
.el .PRINT \\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]
.\}
.RLD \\n[#DOC_LEAD]u
.\}
.\}
.FAMILY \\*[$DOC_FAM]
.FT R
.END
.MAC NAMED_DOCHEADER END
.DOC_HEADER_QUAD
.FAMILY  \\*[$TITLE_FAM]
.FT      \\*[$TITLE_FT]
.ps \\*[$TITLE_PT_SIZE]
.vs      \\n[#DOCHEADER_LEAD]u
.if !'\\*[$TITLE_1]'' \{\
.nr #ARG_NUM 0 1
.while \\n[#TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.ie \\n[#TITLE_COLOR]=1 \{\
.PRINT "\m[\\*[$TITLE_COLOR]]\\*[$TITLE_\\n[#ARG_NUM]]\m[]
.\}
.el .PRINT "\\*[$TITLE_\\n[#ARG_NUM]]
.\}
.\}
.if !'\\*[$SUBTITLE]'' \{\
.FAMILY  \\*[$SUBTITLE_FAM]
.FT      \\*[$SUBTITLE_FT]
.ps \\*[$SUBTITLE_PT_SIZE]
.nr #ARG_NUM 0 1
.while \\n[#SUBTITLE_NUM]>=\\n+[#ARG_NUM] \{\
.ie \\n[#SUBTITLE_COLOR]=1 \{\
.PRINT "\m[\\*[$SUBTITLE_COLOR]]\\*[$SUBTITLE_\\n[#ARG_NUM]]\m[]
.\}
.el .PRINT "\\*[$SUBTITLE_\\n[#ARG_NUM]]
.\}
.\}
.if !'\\*[$AUTHOR_1]'' \{\
.FAMILY  \\*[$AUTHOR_FAM]
.FT      \\*[$AUTHOR_FT]
.ps \\*[$AUTHOR_PT_SIZE]
.ie \\n[#ATTRIBUTE_COLOR]=1 \{\
.PRINT \&\m[\\*[$ATTRIBUTE_COLOR]]\\*[$ATTRIBUTE_STRING]\m[]
.\}
.el .PRINT \&\\*[$ATTRIBUTE_STRING]
.PRINT_AUTHORS
.\}
.FAMILY  \\*[$DOCTYPE_FAM]
.FT      \\*[$DOCTYPE_FT]
.ps \\*[$DOCTYPE_PT_SIZE]
.vs \\n[#DOCHEADER_LEAD]u
.ALD     \\n[#DOCHEADER_LEAD]u
.nr #FROM_DOCTYPE 1
.if \\n[#DOCTYPE_COLOR]=1 .COLOR \\*[$DOCTYPE_COLOR]
.ie \\n[#DOCTYPE_UNDERLINE]=1 \
.UNDERSCORE \\*[$DOCTYPE_UNDERLINE_GAP] "\\*[$DOC_TYPE]"
.el .PRINT "\\*[$DOC_TYPE]"
.COLOR black
.FAMILY \\*[$DOC_FAM]
.FT R
.rr #FROM_DOCTYPE
.END
.MAC COVER END
.ie '\\$0'DOC_COVER' \{\
.nr #DOC_COVER 1
.ds DOC_ DOC_
.\}
.el .nr #COVER 1
.nr #ARG_NUM 0 1
.nr #COVER_ITEM \\n[#NUM_ARGS]
.while \\n+[#ARG_NUM]<=\\n[#COVER_ITEM] \{\
.if '\\$1'TITLE' \{\
.nr #\\*[DOC_]COVER_TITLE 1
.shift
.\}
.if '\\$1'DOCTITLE' \{\
.nr #\\*[DOC_]COVER_TITLE 2
.shift
.\}
.if '\\$1'CHAPTER' \{\
.nr #\\*[DOC_]COVER_TITLE 3
.shift
.\}
.if '\\$1'CHAPTER_TITLE' \{\
.nr #\\*[DOC_]COVER_TITLE 4
.shift
.\}
.if '\\$1'CHAPTER+TITLE' \{\
.nr #\\*[DOC_]COVER_TITLE 5
.shift
.\}
.if '\\$1'\\*[DOC_]COVERTITLE' \{\
.nr #\\*[DOC_]COVER_TITLE 6
.shift
.\}
.if '\\$1'SUBTITLE' \{\
.nr #\\*[DOC_]COVER_SUBTITLE 1
.shift
.\}
.if '\\$1'AUTHOR' \{\
.nr #\\*[DOC_]COVER_AUTHOR 1
.shift
.\}
.if '\\$1'DOCTYPE' \{\
.nr #\\*[DOC_]COVER_DOCTYPE 1
.shift
.\}
.if '\\$1'COPYRIGHT' \{\
.nr #\\*[DOC_]COVER_COPYRIGHT 1
.shift
.\}
.if '\\$1'MISC' \{\
.nr #\\*[DOC_]COVER_MISC 1
.shift
.\}
.if '\\$1'PDF_OUTLINE_LABEL' \{\
.shift
.ds $PDF_\\*[DOC_]COVER_LABEL \\$1
.shift
.\}
.if '\\$1'BLANKPAGE' \{\
.nr #\\*[DOC_]COVER_BLANKPAGE 1
.shift
.\}
.\}
.if '\\$0'DOC_COVER' .rm DOC_
.END
.MAC COVERTITLE END
.ie '\\$0'DOC_COVERTITLE' \{\
.ie \\n[#NUM_ARGS]=0 \{\
.if \\n[#DOC_COVER_TITLE_NUM] \{\
.nr #ITEM 0 1
.while \\n[#DOC_COVER_TITLE_NUM]>\\n[#ITEM] \{\
.rm $DOC_COVER_TITLE_\\n+[#ITEM]
.\}
.rr #DOC_COVER_TITLE_NUM
.rm $DOC_COVER_TITLE
.\}
.\}
.el \{\
.nr #DOC_COVER_TITLE_NUM 0 1
.while \\n[#NUM_ARGS]>\\n[#DOC_COVER_TITLE_NUM] \{\
.ds \
$DOC_COVER_TITLE_\\n+[#DOC_COVER_TITLE_NUM] \\$\\n[#DOC_COVER_TITLE_NUM]
.\}
.ds $DOC_COVER_TITLE \\$*
.\}
.\}
.el \{\
.ie \\n[#NUM_ARGS]=0 \{\
.if \\n[#COVER_TITLE_NUM] \{\
.nr #ITEM 0 1
.while \\n[#COVER_TITLE_NUM]>\\n[#ITEM] \{\
.rm $COVER_TITLE_\\n+[#ITEM]
.\}
.rr #COVER_TITLE_NUM
.rm $COVER_TITLE
.\}
.\}
.el \{\
.nr #COVER_TITLE_NUM 0 1
.while \\n[#NUM_ARGS]>\\n[#COVER_TITLE_NUM] \{\
.ds $COVER_TITLE_\\n+[#COVER_TITLE_NUM] \\$\\n[#COVER_TITLE_NUM]
.\}
.ds $COVER_TITLE \\$*
.\}
.\}
.END
.MAC COVER_LEAD END
.ie '\\$0'DOC_COVER_LEAD' .ds $DOC_COVER_LEAD_ADJ \\$1
.el .ds $COVER_LEAD_ADJ \\$1
.END
.MAC MISC_AUTOLEAD END
.if '\\$0'DOC_COVER_MISC_AUTOLEAD' .nr #DOC_COVER_MISC_AUTOLEAD (p;\\$1)
.if '\\$0'COVER_MISC_AUTOLEAD'     .nr #COVER_MISC_AUTOLEAD (p;\\$1)
.END
.ALIAS DOC_COVER_MISC_AUTOLEAD  MISC_AUTOLEAD
.ALIAS COVER_MISC_AUTOLEAD      MISC_AUTOLEAD
.MAC COVER_ADVANCE END
.ie '\\$0'DOC_COVER_ADVANCE' .nr #DOC_COVER_START_POS (\\$1)
.el .nr #COVER_START_POS (\\$1)
.END
.MAC _UNDERLINE END
.ie '\\$1'' \{\
.if '\\$0'BIBLIOGRAPHY_STRING_UNDERLINE' \
.nr #BIB_STRING_UNDERLINE 1
.if '\\$0'BIBLIOGRAPHY_STRING_UNDERSCORE' \
.nr #BIB_STRING_UNDERLINE 1
.if '\\$0'COVER_UNDERLINE' \
.nr #COVER_UNDERLINE 1
.if '\\$0'DOC_COVER_UNDERLINE' \
.nr #DOC_COVER_UNDERLINE 1
.if '\\$0'DOCTYPE_UNDERLINE' \
.nr #DOCTYPE_UNDERLINE 1
.if '\\$0'ENDNOTE_STRING_UNDERLINE' \
.nr #EN_STRING_UNDERLINE 1
.if '\\$0'ENDNOTE_STRING_UNDERSCORE' \
.nr #EN_STRING_UNDERLINE 1
.if '\\$0'ENDNOTE_TITLE_UNDERLINE' \
.nr #EN_TITLE_UNDERLINE 1
.if '\\$0'ENDNOTE_TITLE_UNDERSCORE' \
.nr #EN_TITLE_UNDERLINE 1
.\}
.el \{\
.ie \\n[#NUM_ARGS]=1 \{\
.ds $ARG \\$1
.substring $ARG -1
.ie \B'\\*[$ARG]' \{\
.if !\\n[#PRINT_STYLE]=1 \{\
.if '\\$0'BIBLIOGRAPHY_STRING_UNDERLINE' \
.BIBLIOGRAPHY_STRING_UNDERLINE_WEIGHT \\$1
.if '\\$0'BIBLIOGRAPHY_STRING_UNDERSCORE' \
.BIBLIOGRAPHY_STRING_UNDERLINE_WEIGHT \\$1
.if '\\$0'COVER_UNDERLINE' \
.COVER_UNDERLINE_WEIGHT \\$1
.if '\\$0'DOC_COVER_UNDERLINE' \
.DOC_COVER_UNDERLINE_WEIGHT \\$1
.if '\\$0'DOCTYPE_UNDERLINE' \
.DOCTYPE_UNDERLINE_WEIGHT \\$1
.if '\\$0'ENDNOTE_STRING_UNDERLINE' \{\
.ENDNOTE_STRING_UNDERLINE_WEIGHT \\$1
.nr #EN_STRING_UNDERLINE 1
.\}
.if '\\$0'ENDNOTE_STRING_UNDERSCORE' \{\
.ENDNOTE_STRING_UNDERLINE_WEIGHT \\$1
.nr #EN_STRING_UNDERLINE 1
.\}
.if '\\$0'ENDNOTE_TITLE_UNDERLINE' \
.ENDNOTE_TITLE_UNDERLINE_WEIGHT \\$1
.if '\\$0'ENDNOTE_TITLE_UNDERSCORE' \
.ENDNOTE_TITLE_UNDERLINE_WEIGHT \\$1
.\}
.\}
.el \{\
.if '\\$0'BIBLIOGRAPHY_STRING_UNDERLINE' \{\
.ie '\\$1'DOUBLE' .nr #BIB_STRING_UNDERLINE 2
.el .nr #BIB_STRING_UNDERLINE 0
.\}
.if '\\$0'BIBLIOGRAPHY_STRING_UNDERSCORE' \{\
.ie '\\$1'DOUBLE' .nr #BIB_STRING_UNDERLINE 2
.el .nr #BIB_STRING_UNDERLINE 0
.\}
.if '\\$0'COVER_UNDERLINE'     .nr #COVER_UNDERLINE 0
.if '\\$0'DOC_COVER_UNDERLINE' .nr #DOC_COVER_UNDERLINE 0
.if '\\$0'DOCTYPE_UNDERLINE'   .nr #DOCTYPE_UNDERLINE 0
.if '\\$0'ENDNOTE_STRING_UNDERLINE' \{\
.ie '\\$1'DOUBLE' .nr #EN_STRING_UNDERLINE 2
.el .nr #EN_STRING_UNDERLINE 0
.\}
.if '\\$0'ENDNOTE_STRING_UNDERSCORE' \{\
.ie '\\$1'DOUBLE' .nr #EN_STRING_UNDERLINE 2
.el .nr #EN_STRING_UNDERLINE 0
.\}
.if '\\$0'ENDNOTE_TITLE_UNDERLINE' \{\
.ie '\\$1'DOUBLE' .nr #EN_TITLE_UNDERLINE 2
.el .nr #EN_TITLE_UNDERLINE 0
.\}
.if '\\$0'ENDNOTE_TITLE_UNDERSCORE' \{\
.ie '\\$1'DOUBLE' .nr #EN_TITLE_UNDERLINE 2
.el .nr #EN_TITLE_UNDERLINE 0
.\}
.\}
.\}
.el \{\
.if !\\n[#PRINT_STYLE]=1 \{\
.if '\\$0'BIBLIOGRAPHY_STRING_UNDERLINE' \{\
.nr #BIB_STRING_UNDERLINE 1
.if '\\$1'DOUBLE' \{\
.nr #BIB_STRING_UNDERLINE 2
.shift
.\}
.BIBLIOGRAPHY_STRING_UNDERLINE_WEIGHT \\$1
.if !'\\$2'' \
.ds $BIB_STRING_UNDERLINE_GAP \\$2
.if !'\\$3'' \
.ds $BIB_STRING_RULE_GAP \\$3
.\}
.if '\\$0'BIBLIOGRAPHY_STRING_UNDERSCORE' \{\
.nr #BIB_STRING_UNDERLINE 1
.if '\\$1'DOUBLE' \{\
.nr #BIB_STRING_UNDERLINE 2
.shift
.\}
.BIBLIOGRAPHY_STRING_UNDERLINE_WEIGHT \\$1
.if !'\\$2'' .ds $BIB_STRING_UNDERLINE_GAP \\$2
.if !'\\$3'' .ds $BIB_STRING_RULE_GAP \\$3
.\}
.if '\\$0'COVER_UNDERLINE' \{\
.nr #COVER_UNDERLINE 1
.COVER_UNDERLINE_WEIGHT \\$1
.ds $COVER_UNDERLINE_GAP \\$2
.\}
.if '\\$0'DOC_COVER_UNDERLINE' \{\
.nr #DOC_COVER_UNDERLINE 1
.DOC_COVER_UNDERLINE_WEIGHT \\$1
.ds $DOC_COVER_UNDERLINE_GAP \\$2
.\}
.if '\\$0'DOCTYPE_UNDERLINE' \{\
.nr #DOCTYPE_UNDERLINE 1
.DOCTYPE_UNDERLINE_WEIGHT \\$1
.ds $DOCTYPE_UNDERLINE_GAP \\$2
.\}
.if '\\$0'ENDNOTE_STRING_UNDERLINE' \{\
.nr #EN_STRING_UNDERLINE 1
.if '\\$1'DOUBLE' \{\
.nr #EN_STRING_UNDERLINE 2
.shift
.\}
.ENDNOTE_STRING_UNDERLINE_WEIGHT \\$1
.if !'\\$2'' .ds $EN_STRING_UNDERLINE_GAP \\$2
.if !'\\$3'' .ds $EN_STRING_RULE_GAP \\$3
.\}
.if '\\$0'ENDNOTE_STRING_UNDERSCORE' \{\
.nr #EN_STRING_UNDERLINE 1
.if '\\$1'DOUBLE' \{\
.nr #EN_STRING_UNDERLINE 2
.shift
.\}
.ENDNOTE_STRING_UNDERLINE_WEIGHT \\$1
.if !'\\$2'' .ds $EN_STRING_UNDERLINE_GAP \\$2
.if !'\\$3'' .ds $EN_STRING_RULE_GAP \\$3
.\}
.if '\\$0'ENDNOTE_TITLE_UNDERLINE' \{\
.nr #EN_TITLE_UNDERLINE 1
.ENDNOTE_TITLE_UNDERLINE_WEIGHT \\$1
.ds $EN_TITLE_UNDERLINE_GAP \\$2
.\}
.if '\\$0'ENDNOTE_TITLE_UNDERSCORE' \{\
.nr #EN_TITLE_UNDERLINE 1
.ENDNOTE_TITLE_UNDERLINE_WEIGHT \\$1
.ds $EN_TITLE_UNDERLINE_GAP \\$2
.\}
.\}
.\}
.\}
.END
.ALIAS BIBLIOGRAPHY_STRING_UNDERSCORE _UNDERLINE
.ALIAS BIBLIOGRAPHY_STRING_UNDERLINE  _UNDERLINE
.ALIAS COVER_UNDERLINE                _UNDERLINE
.ALIAS DOC_COVER_UNDERLINE            _UNDERLINE
.ALIAS DOCTYPE_UNDERLINE              _UNDERLINE
.ALIAS ENDNOTE_STRING_UNDERLINE       _UNDERLINE
.ALIAS ENDNOTE_STRING_UNDERSCORE      _UNDERLINE
.ALIAS ENDNOTE_TITLE_UNDERLINE        _UNDERLINE
.ALIAS ENDNOTE_TITLE_UNDERSCORE       _UNDERLINE
.MAC COVERS END
.ie '\\$0'DOC_COVERS' \{\
.ie '\\$1'' \{\
.rr #DOC_COVERS_OFF
.nr #DOC_COVERS 1
.\}
.el \{\
.rr #DOC_COVERS
.nr #DOC_COVERS_OFF 1
.\}
.\}
.el \{\
.ie '\\$1'' \{\
.rr #COVERS_OFF
.nr #COVERS 1
.\}
.el \{\
.rr #COVERS
.nr #COVERS_OFF 1
.\}
.\}
.END
.MAC COVER_COUNTS_PAGES END
.if '\\$0'DOC_COVER_COUNTS_PAGES' \{\
.ie '\\$1'' .nr #DOCCOVERS_COUNT 1
.el .rr #DOCCOVERS_COUNT
.return
.\}
.if '\\$0'COVER_COUNTS_PAGES' \{\
.ie '\\$1'' .nr #COVERS_COUNT 1
.el .rr #COVERS_COUNT
.return
.\}
.END
.MAC DO_COVER END
.nr #DOING_COVER 1
.ev COVER
.evc 0
.TRAP OFF
.if \\n[#PAGINATE]=1 \{\
.nr #PAGINATION_WAS_ON 1
.rr #PAGINATE
.\}
.if \\n[#HEADERS_ON]=1 \{\
.nr #HEADERS_WERE_ON 1
.HEADERS OFF
.\}
.if \\n[#FOOTERS_ON]=1 \{\
.nr #FOOTERS_WERE_ON 1
.FOOTERS OFF
.\}
.if \\n[#COLUMNS]=1 \{\
.nr #COLUMNS_WERE_ON 1
.rr #COLUMNS
.\}
.ds PDF_BM
.ie '\\$0'DO_DOC_COVER' \{\
.ds  DOC_  DOC_
.nr #DOC_COVER_DONE 1
.if '\\*[$PDF_DOC_COVER_LABEL]'' \
.ds $PDF_DOC_COVER_LABEL Cover:
.\}
.el \{\
.if '\\*[$PDF_COVER_LABEL]'' .ds $PDF_COVER_LABEL Title Page:
.\}
.if !r#\\*[DOC_]COVER_START_POS \
.nr #\\*[DOC_]COVER_START_POS \\n[#PAGE_LENGTH]/3
.if \\n[#PRINT_STYLE]=1 \{\
.ie \\n[#SINGLE_SPACE]=1 .vs \\n[#DOC_LEAD]u*2u
.el .vs \\n[#DOC_LEAD]u
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.vs \\n[#DOC_LEAD]u\\*[$\\*[DOC_]COVER_LEAD_ADJ]
.nr #\\*[DOC_]COVER_LEAD \\n[#LEAD]
.\}
.if \\n[.ns] .rs
.if '\\$0'DO_COVER' \{\
.if \\n[TOC.RELOCATE]==5 \{\
.if !rTOC_BH .TOC_BEFORE_HERE
.\}
.\}
.if '\\$0'DO_DOC_COVER' \{\
.if \\n[TOC.RELOCATE]==3 \{\
.if !rTOC_BH .TOC_BEFORE_HERE
.\}
.\}
.RV_HARD_SET_MARGINS
.sp |\\n[#\\*[DOC_]COVER_START_POS]u-1v
.if \\n[#\\*[DOC_]COVER_COLOR]=1 \{\
.nf
\m[\\*[$\\*[DOC_]COVER_COLOR]]
.EOL
.\}
.\\*[DOC_]COVER_H_POS
.fam \\*[$\\*[DOC_]COVER_TITLE_FAM]
.ft  \\*[$\\*[DOC_]COVER_TITLE_FT]
.ps  \\*[$\\*[DOC_]COVER_TITLE_PT_SIZE]
.ie \\n[#PRINT_STYLE]=1 \{\
.ie \\n[#SINGLE_SPACE]=1 \{ .vs \\n[#DOC_LEAD]u*2u \}
.el \{ .vs \\n[#DOC_LEAD]u \}
.\}
.el .vs \\n[#\\*[DOC_]COVER_LEAD]u
.if \\n[#PRINT_STYLE]=1 .TYPEWRITER
.if \\n[#\\*[DOC_]COVER_TITLE] \{\
.nr PDFHREF.VIEW.LEADING.H \\n[PDFHREF.VIEW.LEADING]
.nr PDFHREF.VIEW.LEADING   \\n[nl]u-1v-1000u
.\}
.if \\n[#\\*[DOC_]COVER_TITLE]=1 \{\
.ie \\n[#PRINT_STYLE]=1 \{\
.CAPS
.nr #ARG_NUM 0 1
.while \\n[#TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.UNDERSCORE "\\*[$TITLE_\\n[#ARG_NUM]]"
.if \\n[#ARG_NUM]>1 .as PDF_BM " 
.as PDF_BM \\*[$TITLE_\\n[#ARG_NUM]]
.\}
.CAPS OFF
.\}
.el \{\
.nr #ARG_NUM 0 1
.while \\n[#TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.ie \\n[#\\*[DOC_]COVER_TITLE_COLOR]=1 \{\
.PRINT \
\m[\\*[$\\*[DOC_]COVER_TITLE_COLOR]]\\*[$TITLE_\\n[#ARG_NUM]]\m[]
.\}
.el \
.PRINT "\\*[$TITLE_\\n[#ARG_NUM]]
.if \\n[#ARG_NUM]>1 .as PDF_BM " 
.as PDF_BM \\*[$TITLE_\\n[#ARG_NUM]]
.\}
.\}
.PDF_BOOKMARK 1 \\*[$PDF_\\*[DOC_]COVER_LABEL] \\*[PDF_BM]
.\}
.if \\n[#\\*[DOC_]COVER_TITLE]=2 \{\
.ie \\n[#PRINT_STYLE]=1 \{\
.CAPS
.nr #ARG_NUM 0 1
.while \\n[#DOCTITLE_NUM]>=\\n+[#ARG_NUM] \{\
.UNDERSCORE "\\*[$\\*[DOC_]TITLE_\\n[#ARG_NUM]]"
.if \\n[#ARG_NUM]>1 .as PDF_BM " 
.as PDF_BM \\*[$\\*[DOC_]TITLE_\\n[#ARG_NUM]]
.\}
.CAPS OFF
.\}
.el \{\
.nr #ARG_NUM 0 1
.while \\n[#DOCTITLE_NUM]>=\\n+[#ARG_NUM] \{\
.ie \\n[#\\*[DOC_]COVER_TITLE_COLOR]=1 \{\
.PRINT \
\m[\\*[$\\*[DOC_]COVER_TITLE_COLOR]]\\*[$\\*[DOC_]TITLE_\\n[#ARG_NUM]]\m[]
.\}
.el .PRINT \\*[$\\*[DOC_]TITLE_\\n[#ARG_NUM]]
.if \\n[#ARG_NUM]>1 .as PDF_BM " 
.as PDF_BM \\*[$\\*[DOC_]TITLE_\\n[#ARG_NUM]]
.\}
.\}
.PDF_BOOKMARK 1 \\*[$PDF_\\*[DOC_]COVER_LABEL] \\*[PDF_BM]
.\}
.if \\n[#\\*[DOC_]COVER_TITLE]=3 \{\
.ie \\n[#PRINT_STYLE]=1 \{\
.CAPS
.PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.CAPS OFF
.\}
.el \{\
.ie \\n[#\\*[DOC_]COVER_TITLE_COLOR]=1 \{\
.PRINT \
\m[\\*[$\\*[DOC_]COVER_TITLE_COLOR]]\\*[$CHAPTER_STRING] \\*[$CHAPTER]\m[]
.\}
.el .PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.\}
.PDF_BOOKMARK 1 \
\\*[$PDF_\\*[DOC_]COVER_LABEL] \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.\}
.if \\n[#\\*[DOC_]COVER_TITLE]=4 \{\
.ie \\n[#PRINT_STYLE]=1 \{\
.CAPS
.nr #ARG_NUM 0 1
.ie \\n[#SINGLE_SPACE]=0 .vs \\n[#DOC_LEAD]u/2u
.el .vs \\n[#DOC_LEAD]u
.sp
.while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.UNDERSCORE "\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]"
.if \\n[#ARG_NUM]>1 .as PDF_BM " 
.as PDF_BM \\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]
.\}
.CAPS OFF
.if \\n[#SINGLE_SPACE]=0 .vs \\n[#DOC_LEAD]u
.\}
.el \{\
.nr #ARG_NUM 0 1
.while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.ie \\n[#\\*[DOC_]COVER_TITLE_COLOR]=1 \{\
.PRINT \
\m[\\*[$\\*[DOC_]COVER_TITLE_COLOR]]\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]\m[]
.\}
.el .PRINT \\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]
.if \\n[#ARG_NUM]>1 .as PDF_BM " 
.as PDF_BM \\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]
.\}
.\}
.PDF_BOOKMARK 1 \\*[$PDF_\\*[DOC_]COVER_LABEL] \\*[PDF_BM]
.\}
.if \\n[#\\*[DOC_]COVER_TITLE]=5 \{\
.ie \\n[#PRINT_STYLE]=1 \{\
.CAPS
.PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.CAPS OFF
.\}
.el \{\
.ie \\n[#\\*[DOC_]COVER_TITLE_COLOR]=1 \{\
.PRINT \
\m[\\*[$\\*[DOC_]COVER_TITLE_COLOR]]\\*[$CHAPTER_STRING] \\*[$CHAPTER]\m[]
.\}
.el .PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.\}
.if !'\\*[$CHAPTER_TITLE_1]'' \{\
.ie \\n[#PRINT_STYLE]=1 \{\
.ie \\n[#SINGLE_SPACE]=0 .vs \\n[#DOC_LEAD]u/2u
.el .vs \\n[#DOC_LEAD]u
.sp
.nr #ARG_NUM 0 1
.while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.UNDERSCORE "\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]"
.if \\n[#ARG_NUM]>1 .as PDF_BM " 
.as PDF_BM \\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]
.\}
.if \\n[#SINGLE_SPACE]=0 .vs \\n[#DOC_LEAD]u
.\}
.el \{\
.fam \\*[$\\*[DOC_]COVER_CHAPTER_TITLE_FAM]
.ft  \\*[$\\*[DOC_]COVER_CHAPTER_TITLE_FT]
.ps  \\*[$\\*[DOC_]COVER_CHAPTER_TITLE_PT_SIZE]
.ALD \\n[.v]u/4u
.nr #ARG_NUM 0 1
.while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.ie \\n[#\\*[DOC_]COVER_TITLE_COLOR]=1 \{\
.PRINT \
\m[\\*[$\\*[DOC_]COVER_TITLE_COLOR]]\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]\m[]
.\}
.el .PRINT \\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]
.if \\n[#ARG_NUM]>1 .as PDF_BM " 
.as PDF_BM \\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]
.\}
.\}
.\}
.PDF_BOOKMARK 1 \\*[$PDF_\\*[DOC_]COVER_LABEL] \\*[PDF_BM]
.\}
.if \\n[#\\*[DOC_]COVER_TITLE]=6 \{\
.ie \\n[#PRINT_STYLE]=1 \{\
.CAPS
.nr #ARG_NUM 0 1
.while \\n[#\\*[DOC_]COVER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.UNDERSCORE "\\*[$\\*[DOC_]COVER_TITLE_\\n[#ARG_NUM]]"
.if \\n[#ARG_NUM]>1 .as PDF_BM " 
.as PDF_BM \\*[$\\*[DOC_]COVER_TITLE_\\n[#ARG_NUM]]
.\}
.CAPS OFF
.\}
.el \{\
.nr #ARG_NUM 0 1
.while \\n[#\\*[DOC_]COVER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.ie \\n[#\\*[DOC_]COVER_TITLE_COLOR]=1 \{\
.PRINT \
\m[\\*[$\\*[DOC_]COVER_TITLE_COLOR]]\
\\*[$\\*[DOC_]COVER_TITLE_\\n[#ARG_NUM]]\m[]
.\}
.el .PRINT \\*[$\\*[DOC_]COVER_TITLE_\\n[#ARG_NUM]]
.if \\n[#ARG_NUM]>1 .as PDF_BM " 
.as PDF_BM \\*[$\\*[DOC_]COVER_TITLE_\\n[#ARG_NUM]]
.\}
.\}
.PDF_BOOKMARK 1 \\*[$PDF_\\*[DOC_]COVER_LABEL] \\*[PDF_BM]
.\}
.if \\n[#\\*[DOC_]COVER_TITLE] \{\
.nr PDFHREF.VIEW.LEADING \\n[PDFHREF.VIEW.LEADING.H]
.rr PDFHREF.VIEW.LEADING.H
.\}
.if !\\n[#DOC_TYPE]=2 \{\
.if \\n[#\\*[DOC_]COVER_SUBTITLE]=1 \{\
.fam \\*[$\\*[DOC_]COVER_SUBTITLE_FAM]
.ft  \\*[$\\*[DOC_]COVER_SUBTITLE_FT]
.ps  \\*[$\\*[DOC_]COVER_SUBTITLE_PT_SIZE]
.if \\n[#PRINT_STYLE]=1 \{\
.TYPEWRITER
.ie \\n[#SINGLE_SPACE]=0 .vs \\n[#DOC_LEAD]u/2u
.el .vs \\n[#DOC_LEAD]u
.sp
.\}
.if \\n[#\\*[DOC_]COVER]=1 \{\
.ie !'\\*[$SUBTITLE_\\*[DOC_]COVER_1]'' \{\
.nr #SUBTITLES \\n[#SUBTITLE_\\*[DOC_]COVER_NUM]
.nr #NEXT_SUBTITLE 0 1
.while \\n[#SUBTITLES]>\\n[#NEXT_SUBTITLE] \{\
.ie \\n[#\\*[DOC_]COVER_SUBTITLE_COLOR]=1 \{\
.PRINT \
\m[\\*[$\\*[DOC_]COVER_SUBTITLE_COLOR]]\
\\*[$SUBTITLE_\\*[DOC_]COVER_\\n+[#NEXT_SUBTITLE]]\m[]
.\}
.el .PRINT \
\\*[$SUBTITLE_\\*[DOC_]COVER_\\n+[#NEXT_SUBTITLE]]
.\}
.\}
.el \{\
.nr #SUBTITLES \\n[#SUBTITLE_NUM]
.nr #NEXT_SUBTITLE 0 1
.while \\n[#SUBTITLES]>\\n[#NEXT_SUBTITLE] \{\
.ie \\n[#\\*[DOC_]COVER_SUBTITLE_COLOR]=1 \{\
.PRINT \
\m[\\*[$\\*[DOC_]COVER_SUBTITLE_COLOR]]\\*[$SUBTITLE_\\n+[#NEXT_SUBTITLE]]\m[]
.\}
.el .PRINT \\*[$SUBTITLE_\\n+[#NEXT_SUBTITLE]]
.\}
.\}
.\}
.if \\n[#PRINT_STYLE]=1 \{\
.if \\n[#SINGLE_SPACE]=0 .vs
.\}
.\}
.if \\n[#PRINT_STYLE]=1 \{\
.if !r#\\*[DOC_]COVER_SUBTITLE .sp
.\}
.\}
.if \\n[#\\*[DOC_]COVER_AUTHOR]=1 \{\
.fam \\*[$\\*[DOC_]COVER_AUTHOR_FAM]
.ft  \\*[$\\*[DOC_]COVER_AUTHOR_FT]
.ps  \\*[$\\*[DOC_]COVER_AUTHOR_PT_SIZE]
.if \\n[#PRINT_STYLE]=1 \{\
.TYPEWRITER
.ie \\n[#SINGLE_SPACE]=1 .vs \\n[#DOC_LEAD]u
.el .vs \\n[#DOC_LEAD]u/2u
.sp
.\}
.ie d$ATTRIBUTE_STRING_DO_CCOVER \{\
.ie \\n[#\\*[DOC_]COVER_ATTRIBUTE_COLOR]=1 \{\
.PRINT \
\&\m[\\*[$\\*[DOC_]COVER_ATTRIBUTE_COLOR]]\
\\*[$ATTRIBUTE_STRING_\\*[DOC_]COVER]\m[]
.\}
.el .PRINT \&\\*[$ATTRIBUTE_STRING_\\*[DOC_]COVER]
.\}
.el \{\
.if d$ATTRIBUTE_STRING \{\
.ie \\n[#\\*[DOC_]COVER_ATTRIBUTE_COLOR]=1 \{\
.PRINT \
\&\m[\\*[$\\*[DOC_]COVER_ATTRIBUTE_COLOR]]\\*[$ATTRIBUTE_STRING]\m[]
.\}
.el .PRINT \&\\*[$ATTRIBUTE_STRING]
.\}
.\}
.PRINT_AUTHORS
.\}
.fam \\*[$\\*[DOC_]COVER_DOCTYPE_FAM]
.ft  \\*[$\\*[DOC_]COVER_DOCTYPE_FT]
.ps  \\*[$\\*[DOC_]COVER_DOCTYPE_PT_SIZE]
.sp
.if \\n[#DOC_TYPE]=3 \{\
.if \\n[#\\*[DOC_]COVER_DOCTYPE]=1 \{\
.ie \\n[#PRINT_STYLE]=1 \{\
.TYPEWRITER
.vs \\n[#DOC_LEAD]u
.UNDERSCORE2 "\\*[$DOC_TYPE]"
.\}
.el \{\
.nr #FROM_\\*[DOC_]COVER 1
.ie \\n[#\\*[DOC_]COVER_DOCTYPE_COLOR]=1 \{\
.COLOR \\*[$\\*[DOC_]COVER_DOCTYPE_COLOR]
.ie \\n[#\\*[DOC_]COVER_UNDERLINE]=1 \
.UNDERSCORE \\*[$\\*[DOC_]COVER_UNDERLINE_GAP] "\\*[$DOC_TYPE]"
.el .PRINT "\\*[$DOC_TYPE]"
.\}
.el \{\
.ie \\n[#\\*[DOC_]COVER_UNDERLINE]=1 \
.UNDERSCORE \
\\*[$\\*[DOC_]COVER_UNDERLINE_GAP] "\\*[$DOC_TYPE]"
.el .PRINT "\\*[$DOC_TYPE]"
.\}
.rr #FROM_\\*[DOC_]COVER
.\}
.\}
.\}
.sp |\\n[#VISUAL_B_MARGIN]u
.ie \\n[#PRINT_STYLE]=1 \{\
.TYPEWRITER
.ie \\n[#SINGLE_SPACE]=1 .vs \\n[#DOC_LEAD]u
.el .vs \\n[#DOC_LEAD]u/2u
.sp
.\}
.el \{\
.fam \\*[$\\*[DOC_]COVER_COPYRIGHT_FAM]
.ft  \\*[$\\*[DOC_]COVER_COPYRIGHT_FT]
.ps \\*[$\\*[DOC_]COVER_COPYRIGHT_PT_SIZE]
.vs \\n[.ps]u+\\n[#\\*[DOC_]COVER_MISC_AUTOLEAD]u
.nr #COPYRIGHT_V_ADJ \\n[#DOC_LEAD]-\\n[.v]
.sp \\n[#COPYRIGHT_V_ADJ]u
.rr #COPYRIGHT_V_ADJ
.\}
.if \\n[#\\*[DOC_]COVER_COPYRIGHT]=1 \{\
.if !'\\*[$COPYRIGHT_DOCCOVER]'' \{\
.ds $SAVED_COPYRIGHT \\*[$COPYRIGHT]
.ds $COPYRIGHT \\*[$COPYRIGHT_DOCCOVER]
.\}
.QUAD \\*[$\\*[DOC_]COVER_COPYRIGHT_QUAD]
.ie \\n[#\\*[DOC_]COVER_COPYRIGHT_COLOR]=1 \{\
.PRINT \m[\\*[$\\*[DOC_]COVER_COPYRIGHT_COLOR]]\\*[$COPYRIGHT]\m[]
.\}
.el .PRINT \\*[$COPYRIGHT]
.if d$SAVED_COPYRIGHT .ds $COPYRIGHT \\*[$SAVED_COPYRIGHT]
.\}
.br
.if \\n[#\\*[DOC_]COVER_MISC]=1 \{\
.if \\n[#PRINT_STYLE]=2 \{\
.fam \\*[$\\*[DOC_]COVER_MISC_FAM]
.ft  \\*[$\\*[DOC_]COVER_MISC_FT]
.ps \\*[$\\*[DOC_]COVER_MISC_PT_SIZE]
.\}
.QUAD \\*[$\\*[DOC_]COVER_MISC_QUAD]
.ie !'\\*[$MISC_\\*[DOC_]COVER_1]'' \{\
.nr #MISCS \\n[#MISC_\\*[DOC_]COVER_NUM]
.nr #NEXT_MISC 0 1
.while \\n[#MISCS]>\\n[#NEXT_MISC] \{\
.ie \\n[#\\*[DOC_]COVER_MISC_COLOR]=1 \{\
.da MISC_DIV
.PRINT \
\m[\\*[$\\*[DOC_]COVER_MISC_COLOR]]\\*[$MISC_\\*[DOC_]COVER_\\n+[#NEXT_MISC]]\m[]
.br
.da
.rm $MISC_\\*[DOC_]COVER_\\n[#NEXT_MISC]
.rm $MISC_\\n[#NEXT_MISC]
.\}
.el \{\
.da MISC_DIV
.PRINT \\*[$MISC_\\*[DOC_]COVER_\\n+[#NEXT_MISC]]
.br
.da
.rm $MISC_\\*[DOC_]COVER_\\n[#NEXT_MISC]
.rm $MISC_\\n[#NEXT_MISC]
.\}
.\}
.rm $MISC_\\n+[#NEXT_MISC]
.\}
.el \{\
.nr #MISCS \\n[#MISC_NUM]
.nr #NEXT_MISC 0 1
.while (\\n[#MISCS]>=\\n+[#NEXT_MISC]) \{\
.ie \\n[#\\*[DOC_]COVER_MISC_COLOR]=1 \{\
.da MISC_DIV
.PRINT \
\m[\\*[$\\*[DOC_]COVER_MISC_COLOR]]\\*[$MISC_\\n[#NEXT_MISC]]\m[]
.br
.da
.\}
.el \{\
.da MISC_DIV
.PRINT \\*[$MISC_\\n[#NEXT_MISC]]
.br
.da
.\}
.nr #MISC_DEPTH +\\n[dn]
.\}
.\}
.nr #MISC_DEPTH -\\n[#DOC_LEAD]
.sp |\\n[#VISUAL_B_MARGIN]u-\\n[#MISC_DEPTH]u
.nf
.MISC_DIV
.rm MISC_DIV
.rr #MISC_DEPTH
.\}
.if '\\$0'DO_COVER'     .nr #COVER_END 1
.if '\\$0'DO_DOC_COVER' .nr #DOC_COVER_END 1
.if \\n[TOC.RELOCATE]==1 \{\
.if !\\n[#COVER_BLANKPAGE] \
.if !rTOC_BH .TOC_AFTER_HERE
.\}
.if '\\$0'DO_COVER' \{\
.if \\n[TOC.RELOCATE]==6 \
.if !rTOC_BH .TOC_AFTER_HERE
.\}
.if '\\$0'DO_DOC_COVER' \{\
.if \\n[TOC.RELOCATE]==4 \
.if !rTOC_BH .TOC_AFTER_HERE
.\}
.if '\\$0'DO_DOC_COVER' .rm DOC_
.END_COVER
.END
.MAC END_COVER END
.EOL
.TRAP
.NEWPAGE
.if \\n[#PAGINATION_WAS_ON]=1 .nr % +1
.if \\n[#DOC_COVER_END]=1 \{\
.ie \\n[#DOC_COVER_BLANKPAGE]=1 \{\
.if \\n[TOC.RELOCATE] \
.if !\\n[#TOC_BH] .TOC_AFTER_HERE
.NEWPAGE
.rr #DOC_COVER_BLANKPAGE
.if !\\n[#DOCCOVERS_COUNT]=1 .nr % -2
.\}
.el \
.if !\\n[#DOCCOVERS_COUNT]=1 .nr #PAGE_NUM_ADJ -1
.rr #DOC_COVER_END
.\}
.if \\n[#COVER_END]=1 \{\
.ie \\n[#COVER_BLANKPAGE]=1 \{\
.if \\n[TOC.RELOCATE] \
.if !\\n[TOC_BH] .TOC_AFTER_HERE
.NEWPAGE
.rr #COVER_BLANKPAGE
.if !\\n[#COVERS_COUNT]=1 .nr % -2
.\}
.el \
.if !\\n[#COVERS_COUNT]=1 .nr #PAGE_NUM_ADJ -1
.rr #COVER_END
.\}
.if !'\\n[.ev]'0' .ev
.if \\n[#PAGINATION_WAS_ON] \{\
.rr #PAGINATION_WAS_ON
.PAGINATE
.PAGENUMBER \\n%+\\n[#PAGE_NUM_ADJ]-1
.\}
.if \\n[#HEADERS_WERE_ON] \{\
.rr #HEADERS_WERE_ON
.HEADERS
.\}
.if \\n[#FOOTERS_WERE_ON] \{\
.rr #FOOTERS_WERE_ON
.FOOTERS
.\}
.if \\n[#COLUMNS_WERE_ON]=1 \{\
.rr #COLUMNS_WERE_ON 1
.nr #COLUMNS 1
.\}
.rr #DOING_COVER
.if \\n[.ns] .nop \&
.if \\n[#RECTO_VERSO] .nr #RV_POST_COVER 1
.END
.MAC START END
.nr #DOCS 1
.if \\n[TOC.RELOCATE]==2 \{\
.if !\\n[TOC_BH] .TOC_BEFORE_HERE
.\}
.if !n .nop \X'ps: exec 0 setlinejoin'\X'ps: exec 0 setlinecap'
.if !\\n[#PRINT_STYLE] \{\
.PRINTSTYLE TYPEWRITE
.PRINT \&
.po 6P
.ll 39P
.ta \\n[.l]u
.sp |1i-1v
.CENTER
.PRINT "You neglected to enter a PRINTSTYLE"
.fl
.ab [mom]: PRINTSTYLE missing.  Aborting '\\n[.F]'.
.\}
.if \\n[#LINENUMBERS]=1 \{\
.nn
.NUMBER_LINES OFF
.nr #LINENUMBERS 2
.\}
.if \\n[#COLLATE] \{\
.COPYSTYLE \\*[$COPY_STYLE]
.nr #HEADERS_ON \\n[#HEADER_STATE]
.if \\n[#PAGE_NUM_V_POS]=1 .nr #PAGINATE \\n[#PAGINATION_STATE]
.PRINT \&
.if !'\\*[$RESTORE_PAGENUM_STYLE]'' \{\
.PAGENUM_STYLE \\*[$RESTORE_PAGENUM_STYLE]
.rm $RESTORE_PAGENUM_STYLE
.\}
.\}
.DEFAULTS
.nr #PAGE_TOP \\n[#T_MARGIN]u-\\n[#DOC_LEAD]u
.rr #RESET_TRAPS
.if !r#EN_Q_AUTOLEAD  .nr #EN_Q_LEAD \\n[#EN_LEAD]
.if !r#EN_BQ_AUTOLEAD .nr #EN_BQ_LEAD \\n[#EN_LEAD]
.if !r@L_MARGIN .nr @L_MARGIN \\n[#DOC_L_MARGIN]
.if !r@R_MARGIN .nr @R_MARGIN \\n[#DOC_R_MARGIN]
.if \\n[#DOC_COVERS]=1 \{\
.if \\n[#DOC_COVER]=1 \{\
.DO_DOC_COVER
.rr #DOC_COVER
.rr #DOC_COVER_TITLE
.rr #DOC_COVER_SUBTITLE
.rr #DOC_COVER_AUTHOR
.rr #DOC_COVER_DOCTYPE
.rr #DOC_COVER_COPYRIGHT
.rr #DOC_COVER_MISC
.\}
.\}
.if \\n[#COVERS]=1 \{\
.if \\n[#COVER]=1 \{\
.DO_COVER
.rr #COVER
.rr #COVER_TITLE
.rr #COVER_SUBTITLE
.rr #COVER_AUTHOR
.rr #COVER_DOCTYPE
.rr #COVER_COPYRIGHT
.rr #COVER_MISC
.\}
.\}
.if !\\n[#TOC] .RV_HARD_SET_MARGINS
.if \\n[#COLUMNS] .COLUMNS \\n[#NUM_COLS] \\n[#GUTTER]u
.if !\\n[#TOC]=1 \{\
.nr #TOC_ENTRY_PN \\n%+\\n[#PAGE_NUM_ADJ]
.af #TOC_ENTRY_PN \\g[#PAGENUMBER]
.ie \\n[#USER_SET_TITLE_ITEM] \{\
.ds $TOC_TITLE_ITEM \\*[$USER_SET_TITLE_ITEM]
.rr #USER_SET_TITLE_ITEM
.rm $USER_SET_TITLE_ITEM
.\}
.el \{\
.ie \\n[#DOC_TYPE]=2 \{\
.ie '\\*[$CHAPTER_TITLE]'' \
.ds $TOC_TITLE_ITEM \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.el \{\
.ie '\\*[$CHAPTER]'' \
.ds $TOC_TITLE_ITEM \\*[$CHAPTER_TITLE]
.el \
.ds $TOC_TITLE_ITEM \
\\*[$CHAPTER_STRING] \\*[$CHAPTER]: \\*[$CHAPTER_TITLE]
.\}
.\}
.el \
.ds $TOC_TITLE_ITEM \\*[$TITLE]
.\}
.if \\n[#TOC_AUTHORS]=1 \{\
.ie '\\*[$TOC_AUTHORS]'' \
.as $TOC_TITLE_ITEM / \\*[$AUTHOR_1]
.el \{\
.as $TOC_TITLE_ITEM / \\*[$TOC_AUTHORS]
.rm $TOC_AUTHORS
.\}
.\}
.sp |\\n[#DOCHEADER_ADVANCE]u-\\n[#DOC_LEAD]u
.PDF_BOOKMARK 1 \\*[$TOC_TITLE_ITEM]
.as $TOC_TITLE_ITEM \|
.if \\n[#PREFIX_CH_NUM] \{\
.rn $TOC_TITLE_ITEM $TOC_TITLE_ITEM_OLD
.ds $TOC_CH_NUM \\n[#CH_NUM].\[toc-hd-num-spacer]
.ds $TOC_TITLE_ITEM \\*[$TOC_CH_NUM]\\*[$TOC_TITLE_ITEM_OLD]
.rm $TOC_TITLE_ITEM_OLD
.\}
.TITLE_TO_TOC
.\}
.if !\\n[#TOC] .nr #POST_TOP 1
.if \\n[#PRINT_PAGENUM_ON_PAGE_1] \{\
.br
.sp |\\n[#HEADER_MARGIN]u
.PRINT_PAGE_NUMBER
.\}
.rr #COLLATE
.rr #PAGINATION_STATE
.ie \\n[#DOC_HEADER]=0 \{\
.if \\n[.ns] .rs
.if \\n[#DOC_TYPE]=4 \
.if !'\\n[.z]'' .di
.nr #STORED_PP_INDENT \\n[#PP_INDENT]
.PARA_INDENT 0
.PP
.PARA_INDENT \\n[#STORED_PP_INDENT]u
.rr #STORED_PP_INDENT
.ie r#ADVANCE_FROM_TOP \{\
.br
.sp |\\n[#ADVANCE_FROM_TOP]u-1v
.if \\n[#ADJ_DOC_LEAD]=1 .SHIM
.\}
.el \{\
.br
.sp |\\n[#T_MARGIN]u-1v
.\}
.if \\n[#COLUMNS] \{\
.mk dc
.nr #COL_NUM 0 1
.po \\n[#COL_\\n+[#COL_NUM]_L_MARGIN]u
.nr #L_MARGIN \\n[.o]
.ll \\n[#COL_L_LENGTH]u
.\}
.nr #PP 0
.\}
.el \{\
.if \\n[#AUTO_LEAD] .nr #RESTORE_AUTO_LEAD 1
.if \\n[#PRINT_STYLE]=2 .vs \\n[#DOC_LEAD]u\\*[$DOCHEADER_LEAD_ADJ]
.if \\n[#RESTORE_AUTO_LEAD] \{\
.nr #AUTO_LEAD 1
.nr #AUTOLEAD_VALUE  \\n[#SAVED_AUTOLEAD_VALUE]
.\}
.nr #DOCHEADER_LEAD \\n[#LEAD]
.if \\n[#DOC_TYPE]=1 \{\
.if \\n[.ns] .rs
.ev DOCHEADER
.if \\n[#DOCHEADER_COLOR]=1 \{\
.nf
\m[\\*[$DOCHEADER_COLOR]]
.EOL
.\}
.L_MARGIN \\n[#DOC_L_MARGIN]u
.LL       \\n[#DOC_L_LENGTH]u
.ta \\n[.l]u
.if \\n[#PRINT_STYLE]=1 \{\
.DOC_HEADER_QUAD
.TYPEWRITER
.if !\\n[#SINGLE_SPACE] \{\
.vs (\\n[#DOC_LEAD]u/2u)+(\\n[.v]u/3u)
.sp |\\n[#T_MARGIN]u-1v
.\}
.if !'\\*[$TITLE_1]'' \{\
.CAPS
.nr #ARG_NUM 0 1
.while \\n[#TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.UNDERSCORE 3p "\\*[$TITLE_\\n[#ARG_NUM]]"
.\}
.CAPS OFF
.\}
.if !'\\*[$SUBTITLE]'' \{\
.sp
.nr #ARG_NUM 0 1
.while \\n[#SUBTITLE_NUM]>=\\n+[#ARG_NUM] \{\
.UNDERSCORE 3p "\\*[$SUBTITLE_\\n[#ARG_NUM]]"
.\}
.\}
.if !'\\*[$AUTHOR_1]'' \{\
.sp
.PRINT \&\\*[$ATTRIBUTE_STRING]
.nr #AUTHORS \\n[#AUTHOR_NUM]
.nr #NEXT_AUTHOR 0 1
.if !\\n[#SINGLE_SPACE] .vs (\\n[#DOC_LEAD]u/2u)+(\\n[.v]u/3u)
.while \\n[#AUTHORS]>\\n[#NEXT_AUTHOR] \{\
.PRINT \\*[$AUTHOR_\\n+[#NEXT_AUTHOR]]
.\}
.\}
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.DEFAULT_DOCHEADER
.\}
.ev
.\}
.if \\n[#DOC_TYPE]=2 \{\
.if \\n[.ns] .rs
.ev DOCHEADER
.if \\n[#DOCHEADER_COLOR]=1 \{\
.nf
\m[\\*[$DOCHEADER_COLOR]]
.EOL
.\}
.L_MARGIN \\n[#DOC_L_MARGIN]u
.LL       \\n[#DOC_L_LENGTH]u
.ta \\n[.l]u
.if \\n[#PRINT_STYLE]=1 \{\
.CENTER
.TYPEWRITER
.if !\\n[#SINGLE_SPACE] \{\
.vs (\\n[#DOC_LEAD]u/2u)+(\\n[.v]u/3u)
.sp |\\n[#T_MARGIN]u-1v
.\}
.ie '\\*[$CHAPTER]'' \{\
.CAPS
.ie !'\\*[$CHAPTER_TITLE]'' \{\
.nr #ARG_NUM 0 1
.while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.UNDERSCORE 3p "\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]"
.\}
.\}
.el \{\
.CAPS
.UNDERSCORE 3p "\\*[$CHAPTER_STRING]"
.\}
.CAPS OFF
.RLD 1v
.\}
.el \{\
.CAPS
.PRINT \\*[$CHAPTER_STRING] \\*[$CHAPTER]
.CAPS OFF
.if !'\\*[$CHAPTER_TITLE]'' \{\
.sp
.nr #ARG_NUM 0 1
.while \\n[#CHAPTER_TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.UNDERSCORE 3p "\\*[$CHAPTER_TITLE_\\n[#ARG_NUM]]"
.\}
.\}
.RLD 1v
.\}
.vs \\n[#DOC_LEAD]u
.if \\n[#SINGLE_SPACE] .sp 2
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.CHAPTER_DOCHEADER
.di DOCHEADER_DIVERSION
.br
.CHAPTER_DOCHEADER
.br
.di
.nr #DOCHEADER_DEPTH \\n[dn]-\\n[#DOCHEADER_LEAD]
.rm DOCHEADER_DIVERSION
.\}
.ev
.\}
.if \\n[#DOC_TYPE]=3 \{\
.if \\n[.ns] .rs
.ev DOCHEADER
.if \\n[#DOCHEADER_COLOR]=1 \{\
.nf
\m[\\*[$DOCHEADER_COLOR]]
.EOL
.\}
.L_MARGIN \\n[#DOC_L_MARGIN]u
.LL       \\n[#DOC_L_LENGTH]u
.ta \\n[.l]u
.if \\n[#PRINT_STYLE]=1 \{\
.CENTER
.TYPEWRITER
.if !\\n[#SINGLE_SPACE] \{\
.vs (\\n[#DOC_LEAD]u/2u)+(\\n[.v]u/3u)
.sp |\\n[#T_MARGIN]u-1v
.\}
.if !'\\*[$TITLE_1]'' \{\
.CAPS
.nr #ARG_NUM 0 1
.while \\n[#TITLE_NUM]>=\\n+[#ARG_NUM] \{\
.UNDERSCORE 3p "\\*[$TITLE_\\n[#ARG_NUM]]"
.\}
.CAPS OFF
.\}
.if !'\\*[$SUBTITLE]'' \{\
.sp
.nr #ARG_NUM 0 1
.while \\n[#SUBTITLE_NUM]>=\\n+[#ARG_NUM] \{\
.UNDERSCORE 3p "\\*[$SUBTITLE_\\n[#ARG_NUM]]"
.\}
.\}
.if !'\\*[$AUTHOR_1]'' \{\
.sp
.PRINT \&\\*[$ATTRIBUTE_STRING]
.nr #AUTHORS \\n[#AUTHOR_NUM]
.nr #NEXT_AUTHOR 0 1
.if !\\n[#SINGLE_SPACE] .vs (\\n[#DOC_LEAD]u/2u)+(\\n[.v]u/3u)
.while \\n[#AUTHORS]>\\n[#NEXT_AUTHOR] \{\
.PRINT \\*[$AUTHOR_\\n+[#NEXT_AUTHOR]]
.\}
.\}
.ie !\\n[#SINGLE_SPACE] .sp 2
.el .sp
.ie \\n[#DOCTYPE_UNDERLINE] \{\
.UNDERSCORE2 3p "\\*[$DOC_TYPE]"
.\}
.el \
.PRINT "\\*[$DOC_TYPE]"
.if \\n[#SINGLE_SPACE]=1 .sp
.\}
.if \\n[#PRINT_STYLE]=2 .NAMED_DOCHEADER
.ev
.\}
.if !\\n[#DOC_TYPE]=4 \{\
.if \\n[#PRINT_STYLE]=1 .sp
.if \\n[#PRINT_STYLE]=2 .sp \\n[#DOC_LEAD]u*2u
.if \\n[#COLUMNS] \{\
.nr #COL_NUM 0 1
.nr #L_LENGTH_FOR_EPI \\n[#L_LENGTH]
.ie \\n[#RV_POST_COVER] \{\
.nr #COL_\\n+[#COL_NUM]_L_MARGIN \\n[#DOC_L_MARGIN]
.po \\n[#COL_\\n[#COL_NUM]_L_MARGIN]u
.nr #L_MARGIN \\n[.o]
.rr #RV_POST_COVER
.\}
.el \{\
.po \\n[#COL_\\n+[#COL_NUM]_L_MARGIN]u
.nr #L_MARGIN \\n[.o]
.\}
.LL \\n[#COL_L_LENGTH]u
.ta \\n[.l]u
.\}
.\}
.\}
.vs \\n[#DOC_LEAD]u
.if \\n[#ADJ_DOC_LEAD]=1 \{\
.ie \\n[#ADVANCE_FROM_TOP]=0 \
.if \\n[#DOC_HEADER]=1 .SHIM
.el .rr #ADVANCE_FROM_TOP
.\}
.mk dc
.QUAD \\*[$DOC_QUAD]
.CLEANUP_DEFAULTS
.nr #START_FOR_FOOTERS 1
.if !\\n[#DOC_TYPE]=4 .em TERMINATE
.if \\n[#LINENUMBERS]=2 \{\
.NUMBER_LINES RESUME
.nr #LINENUMBERS 1
.\}
.if \\n[#RUN_ON]=1 \{\
.if \\n[#FN_MARKER_STYLE]=1 .RUNON_WARNING
.if \\n[#FN_MARKER_STYLE]=2 .RUNON_WARNING
.\}
.END
.MAC CLEANUP_DEFAULTS END
.nr #START 1
.if \\n[#DOC_HEADER]=1 .nr #DOC_HEADER 2
.rm $TOC_TITLE_ITEM
.rr #MISC_NUM
.rr #MISCS
.rr #NEXT_AUTHOR
.rr #NEXT_MISC
.END
.MAC DOCHEADER END
.ie '\\$1'' .nr #DOC_HEADER 1
.el \{\
.if !'\\$2'' .nr #ADVANCE_FROM_TOP (\\$2)
.nr #DOC_HEADER 0
.\}
.END
.MAC DOCHEADER_LEAD END
.ds $DOCHEADER_LEAD_ADJ \\$1
.END
.MAC DOCHEADER_ADVANCE END
.nr #DOCHEADER_ADVANCE \\$1
.END
.MAC DOC_LEFT_MARGIN END
.if !\\n[#DOCS] .DOC_MACRO_ERROR \\$0
.br
.nr #DOC_L_MARGIN (\\$1)
.L_MARGIN \\n[#DOC_L_MARGIN]u
.END
.MAC DOC_RIGHT_MARGIN END
.br
.nr #DOC_R_MARGIN (\\$1)
.R_MARGIN \\n[#DOC_R_MARGIN]
.nr #DOC_L_LENGTH \\n[#L_LENGTH]
.END
.MAC DOC_LINE_LENGTH END
.if !\\n[DOCS] .DOC_MACRO_ERROR \\$0
.br
.nr #DOC_L_LENGTH (\\$1)
.LL \\n[#DOC_L_LENGTH]u
.ta \\n[.l]u
.END
.MAC DOC_FAMILY END
.if !\\n[DOCS] .DOC_MACRO_ERROR \\$0
.br
.ds $DOC_FAM \\$1
.ds $FAMILY  \\*[$DOC_FAM]
.AUTHOR_FAMILY     \\*[$DOC_FAM]
.BLOCKQUOTE_FAMILY \\*[$DOC_FAM]
.DOCHEADER_FAMILY  \\*[$DOC_FAM]
.DOCTYPE_FAMILY    \\*[$DOC_FAM]
.EPIGRAPH_FAMILY   \\*[$DOC_FAM]
.FOOTNOTE_FAMILY   \\*[$DOC_FAM]
.HDRFTR_FAMILY     \\*[$DOC_FAM]
.LINENUMBER_FAMILY \\*[$DOC_FAM]
.QUOTE_FAMILY      \\*[$DOC_FAM]
.SUBTITLE_FAMILY   \\*[$DOC_FAM]
.TITLE_FAMILY      \\*[$DOC_FAM]
.END
.ALIAS DOC_PT_SIZE PT_SIZE
.MAC DOC_LEAD END
.if \\n[#IGNORE] .return
.if !\\n[#DOCS] .DOC_MACRO_ERROR \\$0
.br
.if '\\$0'DOC_LEAD' \{\
.vs \\$1
.rr #DOC_AUTOLEAD
.rr #DOC_AUTOLEAD_FACTOR
.nr #DOC_LEAD \\n[.v]
.\}
.nr #RESET_TRAPS 1
.if !\\n[#ADJ_DOC_LEAD] .nr #REMOVE_ADJ 1
.if !'\\$0'DOC_LEAD' \{\
.if '\\$0'EN_LEAD' .nr #DOC_LEAD \\n[#EN_LEAD]
.if '\\$0'BIB_LEAD' .nr #DOC_LEAD \\n[#BIB_LEAD]
.if '\\$0'TOC_LEAD' .nr #DOC_LEAD \\n[#TOC_LEAD]
.if '\\$2'ADJUST' .TRAPS
.rr #RESET_TRAPS
.\}
.END
.MAC DOC_LEAD_ADJUST END
.ie '\\$1'' \{\
.nr #ADJ_DOC_LEAD 1
.rr #DOC_LEAD_ADJUST_OFF
.\}
.el \{\
.nr #ADJ_DOC_LEAD 0
.nr #DOC_LEAD_ADJUST_OFF 1
.\}
.END
.MAC PROCESS_SHIM END
.while \\n+[#VALID_BASELINE]<\\n[#CURRENT_V_POS] \{\
.\}
.nr #SHIM \\n[#VALID_BASELINE]-\\n[#CURRENT_V_POS]
.END
.MAC NO_SHIM END
.ie '\\$1'' .nr #NO_SHIM 1
.el .rr #NO_SHIM
.END
.nr #NO_SHIM 2
.MAC SHIM END
.ie \\n[#NO_SHIM] .return
.el \{\
.nr #VALID_BASELINE \\n[#T_MARGIN]-\\n[#DOC_LEAD] \\n[#DOC_LEAD]
.if !r#CURRENT_V_POS .nr #CURRENT_V_POS \\n[.d]
.ie \\n[#ADVANCE_FROM_TOP] \{\
.ie \\n[#CURRENT_V_POS]<(\\n[#T_MARGIN]-1v) \{\
.while \\n-[#VALID_BASELINE]>\\n[#CURRENT_V_POS] .
.nr #VALID_BASELINE +\\n[#DOC_LEAD]
.nr #SHIM \\n[#VALID_BASELINE]-\\n[#CURRENT_V_POS]
.\}
.el .PROCESS_SHIM
.\}
.el .PROCESS_SHIM
'       sp \\n[#SHIM]u
.rr #CURRENT_V_POS
.\}
.END
.MAC ATTRIBUTE_STRING END
.if !'\\$1'DOC_COVER' \
.if !'\\$1'COVER' .nr #NEITHER 1
.if !'\\$1'COVER' \
.if !'\\$1'DOC_COVER' .nr #NEITHER 1
.if '\\$1'DOC_COVER' \
.ds $ATTRIBUTE_STRING_DOC_COVER \\$2
.if '\\$1'COVER' \
.ds $ATTRIBUTE_STRING_COVER \\$2
.if \\n[#NEITHER]=1 \{\
.ds $ATTRIBUTE_STRING \\$1
.rr #NEITHER
.\}
.END
.MAC CHAPTER_STRING END
.ds $CHAPTER_STRING \\$1
.END
.MAC DRAFT_STRING END
.ds $DRAFT_STRING \\$1
.END
.MAC REVISION_STRING END
.ds $REVISION_STRING \\$1
.END
.MAC FINIS_STRING END
.ds $FINIS_STRING \\$1
.END
.MAC FINIS_STRING_CAPS END
.ie '\\$1'' .nr #FINIS_STRING_CAPS 1
.el .nr #FINIS_STRING_CAPS 0
.END
.MAC RECTO_VERSO END
.ie '\\$1'' .nr #RECTO_VERSO 1
.el .nr #RECTO_VERSO 0
.END
.MAC RV_HARD_SET_MARGINS END
.DOC_LEFT_MARGIN  \\n[@L_MARGIN]u
.DOC_RIGHT_MARGIN \\n[@R_MARGIN]u
.po \\n[#DOC_L_MARGIN]u
.LL \\n[#DOC_L_LENGTH]u
.END
.MAC EPIGRAPH_INDENT END
.rr #EPI_OFFSET_VALUE
.rm $EPI_OFFSET_VALUE
.ds $EVAL_EI_ARG \\$1
.substring $EVAL_EI_ARG -1
.ie \B'\\*[$EVAL_EI_ARG]' .nr #EPI_OFFSET_VALUE \\$1
.el .ds $EPI_OFFSET_VALUE \\$1
.rm $EVAL_EI_ARG
.END
.MAC EPIGRAPH_AUTOLEAD END
.nr #EPI_AUTOLEAD (p;\\$1)
.END
.MAC EPIGRAPH END
.nr #PP_STYLE 2
.nr #Q_PP     0
.if \\n[#LINENUMBERS]=1 \{\
.NUMBER_LINES OFF
.nr #LINENUMBERS 2
.\}
.if \\n[#START] \{\
.if \\n[#PRINT_STYLE]=1 \
.if \\n[#AUTHOR_LINES]=1 .sp \\n[#DOC_LEAD]u
.\}
.ie '\\$1'' \{\
.nr #EPIGRAPH 1
.ev EPIGRAPH
.nr #IN_DIVER 1
.ll \\n[#L_LENGTH]u
.ta \\n[.l]u
.CHECK_INDENT
.if \\n[#COLUMNS] \{\
.ie \\n[#START] \{\
.ll \\n[#DOC_L_LENGTH]u
.ta \\n[.l]u
.\}
.el \{\
.ll \\n[#COL_L_LENGTH]u
.ta \\n[.l]u
.\}
.\}
.CENTER
.if \\n[#PRINT_STYLE]=1 \{\
.fam \\*[$TYPEWRITER_FAM]
.ft  R
.if '\\*[$EPI_FT]'I' .FT I
.ps  \\*[$TYPEWRITER_PS]
.ie \\n[#SINGLE_SPACE] .vs \\n[#DOC_LEAD]u
.el .vs \\n[#DOC_LEAD]u/2u
.nr #EPI_LEAD      \\n[#LEAD]
.nr #EPI_LEAD_DIFF \\n[#DOC_LEAD]-\\n[#EPI_LEAD]
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.FAMILY   \\*[$EPI_FAM]
.FT       \\*[$EPI_FT]
.ps  \\n[#DOC_PT_SIZE]u\\*[$EPI_SIZE_CHANGE]
.if \\n[#EPI_COLOR]=1 \{\
.nf
\m[\\*[$EPI_COLOR]]
.EOL
.\}
.vs \\n[.ps]u+\\n[#EPI_AUTOLEAD]u
.nr #EPI_LEAD      \\n[#LEAD]
.nr #EPI_LEAD_DIFF \\n[#DOC_LEAD]-\\n[#EPI_LEAD]
.\}
.di EPI_TEXT
.nr #DIVERSIONS_HY_MARGIN (p;\\n[.ps]u*2.75)/1000
.HY_SET 1 \\n[#DIVERSIONS_HY_MARGIN]u (\\n[#PT_SIZE]u/1000u/8u)p
.hy 14
.nr #EPI_ACTIVE 1
.\}
.el \{\
.ie '\\$1'BLOCK' \{\
.nr #EPIGRAPH 2
.ev EPIGRAPH
.evc 0
.ie \\n[#START] \{\
.ie \\n[#COLUMNS] \{\
.ie r#EPI_OFFSET_VALUE \
.ll \
\\n[#L_LENGTH_FOR_EPI]u-(\\n[#PP_INDENT]u*(\\n[#EPI_OFFSET_VALUE]u*2u))
.el \
.ll \
\\n[#L_LENGTH_FOR_EPI]u-(\\*[$EPI_OFFSET_VALUE]u*2u)
.ta \\n[.l]u
.\}
.el \{\
.ie r#EPI_OFFSET_VALUE \
.ll \
\\n[#L_LENGTH]u-(\\n[#PP_INDENT]u*(\\n[#EPI_OFFSET_VALUE]u*2u))
.el \
.ll \\n[#L_LENGTH]u-(\\*[$EPI_OFFSET_VALUE]*2u)
.ta \\n[.l]u
.\}
.\}
.el \{\
.ie r#EPI_OFFSET_VALUE \
.ll \
\\n[#L_LENGTH]u-(\\n[#PP_INDENT]u*(\\n[#EPI_OFFSET_VALUE]u*2u))
.el \
.ll \\n[#L_LENGTH]u-(\\*[$EPI_OFFSET_VALUE]*2u)
.ta \\n[.l]u
.if \\n[#COLUMNS] \{\
.ie r#EPI_OFFSET_VALUE \
.ll \
\\n[#COL_L_LENGTH]u-(\\n[#PP_INDENT]u*(\\n[#EPI_OFFSET_VALUE]u*2u))
.el \
.ll \\n[#COL_L_LENGTH]u-(\\*[$EPI_OFFSET_VALUE]*2u)
.ta \\n[.l]u
.\}
.CHECK_INDENT
.\}
.if \\n[#PRINT_STYLE]=1 \{\
.fam \\*[$TYPEWRITER_FAM]
.ft  R
.if '\\*[$EPI_FT]'I' .FT I
.ps  \\*[$TYPEWRITER_PS]
.ie \\n[#SINGLE_SPACE] .vs \\n[#DOC_LEAD]u
.el .vs \\n[#DOC_LEAD]u/2u
.QUAD LEFT
.HY OFF
.nr #EPI_LEAD \\n[#LEAD]
.nr #EPI_LEAD_DIFF \\n[#DOC_LEAD]-\\n[#EPI_LEAD]
.di EPI_TEXT
.nr #EPI_ACTIVE 1
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.FAMILY   \\*[$EPI_FAM]
.FT       \\*[$EPI_FT]
.ps  \\n[#DOC_PT_SIZE]u\\*[$EPI_SIZE_CHANGE]
.if \\n[#EPI_COLOR]=1 \{\
.nf
\m[\\*[$EPI_COLOR]]
.EOL
.\}
.vs \\n[.ps]u+\\n[#EPI_AUTOLEAD]u
.QUAD     \\*[$EPI_QUAD]
.nr #DIVERSIONS_HY_MARGIN (p;\\n[.ps]u*2.75)/1000
.HY_SET 1 \\n[#DIVERSIONS_HY_MARGIN]u (\\n[#PT_SIZE]u/1000u/8u)p
.hy 14
.nr #EPI_LEAD \\n[#LEAD]
.nr #EPI_LEAD_DIFF \\n[#DOC_LEAD]-\\n[#EPI_LEAD]
.di EPI_TEXT
.nr #EPI_ACTIVE 1
.\}
.\}
.el .DO_EPIGRAPH
.\}
.END
.MAC DO_EPIGRAPH END
.br
.di
.rr #IN_DIVER
.if \\n[#RESET_FN_COUNTERS]=2 \{\
.if !\\n[#FN_COUNT]=1 \{\
.if ((\\n[#PAGE_LENGTH]+\\n[#VARIABLE_FOOTER_POS])+\\n[#DIVER_DEPTH])>(\\n[#PAGE_LENGTH]+\\n[#VARIABLE_FOOTER_POS]) \{\
.DIVER_FN_2_POST
.rr #RESET_FN_COUNTERS
.\}
.\}
.\}
.nr #SAVED_FN_NUMBER \\n[#FN_NUMBER]
.nr #DONE_ONCE 0 1
.REMOVE_INDENT
.ev
.nr #EPI_DEPTH \\n[#DIVER_DEPTH]-\\n[#EPI_LEAD]
.nr #EPI_LINES \\n[#EPI_DEPTH]/\\n[#EPI_LEAD]
.ie \\n[#START] \{\
.RLD \\n[#SHIM]u
.nr #EPI_WHITESPACE (\\n[#DOC_LEAD]*\\n[#EPI_LINES])-\\n[#EPI_DEPTH]
.while \\n[#EPI_WHITESPACE]>\\n[#DOC_LEAD] \{\
.nr #EPI_WHITESPACE -\\n[#DOC_LEAD]
.\}
.if \\n[#PRINT_STYLE]=1 \
.if !\\n[#SINGLE_SPACE]=1 .ALD \\n[#DOC_LEAD]u
.if \\n[#PRINT_STYLE]=2 \{\
.ie !\\n[#DOC_TYPE]=2 .RLD \\n[#DOC_LEAD]u
.el \{\
.ie '\\*[$CHAPTER_TITLE]'' .RLD \\n[#DOC_LEAD]u
.el .if '\\*[$CHAPTER]''   .RLD \\n[#DOC_LEAD]u
.\}
.if \\n[#EPI_WHITESPACE]<\\n[#DOC_LEAD] \
.ALD \\n[#EPI_LEAD_DIFF]u+(\\n[#EPI_WHITESPACE]u/2u)
.if \\n[#EPI_WHITESPACE]>\\n[#DOC_LEAD] \
.ALD \
\\n[#EPI_LEAD_DIFF]u+(\\n[#EPI_WHITESPACE]u/2u)-\\n[#DOC_LEAD]u
.\}
.\}
.el \{\
.ie \\n[#EPI_DEPTH]<\\n[#TRAP_DISTANCE] \{\
.nr #EPI_FITS 1
.nr #EPI_WHITESPACE (\\n[#DOC_LEAD]*\\n[#EPI_LINES])-\\n[#EPI_DEPTH]
.while \\n[#EPI_WHITESPACE]>\\n[#DOC_LEAD] \{\
.nr #EPI_WHITESPACE -\\n[#DOC_LEAD]
.\}
.ie \\n[#PRINT_STYLE]=1 \{\
.if \\n[#EPI_WHITESPACE]=\\n[#DOC_LEAD] \
.ALD \\n[#EPI_WHITESPACE]u/2u
.\}
.el \{\
.if \\n[#EPI_WHITESPACE]<\\n[#DOC_LEAD] \
.ALD \
\\n[#EPI_LEAD_DIFF]u+(\\n[#EPI_WHITESPACE]u/2u)
.if \\n[#EPI_WHITESPACE]>\\n[#DOC_LEAD] \
.ALD \
\\n[#EPI_LEAD_DIFF]u+(\\n[#EPI_WHITESPACE]u/2u)-\\n[#DOC_LEAD]u
.\}
.if \\n[#DIVER_FN]=2 .rr #DIVER_FN
.\}
.el \{\
.nr #EPI_LINES_TO_TRAP 0 1
.while \\n[#EPI_LEAD]*\\n+[#EPI_LINES_TO_TRAP]<\\n[#TRAP_DISTANCE] \{\
.nr #LOOP 1
.\}
.nr #EPI_LINES_TO_TRAP -1
.nr #EPI_WHITESPACE \
(\\n[#EPI_LINES_TO_TRAP]*\\n[#DOC_LEAD])-(\\n[#EPI_LINES_TO_TRAP]*\\n[#EPI_LEAD])
.while \\n[#EPI_WHITESPACE]>\\n[#DOC_LEAD] \{\
.nr #EPI_WHITESPACE -\\n[#DOC_LEAD]
.\}
.if \\n[#EPI_WHITESPACE]<\\n[#DOC_LEAD] \
.ALD \\n[#EPI_WHITESPACE]u
.if \\n[#EPI_WHITESPACE]>\\n[#DOC_LEAD] \
.ALD \\n[#EPI_WHITESPACE]u-\\n[#DOC_LEAD]u
.\}
.\}
.if \\n[#EPIGRAPH]=1 \{\
.po \\n[#L_MARGIN]u
.if \\n[#COLUMNS] \{\
.po \\n[#COL_\\n[#COL_NUM]_L_MARGIN]u
.nr #L_MARGIN \\n[.o]
.\}
.\}
.if \\n[#EPIGRAPH]=2 \{\
.ie \\n[#EPI_OFFSET_VALUE] \
.nr #EPI_OFFSET \
\\n[#L_MARGIN]+(\\n[#PP_INDENT]*\\n[#EPI_OFFSET_VALUE])
.el .nr #EPI_OFFSET \\n[#L_MARGIN]+\\*[$EPI_OFFSET_VALUE]
.if \\n[#COLUMNS] \{\
.ie r#EPI_OFFSET_VALUE \
.nr #EPI_OFFSET \
\\n[#COL_\\n[#COL_NUM]_L_MARGIN]+(\\n[#PP_INDENT]*\\n[#EPI_OFFSET_VALUE])
.el .nr #EPI_OFFSET \
\\n[#COL_\\n[#COL_NUM]_L_MARGIN]+\\*[$EPI_OFFSET_VALUE]
.\}
.po \\n[#EPI_OFFSET]u
.\}
.nf
.EPI_TEXT
.br
.ie \\n[#START] \{\
.if \\n[#PRINT_STYLE]=1 .SHIM
.if \\n[#PRINT_STYLE]=2 \{\
.if \\n[#EPI_WHITESPACE]<\\n[#DOC_LEAD] \
.ALD \\n[#EPI_WHITESPACE]u/2u
.if \\n[#EPI_WHITESPACE]>\\n[#DOC_LEAD] \
.ALD (\\n[#EPI_WHITESPACE]u/2u)-\\n[#DOC_LEAD]u
.SHIM
.\}
.\}
.el \{\
.rr #EPI_ACTIVE
.ie \\n[#EPI_FITS] \{\
.ie \\n[#FN_FOR_EPI] \{\
.nr #EPI_LINES_TO_END 1
.nr #EPI_WHITESPACE \
(\\n[#EPI_LINES_TO_END]*\\n[#DOC_LEAD])-(\\n[#EPI_LINES_TO_END]*\\n[#EPI_LEAD])
.while \\n[#EPI_WHITESPACE]>\\n[#DOC_LEAD] \{\
.nr #EPI_WHITESPACE -\\n[#DOC_LEAD]
.\}
.ALD \\n[#EPI_WHITESPACE]u-(\\n[#DOC_LEAD]u-\\n[#EPI_LEAD]u)
.\}
.el \{\
.ie \\n[#PRINT_STYLE]=1 \{\
.if \\n[#EPI_WHITESPACE]=\\n[#DOC_LEAD] \
.ALD \\n[#EPI_WHITESPACE]u
.\}
.el \{\
.if \\n[#EPI_WHITESPACE]<\\n[#DOC_LEAD] \
.ALD \\n[#EPI_WHITESPACE]u/2u
.if \\n[#EPI_WHITESPACE]>\\n[#DOC_LEAD] \
.ALD (\\n[#EPI_WHITESPACE]u/2u)-\\n[#DOC_LEAD]u
.\}
.\}
.\}
.el \{\
.nr #EPI_LINES_TO_END \\n[#EPI_LINES]-\\n[#EPI_LINES_TO_TRAP]
.if \\n[#LOOP] .nr #EPI_LINES_TO_END +1
.rr #LOOP
.nr #EPI_WHITESPACE \
(\\n[#EPI_LINES_TO_END]*\\n[#DOC_LEAD])-(\\n[#EPI_LINES_TO_END]*\\n[#EPI_LEAD])
.while \\n[#EPI_WHITESPACE]>\\n[#DOC_LEAD] \{\
.nr #EPI_WHITESPACE -\\n[#DOC_LEAD]
.\}
.ALD \\n[#EPI_WHITESPACE]u-(\\n[#DOC_LEAD]u-\\n[#EPI_LEAD]u)
.if \\n[#PRINT_STYLE]=1 \{\
.if !\\n[#SINGLE_SPACE] \{\
.nr #EPI_LINES_EVEN \\n[#EPI_LINES_TO_END]%2
.ie \\n[#EPI_LINES_EVEN] .ALD .5v
.el .RLD .5v
.rr #EPI_LINES_EVEN
.\}
.\}
.\}
.\}
.nr #PP_STYLE 1
.rr #EPI_FITS
.ALD \\n[#DOC_LEAD]u
.QUAD \\*[$DOC_QUAD]
.po \\n[#L_MARGIN]u
.if \\n[#COLUMNS] \{\
.po \\n[#COL_\\n[#COL_NUM]_L_MARGIN]u
.nr #L_MARGIN \\n[.o]
.\}
.if \\n[#START] \{\
.if \\n[#COLUMNS] \{\
.po \\n[#COL_\\n[#COL_NUM]_L_MARGIN]u
.nr #L_MARGIN \\n[.o]
.mk dc
.\}
.\}
.if \\n[#LINENUMBERS]=2 \{\
.NUMBER_LINES RESUME
.nr #LINENUMBERS 1
.\}
.END
.MAC FINIS END
.if !\\n[@TOP] \{\
.if \\n[.t]<=2v \{\
.tm1 "[mom]: '\\n[.F]': Insufficient room to print \\$0 on last page.
.return
.\}
.\}
.br
.ev FINIS
.evc 0
.if \\n[#TAB_ACTIVE] .TQ
.if \\n[#INDENT_ACTIVE] .IQ CLEAR
.nr #EM_ADJUST (1m/8)
.if \\n[#COLUMNS] \{\
.po \\n[#COL_\\n[#COL_NUM]_L_MARGIN]u
.nr #L_MARGIN \\n[.o]
.\}
.ALD \\n[#DOC_LEAD]u
.CENTER
.if \\n[#FINIS_STRING_CAPS]=1 .CAPS
.if \\n[#PRINT_STYLE]=1 .PRINT "--\\*[$FINIS_STRING]--
.if \\n[#PRINT_STYLE]=2 \{\
.ie \\n[#FINIS_COLOR] \
.PRINT \
\m[\\*[$FINIS_COLOR]]\v'-\\n[#EM_ADJUST]u'\[em]\v'+\\n[#EM_ADJUST]u'\
\\*[$FINIS_STRING]\v'-\\n[#EM_ADJUST]u'\*[FU1]\[em]\m[]\c
.el .PRINT \
\v'-\\n[#EM_ADJUST]u'\[em]\v'+\\n[#EM_ADJUST]u'\
\\*[$FINIS_STRING]\v'-\\n[#EM_ADJUST]u'\*[FU1]\[em]\m[]\c
.\}
.EL
.if \\n[#FINIS_STRING_CAPS]=1 .CAPS OFF
.ev
.pdfsync
.END
.ds PAGE# \En[#PAGENUMBER]
.MAC RESTORE_SPACE END
.vpt 0
.rs
.nop \&
.sp -1
.ch RR_@TOP
.rr @TOP
.vpt
.END
.MAC HDRFTR_RULE_GAP END
.nr #HDRFTR_RULE_GAP (\\$1)
.if '\\$0'HEADER_RULE_GAP' \{\
.nr #HEADER_RULE_GAP \\n[#HDRFTR_RULE_GAP]
.if r #FOOTER_RULE_GAP .nr #FOOTER_RULE_GAP \\n[#FOOTER_RULE_GAP]
.\}
.if '\\$0'FOOTER_RULE_GAP' \{\
.nr #FOOTER_RULE_GAP \\n[#HDRFTR_RULE_GAP]
.if r #HEADER_RULE_GAP .nr #HEADER_RULE_GAP \\n[#HEADER_RULE_GAP]
.\}
.END
.MAC HDRFTR_LEFT END
.nr #USER_DEF_HDRFTR_LEFT 1
.ds $HDRFTR_LEFT \\$1
.END
.MAC HDRFTR_LEFT_CAPS END
.ie '\\$1'' .nr #HDRFTR_LEFT_CAPS 1
.el \{\
.nr #HDRFTR_LEFT_CAPS 0
.ds $HDRFTR_LEFT_SIZE_CHANGE +0
.\}
.END
.MAC HDRFTR_CENTER END
.nr #USER_DEF_HDRFTR_CENTER 1
.if '\\$0'FOOTER_CENTER' \{\
.ds $HDRFTR_CENTER_OLD \\*[$HDRFTR_CENTER]
.ds $HDRFTR_CENTER_NEW \\$1
.\}
.if '\\$0'FOOTER_CENTRE' \{\
.ds $HDRFTR_CENTER_OLD \\*[$HDRFTR_CENTER]
.ds $HDRFTR_CENTER_NEW \\$1
.\}
.ds $HDRFTR_CENTER \\$1
.END
.MAC HDRFTR_CENTER_CAPS END
.ie '\\$1'' .nr #HDRFTR_CENTER_CAPS 1
.el \{\
.nr #HDRFTR_CENTER_CAPS 0
.ds $HDRFTR_CENTER_SIZE_CHANGE +0
.\}
.END
.MAC HDRFTR_CENTER_PAD END
.if '\\$1'LEFT'  .nr #HDRFTR_CTR_PAD_LEFT (\\$2)
.if '\\$1'RIGHT' .nr #HDRFTR_CTR_PAD_RIGHT (\\$2)
.END
.MAC SWITCH_HDRFTR_CENTER_PAD END
.nr #HDRFTR_CTR_PAD_TMP  \\n[#HDRFTR_CTR_PAD_LEFT]
.HDRFTR_CENTER_PAD LEFT  \\n[#HDRFTR_CTR_PAD_RIGHT]u
.HDRFTR_CENTER_PAD RIGHT \\n[#HDRFTR_CTR_PAD_TMP]u
.END
.MAC HDRFTR_RIGHT END
.nr #USER_DEF_HDRFTR_RIGHT 1
.ds $HDRFTR_RIGHT \\$1
.END
.MAC HDRFTR_RIGHT_CAPS END
.ie '\\$1'' .nr #HDRFTR_RIGHT_CAPS 1
.el \{\
.nr #HDRFTR_RIGHT_CAPS 0
.ds $HDRFTR_RIGHT_SIZE_CHANGE +0
.\}
.END
.MAC HDRFTR_RULE END
.if r #HEADERS_ON \
.if \\n[#HEADERS_ON]=1 .nr #HDRFTR_RULE_GAP \\n[#HEADER_RULE_GAP]
.if r #FOOTERS_ON \
.if \\n[#FOOTERS_ON]=1 .nr #HDRFTR_RULE_GAP \\n[#FOOTER_RULE_GAP]
.if '\\$0'HDRFTR_RULE_INTERNAL' \{\
.ie \\n[#USERDEF_HDRFTR] \{\
.nr #CAP_HEIGHT_ADJUST \\n[#HDRFTR_HEIGHT]
.if \\n[#HEADERS_ON] \{\
.rt \\n[y]u
.ALD \\n[#HDRFTR_RULE_GAP]u
.nr #HDRFTR_RULE_WEIGHT \\n[#HEADER_RULE_WEIGHT]
.nr #HDRFTR_RULE_WEIGHT_ADJ \\n[#HEADER_RULE_WEIGHT_ADJ]
.\}
.if \\n[#FOOTERS_ON] \{\
.rt \\n[y]u
.RLD \
\\n[#HDRFTR_RULE_GAP]u+\\n[#CAP_HEIGHT_ADJUST]u+\\n[#FOOTER_RULE_WEIGHT]u
.nr #HDRFTR_RULE_WEIGHT \\n[#FOOTER_RULE_WEIGHT]
.nr #HDRFTR_RULE_WEIGHT_ADJ \\n[#FOOTER_RULE_WEIGHT_ADJ]
.\}
.ie \\n[#HDRFTR_RULE_COLOR]=1 \{\
\m[\\*[$HDRFTR_RULE_COLOR]]\
\D't \\n[#HDRFTR_RULE_WEIGHT]u'\
\h'|0'\
\v'+\\n[#HDRFTR_RULE_WEIGHT_ADJ]u'\
\D'l \\n[#DOC_L_LENGTH]u 0'\
\D't \\n[#RULE_WEIGHT]u'\
\h'-\\n[#RULE_WEIGHT]u'\
\m[]
.\}
.el \{\
\D't \\n[#HDRFTR_RULE_WEIGHT]u'\
\h'|0'\
\v'+\\n[#HDRFTR_RULE_WEIGHT_ADJ]u'\
\D'l \\n[#DOC_L_LENGTH]u 0'\
\D't \\n[#RULE_WEIGHT]u'\
\h'-\\n[#RULE_WEIGHT]u'
.\}
.br
.\}
.el \{\
.if \\n[#PRINT_STYLE]=1 .nr #CAP_HEIGHT_ADJUST \\n[#CAP_HEIGHT]
.if \\n[#PRINT_STYLE]=2 \{\
.ie \\n[#LEFT_CAP_HEIGHT]>\\n[#CENTER_CAP_HEIGHT] \
.nr #CAP_HEIGHT_ADJUST \\n[#LEFT_CAP_HEIGHT]
.el .nr #CAP_HEIGHT_ADJUST \\n[#CENTER_CAP_HEIGHT]
.ie \\n[#CAP_HEIGHT_ADJUST]>\\n[#RIGHT_CAP_HEIGHT] \
.nr #CAP_HEIGHT_ADJUST \\n[#CAP_HEIGHT_ADJUST]
.el .nr #CAP_HEIGHT_ADJUST \\n[#RIGHT_CAP_HEIGHT]
.\}
.if \\n[#HEADERS_ON] \{\
.rt \\n[y]u
.ALD \\n[#HDRFTR_RULE_GAP]u
.nr #HDRFTR_RULE_WEIGHT \\n[#HEADER_RULE_WEIGHT]
.nr #HDRFTR_RULE_WEIGHT_ADJ \\n[#HEADER_RULE_WEIGHT_ADJ]
.\}
.if \\n[#FOOTERS_ON] \{\
.rt \\n[y]u
.RLD \
\\n[#HDRFTR_RULE_GAP]u+\\n[#CAP_HEIGHT_ADJUST]u+\\n[#FOOTER_RULE_WEIGHT]u
.nr #HDRFTR_RULE_WEIGHT \\n[#FOOTER_RULE_WEIGHT]
.nr #HDRFTR_RULE_WEIGHT_ADJ \\n[#FOOTER_RULE_WEIGHT_ADJ]
.\}
.ie \\n[#HDRFTR_RULE_COLOR]=1 \{\
\m[\\*[$HDRFTR_RULE_COLOR]]\
\D't \\n[#HDRFTR_RULE_WEIGHT]u'\
\h'|0'\
\v'+\\n[#HDRFTR_RULE_WEIGHT_ADJ]u'\
\D'l \\n[#DOC_L_LENGTH]u 0'\
\D't \\n[#RULE_WEIGHT]u'\
\h'-\\n[#RULE_WEIGHT]u'\
\m[]
.\}
.el \{\
\D't \\n[#HDRFTR_RULE_WEIGHT]u'\
\h'|0'\
\v'+\\n[#HDRFTR_RULE_WEIGHT_ADJ]u'\
\D'l \\n[#DOC_L_LENGTH]u 0'\
\D't \\n[#RULE_WEIGHT]u'\
\h'-\\n[#RULE_WEIGHT]u'
.\}
.br
.\}
.\}
.if '\\$0'HEADER_RULE' \{\
.ie '\\$1'' \{\
.nr #HEADER_RULE 1
.nr #HDRFTR_RULE 1
.\}
.el \{\
.nr #HEADER_RULE 0
.nr #HDRFTR_RULE 0
.\}
.\}
.if '\\$0'FOOTER_RULE' \{\
.ie '\\$1'' \{\
.nr #FOOTER_RULE 1
.nr #HDRFTR_RULE 1
.\}
.el \{\
.nr #FOOTER_RULE 0
.nr #HDRFTR_RULE 0
.\}
.\}
.if '\\$0'HDRFTR_RULE' \{\
.ie '\\$1'' .nr #HDRFTR_RULE 1
.el .nr #HDRFTR_RULE 0
.\}
.END
.ALIAS HDRFTR_RULE_INTERNAL HDRFTR_RULE
.MAC HDRFTR_PLAIN END
.HDRFTR_FAMILY        \\*[$DOC_FAM]
.HDRFTR_PT_SIZE       \\n[#DOC_PT_SIZE]
.HDRFTR_LEFT_FAMILY   \\*[$DOC_FAM]
.HDRFTR_LEFT_FONT     R
.HDRFTR_LEFT_SIZE     +0
.HDRFTR_LEFT_CAPS     OFF
.HDRFTR_CENTER_FAMILY \\*[$DOC_FAM]
.HDRFTR_CENTER_FONT   R
.HDRFTR_CENTER_SIZE   +0
.HDRFTR_CENTER_CAPS   OFF
.HDRFTR_RIGHT_FAMILY  \\*[$DOC_FAM]
.HDRFTR_RIGHT_FONT    R
.HDRFTR_RIGHT_SIZE    +0
.HDRFTR_RIGHT_CAPS    OFF
.END
.MAC SWITCH_HDRFTR END
.ie '\\$1'' .nr #SWITCH_HDRFTR 1
.el .nr #SWITCH_HDRFTR 0
.END
.MAC HDRFTR_RECTO END
.nr #USERDEF_HDRFTR 1
.if '\\$1'L'      .nr #USERDEF_HDRFTR_RECTO_QUAD 1
.if '\\$1'LEFT'   .nr #USERDEF_HDRFTR_RECTO_QUAD 1
.if '\\$1'C'      .nr #USERDEF_HDRFTR_RECTO_QUAD 2
.if '\\$1'CENTER' .nr #USERDEF_HDRFTR_RECTO_QUAD 2
.if '\\$1'CENTRE' .nr #USERDEF_HDRFTR_RECTO_QUAD 2
.if '\\$1'R'      .nr #USERDEF_HDRFTR_RECTO_QUAD 3
.if '\\$1'RIGHT'  .nr #USERDEF_HDRFTR_RECTO_QUAD 3
.shift
.ie '\\$1'CAPS' \{\
.nr #HDRFTR_RECTO_CAPS 1
.ds $USERDEF_HDRFTR_RECTO \\$2
.\}
.el .ds $USERDEF_HDRFTR_RECTO \\$1
.END
.MAC HDRFTR_VERSO END
.nr #USERDEF_HDRFTR 1
.if '\\$1'L'      .nr #USERDEF_HDRFTR_VERSO_QUAD 1
.if '\\$1'LEFT'   .nr #USERDEF_HDRFTR_VERSO_QUAD 1
.if '\\$1'C'      .nr #USERDEF_HDRFTR_VERSO_QUAD 2
.if '\\$1'CENTER' .nr #USERDEF_HDRFTR_VERSO_QUAD 2
.if '\\$1'CENTRE' .nr #USERDEF_HDRFTR_VERSO_QUAD 2
.if '\\$1'R'      .nr #USERDEF_HDRFTR_VERSO_QUAD 3
.if '\\$1'RIGHT'  .nr #USERDEF_HDRFTR_VERSO_QUAD 3
.shift
.ie '\\$1'CAPS' \{\
.nr #HDRFTR_VERSO_CAPS 1
.ds $USERDEF_HDRFTR_VERSO \\$2
.\}
.el .ds $USERDEF_HDRFTR_VERSO \\$1
.END
.MAC FOOTER_ON_FIRST_PAGE END
.ie '\\$1'' .nr #PRINT_FOOTER_ON_PAGE_1 1
.el .rr #PRINT_FOOTER_ON_PAGE_1
.END
.MAC PAGENUM_ON_FIRST_PAGE END
.ie '\\$1'' .nr #PRINT_PAGENUM_ON_PAGE_1 1
.el .rr #PRINT_PAGENUM_ON_PAGE_1
.END
.MAC PRINT_HDRFTR END
.if \\n[#DOC_TYPE]=4 .nr #SUITE \En[.pn]
.if \\n[#FOOTERS_ON] \{\
.if \\n[#START_FOR_FOOTERS] \{\
.rr #START_FOR_FOOTERS
.if !\\n[#PRINT_FOOTER_ON_PAGE_1] \{\
.ie !\\n[#HDRFTR_BOTH] .return
.el \{\
.rr #FOOTERS_ON
.nr #HEADERS_ON 1
.ie \\n[#HEADER_RULE]=1 .HEADER_RULE
.el .HEADER_RULE OFF
.ie \\n[#HDRFTR_BOTH] .HEADER_VERSO \\*[$HDR_VERSO_QUAD] "\\*[$HDR_VERSO_STRING]"
.el .HEADER_RECTO \\*[$HDR_RECTO_QUAD] "\\*[$HDR_RECTO_STRING]"
.return
.\}
.\}
.\}
.\}
.if \\n[#USERDEF_HDRFTR] \{\
.PRINT_USERDEF_HDRFTR
.return
.\}
.if \\n[#SWITCH_HDRFTR] \{\
.ds $HDRFTR_TMP_SWITCH             \\*[$HDRFTR_LEFT]
.ds $HDRFTR_LEFT                   \\*[$HDRFTR_RIGHT]
.ds $HDRFTR_RIGHT                  \\*[$HDRFTR_TMP_SWITCH]
.ds $HDRFTR_TMP_SIZE_CHANGE_SWITCH \\*[$HDRFTR_LEFT_SIZE_CHANGE]
.ds $HDRFTR_LEFT_SIZE_CHANGE       \\*[$HDRFTR_RIGHT_SIZE_CHANGE]
.ds $HDRFTR_RIGHT_SIZE_CHANGE      \\*[$HDRFTR_TMP_SIZE_CHANGE_SWITCH]
.nr #HDRFTR_TMP_CAPS_SWITCH        \\n[#HDRFTR_LEFT_CAPS]
.nr #HDRFTR_LEFT_CAPS              \\n[#HDRFTR_RIGHT_CAPS]
.nr #HDRFTR_RIGHT_CAPS             \\n[#HDRFTR_TMP_CAPS_SWITCH]
.ds $HDRFTR_TMP_COLOR_SWITCH       \\*[$HDRFTR_LEFT_COLOR]
.ds $HDRFTR_LEFT_COLOR             \\*[$HDRFTR_RIGHT_COLOR]
.ds $HDRFTR_RIGHT_COLOR            \\*[$HDRFTR_TMP_COLOR_SWITCH]
.rr #HDRFTR_TMP_CAPS_SWITCH
.rm $HDRFTR_TMP_SWITCH
.rm $HDRFTR_TMP_SIZE_CHANGE_SWITCH
.rm $HDRFTR_TMP_COLOR_SWITCH
.nr #SWITCH_HDRFTR 0
.\}
.nr #PAGENUMBER \\n%+\\n[#PAGE_NUM_ADJ]
.if \\n[#ENDNOTES] .PAGENUM_STYLE \\*[$EN_PN_STYLE]
.if \\n[#PRINT_STYLE]=1 \{\
.if \\n[#FOOTERS_ON] \{\
.di NULL
.SIZESPECS
.nr #LEFT_CAP_HEIGHT \\n[#CAP_HEIGHT]
.di
.\}
.if o .RIGHT
.if e .LEFT
.if \\n[#RECTO_VERSO]=0    .LEFT
.if \\n[#HDRFTR_LEFT_CAPS] .CAPS
.ie '\\*[$HDRFTR_LEFT]'#' .PRINT \\n[#PAGENUMBER]
.el \{\
.ie !'\\*[$HDRFTR_LEFT]'' .PRINT \\*[$HDRFTR_LEFT]
.el .PRINT \&
.\}
.if \\n[#HDRFTR_LEFT_CAPS]   .CAPS OFF
.CENTER
.if \\n[#HDRFTR_CENTER_CAPS] .CAPS
.rt \\n[y]u
.ie '\\*[$HDRFTR_CENTER]'#' .PRINT \
\h'\\n[#HDRFTR_CTR_PAD_LEFT]u'\\n[#PAGENUMBER]\h'\\n[#HDRFTR_CTR_PAD_RIGHT]u'
.el \{\
.ie !'\\*[$HDRFTR_CENTER]'' .PRINT \
\h'\\n[#HDRFTR_CTR_PAD_LEFT]u'\\*[$HDRFTR_CENTER]\h'\\n[#HDRFTR_CTR_PAD_RIGHT]u'
.el .PRINT \&
.\}
.if \\n[#HDRFTR_CENTER_CAPS] .CAPS OFF
.if o .LEFT
.if e .RIGHT
.if \\n[#RECTO_VERSO]=0     .RIGHT
.if \\n[#HDRFTR_RIGHT_CAPS] .CAPS
.rt \\n[y]u
.ie '\\*[$HDRFTR_RIGHT]'#' .PRINT \\n[#PAGENUMBER]
.el \{\
.ie !'\\*[$HDRFTR_RIGHT]'' .PRINT \\*[$HDRFTR_RIGHT]
.el .PRINT \&
.\}
.if \\n[#HDRFTR_RIGHT_CAPS] .CAPS OFF
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.if \\n[#HDRFTR_COLOR]=1 \{\
.nf
\m[\\*[$HDRFTR_COLOR]]
.\}
.fam \\*[$HDRFTR_LEFT_FAM]
.ft  \\*[$HDRFTR_LEFT_FT]
.ps  \\n[#HDRFTR_PT_SIZE]u\\*[$HDRFTR_LEFT_SIZE_CHANGE]
.if \\n[#FOOTERS_ON] \{\
.di NULL
.SIZESPECS
.nr #LEFT_CAP_HEIGHT \\n[#CAP_HEIGHT]
.di
.\}
.if o .LEFT
.if e .RIGHT
.if \\n[#RECTO_VERSO]=0 .LEFT
.if \\n[#HDRFTR_LEFT_CAPS] .CAPS
.ie '\\*[$HDRFTR_LEFT]'#' \{\
.ie \\n[#HDRFTR_LEFT_COLOR]=1 \
.PRINT \m[\\*[$HDRFTR_LEFT_COLOR]]\\n[#PAGENUMBER]\m[]
.el \
.PRINT \\n[#PAGENUMBER]
.\}
.el \{\
.ie !'\\*[$HDRFTR_LEFT]'' \{\
.ie \\n[#HDRFTR_LEFT_COLOR]=1 \
.PRINT \m[\\*[$HDRFTR_LEFT_COLOR]]\\*[$HDRFTR_LEFT]\m[]
.el \
.PRINT \\*[$HDRFTR_LEFT]
.\}
.el .nop \&
.\}
.if \\n[#HDRFTR_LEFT_CAPS] .CAPS OFF
.fam     \\*[$HDRFTR_CENTER_FAM]
.ft      \\*[$HDRFTR_CENTER_FT]
.ps      \\n[#HDRFTR_PT_SIZE]u\\*[$HDRFTR_CENTER_SIZE_CHANGE]
.if \\n[#FOOTERS_ON] \{\
.di NULL
.SIZESPECS
.nr #CENTER_CAP_HEIGHT \\n[#CAP_HEIGHT]
.di
.\}
.CENTER
.if \\n[#HDRFTR_CENTER_CAPS] .CAPS
.rt \\n[y]u
.ie '\\*[$HDRFTR_CENTER]'#' \{\
.ie \\n[#HDRFTR_CENTER_COLOR]=1 .PRINT \
\h'\\n[#HDRFTR_CTR_PAD_LEFT]u'\m[\\*[$HDRFTR_CENTER_COLOR]]\
\\n[#PAGENUMBER]\h'\\n[#HDRFTR_CTR_PAD_RIGHT]u'\m[]
.el .PRINT \
\h'\\n[#HDRFTR_CTR_PAD_LEFT]u'\\n[#PAGENUMBER]\h'\\n[#HDRFTR_CTR_PAD_RIGHT]u'
.\}
.el \{\
.ie !'\\*[$HDRFTR_CENTER]'' \{\
.ie \\n[#HDRFTR_CENTER_COLOR]=1 .PRINT \
\h'\\n[#HDRFTR_CTR_PAD_LEFT]u'\m[\\*[$HDRFTR_CENTER_COLOR]]\
\\*[$HDRFTR_CENTER]\h'\\n[#HDRFTR_CTR_PAD_RIGHT]u'\m[]
.el .PRINT \
\h'\\n[#HDRFTR_CTR_PAD_LEFT]u'\\*[$HDRFTR_CENTER]\h'\\n[#HDRFTR_CTR_PAD_RIGHT]u'
.\}
.el .PRINT \&
.\}
.if \\n[#HDRFTR_CENTER_CAPS] .CAPS OFF
.fam \\*[$HDRFTR_RIGHT_FAM]
.ft  \\*[$HDRFTR_RIGHT_FT]
.ps  \\n[#HDRFTR_PT_SIZE]u\\*[$HDRFTR_RIGHT_SIZE_CHANGE]
.if \\n[#FOOTERS_ON] \{\
.di NULL
.SIZESPECS
.nr #RIGHT_CAP_HEIGHT \\n[#CAP_HEIGHT]
.di
.\}
.if o .RIGHT
.if e .LEFT
.if \\n[#RECTO_VERSO]=0 .RIGHT
.if \\n[#HDRFTR_RIGHT_CAPS] .CAPS
.rt \\n[y]u
.ie '\\*[$HDRFTR_RIGHT]'#' \{\
.ie \\n[#HDRFTR_RIGHT_COLOR]=1 \
.PRINT \m[\\*[$HDRFTR_RIGHT_COLOR]]\\n[#PAGENUMBER]\m[]
.el \
.PRINT \\n[#PAGENUMBER]
.\}
.el \{\
.ie !'\\*[$HDRFTR_RIGHT]'' \{\
.ie \\n[#HDRFTR_RIGHT_COLOR]=1 \
.PRINT \m[\\*[$HDRFTR_RIGHT_COLOR]]\\*[$HDRFTR_RIGHT]\m[]
.el \
.PRINT \\*[$HDRFTR_RIGHT]
.\}
.el .PRINT \&
.\}
.if \\n[#HDRFTR_RIGHT_CAPS] .CAPS OFF
.\}
.if \\n[#HDRFTR_RULE] .HDRFTR_RULE_INTERNAL
.br
.END
.MAC PRINT_USERDEF_HDRFTR END
.nr #PAGENUMBER \\n%+\\n[#PAGE_NUM_ADJ]
.fc ^ #
.if \\n[#PRINT_STYLE]=2 \{\
.fam \\*[$HDRFTR_FAM]
.ft  R
.ps \\n[#HDRFTR_PT_SIZE]u
.if \\n[#HDRFTR_COLOR]=1 \{\
.nf
.COLOR \\*[$HDRFTR_COLOR]
.\}
.\}
.ie \\n[#RECTO_VERSO] \{\
.if o \{\
.if \\n[#USERDEF_HDRFTR_RECTO_QUAD]=1 .LEFT
.if \\n[#USERDEF_HDRFTR_RECTO_QUAD]=2 .CENTER
.if \\n[#USERDEF_HDRFTR_RECTO_QUAD]=3 .RIGHT
.if \\n[#HDRFTR_RECTO_CAPS]=1 .CAPS
.if '\\n[.ev]'FOOTER' .vs 0
.PRINT \\*[$USERDEF_HDRFTR_RECTO]
.if '\\n[.ev]'FOOTER' .vs
.if \\n[#HDRFTR_RECTO_CAPS]=1 .CAPS OFF
.EOL
.if \\n[#FOOTERS_ON] \{\
.di NULL
.SIZESPECS
.nr #HDRFTR_HEIGHT \\n[#CAP_HEIGHT]
.di
.\}
.\}
.if e \{\
.ie !'\\*[$USERDEF_HDRFTR_VERSO]'' \{\
.if \\n[#USERDEF_HDRFTR_VERSO_QUAD]=1 .LEFT
.if \\n[#USERDEF_HDRFTR_VERSO_QUAD]=2 .CENTER
.if \\n[#USERDEF_HDRFTR_VERSO_QUAD]=3 .RIGHT
.if \\n[#HDRFTR_VERSO_CAPS]=1 .CAPS
.if '\\n[.ev]'FOOTER' .vs 0
.PRINT \\*[$USERDEF_HDRFTR_VERSO]
.if '\\n[.ev]'FOOTER' .vs
.if \\n[#HDRFTR_VERSO_CAPS]=1 .CAPS OFF
.EOL
.if \\n[#FOOTERS_ON] \{\
.di NULL
.SIZESPECS
.nr #HDRFTR_HEIGHT \\n[#CAP_HEIGHT]
.di
.\}
.\}
.el \{\
.if \\n[#USERDEF_HDRFTR_RECTO_QUAD]=1 .LEFT
.if \\n[#USERDEF_HDRFTR_RECTO_QUAD]=2 .CENTER
.if \\n[#USERDEF_HDRFTR_RECTO_QUAD]=3 .RIGHT
.if \\n[#HDRFTR_RECTO_CAPS]=1 .CAPS
.if '\\n[.ev]'FOOTER' .vs 0
.PRINT \\*[$USERDEF_HDRFTR_RECTO]
.if '\\n[.ev]'FOOTER' .vs
.if \\n[#HDRFTR_RECTO_CAPS]=1 .CAPS OFF
.EOL
.if \\n[#FOOTERS_ON] \{\
.di NULL
.SIZESPECS
.nr #HDRFTR_HEIGHT \\n[#CAP_HEIGHT]
.di
.\}
.\}
.\}
.\}
.el \{\
.if \\n[#USERDEF_HDRFTR_RECTO_QUAD]=1 .LEFT
.if \\n[#USERDEF_HDRFTR_RECTO_QUAD]=2 .CENTER
.if \\n[#USERDEF_HDRFTR_RECTO_QUAD]=3 .RIGHT
.if \\n[#HDRFTR_RECTO_CAPS]=1 .CAPS
.if '\\n[.ev]'FOOTER' .vs 0
.PRINT \\*[$USERDEF_HDRFTR_RECTO]
.if '\\n[.ev]'FOOTER' .vs
.if \\n[#HDRFTR_RECTO_CAPS]=1 .CAPS OFF
.EOL
.if \\n[#FOOTERS_ON] \{\
.di NULL
.SIZESPECS
.nr #HDRFTR_HEIGHT \\n[#CAP_HEIGHT]
.di
.\}
.\}
.fc
.if \\n[#PRINT_STYLE]=2 \{\
.ie \\n[#HDRFTR_COLOR]=1 \m[\\*[$HDRFTR_COLOR]]
.el \m[black]
.\}
.if \\n[#HDRFTR_RULE] \{\
.HDRFTR_RULE_INTERNAL
.\}
.END
.MAC HEADERS END
.ie '\\$1'' .nr #HEADERS_ON 1
.el .nr #HEADERS_ON 0
.END
.MAC HEADER_MARGIN END
.nr #HEADER_MARGIN (\\$1)
.END
.MAC HEADER_GAP END
.nr #HEADER_GAP (\\$1)
.END
.MAC HEADER END
.vpt 0
.if \\n[#NEW_DOC_PT_SIZE] .nr #DOC_PT_SIZE \\n[#NEW_DOC_PT_SIZE]
.rr #NEW_DOC_PT_SIZE
.if \\n[#RESET_TRAPS] \{\
.TRAPS
.if \\n[#REMOVE_ADJ] .nr #DOC_LEAD -\\n[#DOC_LEAD_ADJ]
.\}
.rr #REMOVE_ADJ
.rr #RESET_TRAPS
.MNtop
.rr #FROM_FOOTER
.nr #FROM_HEADER 1
.nr #LAST_FN_COUNT_FOR_COLS \\n[#FN_COUNT_FOR_COLS]
.if \\n[#FN_DEPTH] .PROCESS_FN_LEFTOVER
.rr #RULED
.if \\n[#RESET_FN_NUMBER] .nr #FN_NUMBER 0 1
.po \\n[#DOC_L_MARGIN]u
.if \\n[#RECTO_VERSO] \{\
.nr #DOC_LR_MARGIN_TMP \\n[#DOC_L_MARGIN]
.DOC_LEFT_MARGIN  \\n[#DOC_R_MARGIN]u
.if \\n[#CROPS] .DOC_LEFT_MARGIN  \\n[#DOC_R_MARGIN]u+\\n[cropmarks]u
.DOC_RIGHT_MARGIN \\n[#DOC_LR_MARGIN_TMP]u
.if \\n[#CROPS] .DOC_RIGHT_MARGIN \\n[#DOC_LR_MARGIN_TMP]u-\\n[cropmarks]u
.SWITCH_HDRFTR_CENTER_PAD
.\}
.\}
.ev HEADER
.if \\n[#PAGE_NUM_V_POS]=1 .vs 0
.sp |\\n[#HEADER_MARGIN]u-1v
.mk y
.ll \\n[#DOC_L_LENGTH]u
.ta \\n[.l]u
.if \\n[#PRINT_STYLE]=1 \{\
.fam \\*[$TYPEWRITER_FAM]
.ft  R
.ps  \\*[$TYPEWRITER_PS]\\*[$HDRFTR_SIZE_CHANGE]
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.fam \\*[$HDRFTR_FAM]
.ft  R
.ps  \\n[#DOC_PT_SIZE]u\\*[$HDRFTR_SIZE_CHANGE]
.\}
.nr #HDRFTR_PT_SIZE \\n[#PT_SIZE]
.if \\n[#CAPS_ON] \{\
.nr #CAPS_WAS_ON 1
.CAPS OFF
.\}
.if \\n[#PRINT_STYLE]=1 \{\
.if \\n[#ENDNOTES]=1 \{\
.if \\n[#EN_SINGLESPACE] \{\
.nr #RESTORE_DOC_LEAD \\n[#DOC_LEAD]
.nr #DOC_LEAD \\n[#EN_LEAD]u
.\}
.\}
.\}
.if !n .nop \X'ps: exec 0 setlinejoin'\X'ps: exec 0 setlinecap'
.sp -1v
.ie \\n[#HEADERS_ON] .PRINT_HDRFTR
.el \{\
.if \\n[#PAGE_NUM_V_POS]=1 \{\
.if \\n[#PAGINATE] .PRINT_PAGE_NUMBER
.\}
.\}
.sp |\\n[#T_MARGIN]u-\\n[#DOC_LEAD]u
.if \\n[#PRINT_STYLE]=1 \{\
.if \\n[#ENDNOTES]=1 \{\
.if \\n[#EN_SINGLESPACE] \{\
.nr #DOC_LEAD \\n[#RESTORE_DOC_LEAD]u
.rr #RESTORE_DOC_LEAD
.\}
.\}
.\}
.nr #PAGE_TOP \\n[nl]
.ev
.po \\n[#L_MARGIN]u
.if \\n[#RECTO_VERSO] .nr #L_MARGIN +\\n[#L_MARGIN_DIFF]
.if \\n[#CAPS_WAS_ON] \{\
.CAPS
.rr #CAPS_WAS_ON
.\}
.if \\n[#TAB_ACTIVE] .TAB \\n[#CURRENT_TAB]
.if \\n[#QUOTE] \{\
.ie \\n[#TAB_ACTIVE] .TAB \\n[#CURRENT_TAB]
.el \{\
.ie \\n[#Q_OFFSET_VALUE] .nr #Q_OFFSET \
\\n[#L_MARGIN]+(\\n[#PP_INDENT]*\\n[#Q_OFFSET_VALUE])
.el .nr #Q_OFFSET \\n[#L_MARGIN]+\\*[$Q_OFFSET_VALUE]
.po \\n[#Q_OFFSET]u
.\}
.if \\n[#PRINT_STYLE]=2 .sp \\n[#Q_LEAD_DIFF]u
.\}
.if \\n[#EPIGRAPH] \{\
.ie \\n[#TAB_ACTIVE] .TAB \\n[#CURRENT_TAB]
.el \{\
.ie r#EPI_OFFSET_VALUE \
.nr #EPI_OFFSET \
\\n[#L_MARGIN]+(\\n[#PP_INDENT]*\\n[#EPI_OFFSET_VALUE])
.el \
.nr #EPI_OFFSET \\n[#L_MARGIN]+\\*[$EPI_OFFSET_VALUE]
.po \\n[#EPI_OFFSET]u
.\}
.\}
.ie \\n[#EPIGRAPH] \{\
.ie !\\n[#EPI_ACTIVE] \{\
.ns
.rr #EPI_ACTIVE
.\}
.el \{\
.ie \\n[#EPI_FITS] .ns
.el .sp \\n[#DOC_LEAD]u-\\n[#EPI_LEAD]u
.\}
.\}
.el .ns
.if \\n[#COLUMNS] \{\
.nr #FN_COUNT_FOR_COLS 0 1
.nr #L_MARGIN \\n[#DOC_L_MARGIN]
.if \\n[#RECTO_VERSO] .COLUMNS \\n[#NUM_COLS] \\n[#GUTTER]u
.nr #COL_NUM 0 1
.mk dc
.po \\n[#COL_\\n+[#COL_NUM]_L_MARGIN]u
.nr #L_MARGIN \\n[.o]
.if \\n[#TAB_ACTIVE] .TAB \\n[#CURRENT_TAB]
.ll \\n[#COL_L_LENGTH]u
.ta \\n[.l]u
.if \\n[#QUOTE] \{\
.ie \\n[#Q_OFFSET_VALUE] \
.po +(\\n[#PP_INDENT]u*\\n[#Q_OFFSET_VALUE]u)
.el \
.po +\\*[$Q_OFFSET_VALUE]
.\}
.if \\n[#EPIGRAPH] \{\
.if \\n[#EPI_ACTIVE] \{\
.ie \\n[#EPI_FITS] .
.el .nr dc -\\n[#EPI_LEAD_DIFF]
.\}
.ie r#EPI_OFFSET_VALUE \{\
.po \
\\n[#COL_\\n[#COL_NUM]_L_MARGIN]u+(\\n[#PP_INDENT]u*\\n[#EPI_OFFSET_VALUE]u)
.\}
.el .po \\n[#COL_\\n[#COL_NUM]_L_MARGIN]u+\\*[$EPI_OFFSET_VALUE]
.\}
.\}
.if \\n[#RESET_FN_COUNTERS]=1 \{\
.rr #RESET_FN_COUNTERS
.PROCESS_FN_IN_DIVER
.nr #FN_COUNT \\n[#SAVED_FN_COUNT] 1
.if \\n[#COLUMNS]=1 .nr #FN_COUNT_FOR_COLS \\n[#SAVED_FN_COUNT_FOR_COLS] 1
.ie \\n[#RESET_FN_NUMBER]=1 .nr #FN_NUMBER \\n[#SAVED_FN_NUMBER] 1
.el .nr #FN_NUMBER \\n[#FN_NUMBER] 1
.rm FN_IN_DIVER
.if dRUNON_FN_IN_DIVER .rm RUNON_FN_IN_DIVER
.\}
.rr #FROM_HEADER
.rr #DEFER_SPACE_ADDED
.if !\\n[#FN_DEPTH] .if r #DIVERTED .rr #DIVERTED
.if \\n[#MN_OVERFLOW_LEFT]=1 \{\
.MN LEFT
.nf
.MN_OVERFLOW_LEFT
.MN
.\}
.if \\n[#MN_OVERFLOW_RIGHT]=1 \{\
.MN RIGHT
.nf
.MN_OVERFLOW_RIGHT
.MN
.\}
.rm MN_OVERFLOW_LEFT
.rr #MN_OVERFLOW_LEFT
.rr #no-repeat-MN-left
.rm MN_OVERFLOW_RIGHT
.rr #MN_OVERFLOW_RIGHT
.rr #no-repeat-MN-right
.if \\n[#PRE_COLLATE]=1 .rr #PRE_COLLATE
.if \\n[#UNDERLINE_WAS_ON]=1 \{\
.vs 0
.ie !n \
.nop \R'#UNDERLINE_ON 1'\X'ps: exec \\n[_w] \\n[_d] decorline'
.el .ul 1000
.br
.ns
.rr #UNDERLINE_WAS_ON
.\}
.if \\n[#RESTORE_PAGINATION] \{\
.PAGINATE
.rr #RESTORE_PAGINATION
.\}
.ch RR_@TOP
.ie \\n[tbl*have-header] .rr @TOP
.el .wh \\n[nl]u+1u RR_@TOP
.ie \\n[defer] .PROCESS_FLOATS
.el \{\
.if \\n[tbl*have-caption] \{\
.RESTORE_SPACE
.ie \\n[#MLA] .sp \n[tbl*label-lead-diff]u
.el .sp \n[tbl*caption-lead-diff]u
.\}
.\}
.ie \\n[tbl*no-header] \{\
.rs
.nop \&
.vpt
.rr \\n[tbl*no-header]
.SHIM
.\}
.el .vpt
.if \\n[#NEWPAGE] .rr #NEWPAGE
.ie \\n[tbl*interrupted] \{\
.tbl*print-header
.rr tbl*interrupted
.\}
.el .tbl@top-hook
.END
.MAC FOOTERS END
.ie '\\$1'' \{\
.rr #HEADERS_ON
.nr #FOOTERS_ON 1
.PAGENUM_POS TOP CENTER
.\}
.el .nr #FOOTERS_ON 0
.END
.MAC FOOTER_MARGIN END
.ie \\n%>0 .nr #FOOTER_MARGIN (\\$1)
.el .
.END
.MAC FOOTER_GAP END
.ie \\n%>0 .nr #FOOTER_GAP (\\$1)
.el .
.END
.MAC FOOTER END
.vpt 0
.rr #LB_4_HD
.rr #QUOTE_4_HD
.nr #SAVED_LEAD \\n[.v]
.ev PAGE_TRANSITION
.pdfmarksuspend
.ie !n .nop \X'ps: exec decornone'
.el .ul 0
.br
.if \\n[#UNDERLINE_ON]=1 .nr #UNDERLINE_WAS_ON 1
.if \\n[MN-left]>0 \{\
.if !\\n[#no-repeat-MN-left]=1 \{\
.MNbottom-left
.nr #no-repeat-MN-left 1
.\}
.if '\\n[.z]'MN_OVERFLOW_LEFT' \{\
.di
.nr #MN_OVERFLOW_LEFT 1
.rr #OVERFLOW_LEFT
.\}
.\}
.if \\n[MN-right]>0 \{\
.if (\\n[MN-right] > 0) \
.if !\\n[#no-repeat-MN-right]=1 .MNbottom-right
.if '\\n[.z]'MN_OVERFLOW_RIGHT' \{\
.di
.nr #MN_OVERFLOW_RIGHT 1
.rr #OVERFLOW_RIGHT
.\}
.\}
.tbl@bottom-hook
.ch MN_OVERFLOW_TRAP
.nr #L_MARGIN_DIFF \\n[#L_MARGIN]-\\n[#DOC_L_MARGIN]
.if !\\n[#FN_DEFER] \{\
.nr #DIVER_DEPTH 0
.if \\n[#FN_DEPTH] \{\
.if \\n[#DIVERTED]=3 .nr #FN_DEPTH +\\n[#VFP_DIFF]
.vpt 0
.sp \
|\\n[#PAGE_LENGTH]u-(\\n[#B_MARGIN]u+\\n[#FN_DEPTH]u-\\n[#DOC_LEAD]u)
.vpt 1
.po \\n[#DOC_L_MARGIN]u
.if \\n[#COLUMNS] \{\
.po \\n[#COL_\\n[#COL_NUM]_L_MARGIN]u
.nr #L_MARGIN \\n[.o]
.nr #FROM_FOOTER 1
.\}
.nf
.FOOTNOTES
.rm FOOTNOTES
.if d RUNON_FOOTNOTES    .rm RUNON_FOOTNOTES
.if \\n[#PRINT_STYLE]=1 .vs \\n[#SAVED_LEAD]u
.if \\n[#PRINT_STYLE]=2 .LS \\n[#SAVED_LEAD]u
.if '\\n[.z]'FN_OVERFLOW' \{\
.di
.nr #FN_OVERFLOW_DEPTH \\n[#DIVER_DEPTH]
.\}
.nr #FN_COUNT_AT_FOOTER \\n[#FN_COUNT]
.nr #FN_COUNT 0
.if \\n[#COL_NEXT] \{\
.ie !\\n[#COL_NUM]=\\n[#NUM_COLS] .nr #COL_NUM \\n-[#COL_NUM]
.el .nr #COL_NUM \\n[#NUM_COLS] 1
.\}
.\}
.rr #DIVERTED
.\}
.nr @TOP 1
.ie \\n[#COLUMNS]=1 \{\
.ie \\n[#COL_NUM]=\\n[#NUM_COLS] .DO_FOOTER
.el \{\
.ie (\\n[#ENDNOTES]=1):(\\n[#BIBLIOGRAPHY]=1) \{\
.if \\n[#ENDNOTES] .sp |\\n[ec]u-\\n[#EN_LEAD]u
.if \\n[#BIBLIOGRAPHY] .sp |\\n[bc]u-\\n[#BIB_LEAD]u
.\}
.el \{\
.vs \\n[#SAVED_LEAD]u
.sp |\\n[dc]u
.\}
.po \\n[#COL_\\n+[#COL_NUM]_L_MARGIN]u
.nr #L_MARGIN \\n[.o]
.if \\n[#FN_DEPTH] .PROCESS_FN_LEFTOVER
.vs \\n[#SAVED_LEAD]u
.if \\n[#PREV_FN_DEFERRED] .nr #PREV_FN_DEFERRED 2
.rr #RULED
.if !\\n[#EPIGRAPH] .rr #COL_NEXT
.if !\\n[#QUOTE] .rr #COL_NEXT
.if \\n[#RESET_FN_COUNTERS]=1 \{\
.rr #RESET_FN_COUNTERS
.PROCESS_FN_IN_DIVER
.LS \\n[#SAVED_LEAD]u
.nr #FN_COUNT \\n[#FN_COUNT] 1
.nr #FN_COUNT_FOR_COLS \\n[#FN_COUNT_FOR_COLS] 1
.rm FN_IN_DIVER
.if dRUNON_FN_IN_DIVER .rm RUNON_FN_IN_DIVER
.\}
.rr #DEFER_SPACE_ADDED
.if \\n[#TAB_ACTIVE] .TAB \\n[#CURRENT_TAB]
.if \\n[#QUOTE] \{\
.ie \\n[#TAB_ACTIVE] .TAB \\n[#CURRENT_TAB]
.el \{\
.ie \\n[#Q_OFFSET_VALUE] \
.nr #Q_OFFSET \
\\n[#L_MARGIN]+(\\n[#PP_INDENT]*\\n[#Q_OFFSET_VALUE])
.el \
.nr #Q_OFFSET \\n[#L_MARGIN]+\\*[$Q_OFFSET_VALUE]
.if \\n[#COLUMNS] \{\
.ie \\n[#Q_OFFSET_VALUE] .nr #Q_OFFSET \
\\n[#COL_\\n[#COL_NUM]_L_MARGIN]+(\\n[#PP_INDENT]*\\n[#Q_OFFSET_VALUE])
.el .nr #Q_OFFSET \
\\n[#COL_\\n[#COL_NUM]_L_MARGIN]+\\*[$Q_OFFSET_VALUE]
.\}
.po \\n[#Q_OFFSET]u
.\}
.\}
.if \\n[#EPIGRAPH] \{\
.ie \\n[#TAB_ACTIVE] .TAB \\n[#CURRENT_TAB]
.el \{\
.ie r#EPI_OFFSET_VALUE .nr #EPI_OFFSET \
\\n[#L_MARGIN]+(\\n[#PP_INDENT]*\\n[#EPI_OFFSET_VALUE])
.el .nr #EPI_OFFSET \
\\n[#L_MARGIN]+\\*[$EPI_OFFSET_VALUE]
.if \\n[#COLUMNS] \{\
.ie r#EPI_OFFSET_VALUE .nr #EPI_OFFSET \
\\n[#COL_\\n[#COL_NUM]_L_MARGIN]+(\\n[#PP_INDENT]*\\n[#EPI_OFFSET_VALUE])
.el .nr #EPI_OFFSET \
\\n[#COL_\\n[#COL_NUM]_L_MARGIN]+\\*[$EPI_OFFSET_VALUE]
.\}
.po \\n[#EPI_OFFSET]u
.\}
.\}
.ie \\n[#EPIGRAPH] \{\
.ie !\\n[#EPI_ACTIVE] \{\
.ns
.rr #EPI_ACTIVE
.\}
.el \{\
.sp |\\n[dc]u+(\\n[#DOC_LEAD]u-\\n[#EPI_LEAD]u)
.rr #EPI_ACTIVE
.\}
.\}
.el .ns
.ev
.\}
.ns
.rr #DIVERTED
.ch RR_@TOP
.wh \\n[nl]u+1u RR_@TOP
.if \\n[tbl*have-header] .tbl@bottom-hook
.if \\n[defer] .PROCESS_FLOATS
.ie \\n[tbl*no-header] \{\
.rs
.nop \&
.vpt
.rr \\n[tbl*no-header]
.SHIM
.\}
.el .vpt
.if \\n[tbl*interrupted] .tbl*print-header
.rr tbl*interrupted
.\}
.el .DO_FOOTER
.pdfmarkrestart
.END
.MAC DO_FOOTER END
.if \\n[num*refs] \{\
.if \\n[ref*num]=\\n[num*refs] \{\
.rr num*refs
.nr ref*last 1
.\}
.\}
.PRINT_FOOTER
.if !\\n[ref*last] \{\
.ie \\n[defer]>0 \{\
\c
'       bp
.\}
.el 'bp
.\}
.if !'\\n[.ev]'0' .ev
.rr ref*last
.po
.END
.MAC PRINT_FOOTER END
.br
.if r #SAVED_FOOTER_POS .ch FOOTER \\n[#SAVED_FOOTER_POS]u
.rr #SAVED_FOOTER_POS
.ie (\\n[#FOOTER_MARGIN]+\\n[.v]>\\n[#B_MARGIN]) .nr #SKIP_FOOTER 1
.el \{\
.ev FOOTER
.vpt 0
.ie n \
.sp |\\n[#PAGE_LENGTH]u-\\n[#FOOTER_MARGIN]u
.el \
.sp |\\n[#PAGE_LENGTH]u-\\n[#FOOTER_MARGIN]u-\\n[#FOOTER_ADJ]u
.mk y
.\}
.UNDERLINE OFF
.po \\n[#DOC_L_MARGIN]u
.ll \\n[#DOC_L_LENGTH]u
.ta \\n[.l]u
.if \\n[#PRINT_STYLE]=1 .TYPEWRITER
.if \\n[#PRINT_STYLE]=2 \{\
.fam  \\*[$HDRFTR_FAM]
.ft      R
.ps \\n[#DOC_PT_SIZE]u\\*[$HDRFTR_SIZE_CHANGE]
.\}
.nr #HDRFTR_PT_SIZE \\n[#PT_SIZE]
.if \\n[#CAPS_ON] \{\
.nr #CAPS_WAS_ON 1
.CAPS OFF
.\}
.ie \\n[#FOOTERS_ON] \{\
.if !\\n[#SKIP_FOOTER]=1 .PRINT_HDRFTR
.\}
.el \{\
.if \\n[#PAGINATE] \{\
.if \\n[#PAGE_NUM_V_POS]=2 \
.if !\\n[#SKIP_FOOTER]=1 .PRINT_PAGE_NUMBER
.\}
.\}
.rr #SKIP_FOOTER
.if \\n[#CAPS_WAS_ON] \{\
.CAPS
.rr #CAPS_WAS_ON
.\}
.ev
.vpt 1
.END
.MAC HEADERS_AND_FOOTERS END
.ie \\n[#NUM_ARGS]>1 \{\
.nr #HDRFTR_BOTH 1
.nr #FOOTERS_ON  1
.if !r#HEADER_RULE .nr #HEADER_RULE 1
.if !r#FOOTER_RULE .nr #FOOTER_RULE 1
.ds $HDR_RECTO_QUAD   \\$1
.ds $HDR_RECTO_STRING \\$2
.ds $FTR_RECTO_QUAD   \\$3
.ds $FTR_RECTO_STRING \\$4
.ds $HDR_VERSO_QUAD   \\$5
.ds $HDR_VERSO_STRING \\$6
.ds $FTR_VERSO_QUAD   \\$7
.ds $FTR_VERSO_STRING \\$8
.am START DONE
.if \\\\n[#HDRFTR_BOTH]=1 \{\
.FOOTER_RECTO \\*[$FTR_RECTO_QUAD] "\\*[$FTR_RECTO_STRING]"
.FOOTER_VERSO \\*[$FTR_VERSO_QUAD] "\\*[$FTR_VERSO_STRING]"
.if \\\\n[#HEADER_RULE]=1 .HEADER_RULE
.ie \\\\n[#FOOTER_RULE]=1 .FOOTER_RULE
.el .FOOTER_RULE OFF
.if r #PAGINATE .rr #PAGINATE
.if r #PAGE_NUM_V_POS .rr #PAGE_NUM_V_POS
.\}
.DONE
.am PRINT_USERDEF_HDRFTR DONE
.if \\\\n[#HDRFTR_BOTH]=1 \{\
.if \\n[#FOOTERS_ON]=1 \{\
.if !\\\\n[#COLLATE]=1 \{\
.HEADER_RECTO \\*[$HDR_RECTO_QUAD] "\\*[$HDR_RECTO_STRING]"
.HEADER_VERSO \\*[$HDR_VERSO_QUAD] "\\*[$HDR_VERSO_STRING]"
.rr #FOOTERS_ON
.nr #HEADERS_ON 1
.ie \\\\n[#HEADER_RULE]=1 .HEADER_RULE
.el .HEADER_RULE OFF
.\}
.\}
.if \\n[#HEADERS_ON]=1 \{\
.FOOTER_RECTO \\*[$FTR_RECTO_QUAD] "\\*[$FTR_RECTO_STRING]"
.FOOTER_VERSO \\*[$FTR_VERSO_QUAD] "\\*[$FTR_VERSO_STRING]"
.\}
.\}
.DONE
.am HEADER DONE
.if \\\\n[#HDRFTR_BOTH]=1 \{\
.if r #START_FOR_FOOTERS .rr #START_FOR_FOOTERS
.rr #HEADERS_ON
.nr #FOOTERS_ON 1
.FOOTER_RECTO \\*[$FTR_RECTO_QUAD] "\\*[$FTR_RECTO_STRING]"
.FOOTER_VERSO \\*[$FTR_VERSO_QUAD] "\\*[$FTR_VERSO_STRING]"
.ie \\\\n[#FOOTER_RULE]=1 .FOOTER_RULE
.el .FOOTER_RULE OFF
.\}
.DONE
.\}
.el \{\
.rr #HDRFTR_BOTH
.rr #USERDEF_HDRFTR
.rm $USERDEF_HDRFTR_RECTO
.rm $USERDEF_HDRFTR_VERSO
.FOOTERS OFF
.HEADERS
.if \\n[#COLLATE]=1 \{\
.nr #HEADER_STATE 1
.nr #PAGINATION_STATE 1
.\}
.PAGINATE
.PAGENUM_POS BOTTOM CENTER
.nr #HF_OFF 1
.\}
.END
.char \[hd-num-spacer]     \0
.char \[parahead-spacer]   \~\~
.char \[toc-hd-num-spacer] \h'\w'\[en]'u'
.ds toc-word-space \ 
.MAC HEADING END
.if !\B'\\$1' \{\
.tm1 "[mom]: The first argument to \\$0 must be a numeric heading level.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.if r #QUOTE     .rr #QUOTE
.if r #END_QUOTE .rr #END_QUOTE
.if r #EPIGRAPH  .rr #EPIGRAPH
.vs \\n[#DOC_LEAD]u
.if \\$1<\\n[#LEVEL] \
.nr #ACTIVE_LEVELS \\n[#LEVEL]
.nr #LAST_LEVEL \\n[#LEVEL]
.nr #LEVEL \\$1
.shift
.nr #ARG_NUM 0 1
.while \\n+[#ARG_NUM]<=2 \{\
.if '\\$1'NAMED' \{\
.ds PDF_NM "\\$1 \\$2
.shift 2
.\}
.if '\\$1'PARAHEAD' \{\
.nr #PARAHEAD 1
.shift
.\}
.\}
.if \\n[#Q_LEAD_DIFF_CHECK] .sp -1v
.ie \\n[#PARAHEAD] 'br
.el .br
.ie !\\n[#PARAHEAD] \{\
.if !\\n[@TOP] \{\
.nr #HEAD 1
.ie \\n[#HEAD_\\n[#LEVEL]_SPACE_AFTER] .ne \\n[#NUM_ARGS]+2
.el .ne \\n[#NUM_ARGS]+1
.vpt 0
.ie !\\n[#START] \
.if !\\n[#SPACE_ADDED] .if !\\n[#LINEBREAK] .sp
.el \{\
.ie !\\n[#PP] .rr #START
.el .sp
.\}
.if \\n[#EPIGRAPH] \
.if \\n[#SINGLE_SPACE] .sp
.\}
.if \\n[#PP_SPACE] \
.if \\n[#QUOTE_4_HD] .sp .5v
.if !\\n[#SPACE_ADDED] .SHIM
.if \\n[#SPACE_ADDED] .rr #SPACE_ADDED
.\}
.el \{\
.if \\n[#NUM_ARGS]>1 \{\
.tm1 "[mom]: Error at line \\n[.c], \\$0.
.tm1 "       PARAHEAD may not be given more than 1 line of text.
.ab  Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.vpt 0
.if !(\\n[#PRINT_STYLE]=1)&(\\n[#SINGLE_SPACE]=1) .sp -1v
.if \\n[#QUOTE_4_HD] \{\
.sp -1v
.if \\n[#PP_SPACE] \{\
.sp .5v
.SHIM
.\}
.\}
.if (\\n[#QUOTE_4_HD]=0)&(\\n[#LB_4_HD]=0)&(\\n[#START]=0) \
.if !\\n[#LB_4_PARAHEAD] .sp -1v
.\}
.ev HEADING
.evc 0
.if \\n[#PRINT_STYLE]=2 \{\
.fam \\*[$HEAD_\\n[#LEVEL]_FAM]
.ft  \\*[$HEAD_\\n[#LEVEL]_FT]
.ps  \\n[#DOC_PT_SIZE]u+\\*[$HEAD_\\n[#LEVEL]_SIZE]
.nf
.\}
.ds $TOC_HD_NUM_PREV \\*[$TOC_HD_NUM]
.rm $TOC_HD_NUM
.rm $PDF_HD_NUM
.ie \\n[#NUMBER_HEAD_\\n[#LEVEL]] \{\
.if \\n[#PREFIX_CH_NUM] .ds $HD_NUM \\n[#CH_NUM].
.nr #HEAD_\\n[#LEVEL]_NUM +1
.nr @LEVEL \\n[#LEVEL] 1
.nr #LOOP \\n[#ACTIVE_LEVELS]
.while \\n+[@LEVEL]<=\\n[#LOOP] \
.if \\n[#HEAD_\\n[@LEVEL]_NUM] \
.nr #HEAD_\\n[@LEVEL]_NUM 0 1
.nr @LEVEL 0 1
.nr #LOOP \\n[#LEVEL]
.while \\n+[@LEVEL]<=\\n[#LOOP] \
.if \\n[#HEAD_\\n[@LEVEL]_NUM] \
.as $HD_NUM \\n[#HEAD_\\n[@LEVEL]_NUM].
.ie \\n[#TRUNC_TOC_HD_NUM] \
.ds $TOC_HD_NUM \\n[#HEAD_\\n[#LEVEL]_NUM].
.el .ds $TOC_HD_NUM \\*[$HD_NUM]
.if \\n[#LEVEL]=1 \
.ds $TOC_HD_NUM_PREV \\*[$TOC_HD_NUM]
.if \\n[#TOC_NO_HD_NUM] .rm $TOC_HD_NUM
.if !\\n[#HEAD_\\n[#LEVEL]_NUM]] .rm $TOC_HD_NUM
.as $HD_NUM \[hd-num-spacer]
.ds $PDF_HD_NUM \\*[$TOC_HD_NUM]
.if !'\\*[$TOC_HD_NUM]'' .as $TOC_HD_NUM \[toc-hd-num-spacer]
.if !'\\*[$PDF_HD_NUM]'' .as $PDF_HD_NUM " "
.\}
.el .nr @LEVEL \\n[#LEVEL] 1
.nr #TOC_ENTRY_PN \\n%+\\n[#PAGE_NUM_ADJ]
.af #TOC_ENTRY_PN \\g[#PAGENUMBER]
.nr #ARG_NUM 0 1
.while \\n[#ARG_NUM]<\\n[#NUM_ARGS] \{\
.as $TOC_HEAD_\\n[#LEVEL]_ITEM "\\$[\\n+[#ARG_NUM]]
.if \\n[#NUM_ARGS]>\\n[#ARG_NUM] \
.as $TOC_HEAD_\\n[#LEVEL]_ITEM "\\*[toc-word-space]
.\}
.PDF_BOOKMARK \
        \\*[PDF_NM] \\n[#LEVEL]+1 \
        \\*[$PDF_HD_NUM] \\*[$TOC_HEAD_\\n[#LEVEL]_ITEM]
.rm PDF_NM
.rm $PDF_HD_NUM
.ev TOC_EV
.ie \\n[#PRINT_STYLE]=1 \{\
.fam \\*[$TYPEWRITER_FAM]
.ft  R
.ps  \\*[$TYPEWRITER_PS]
.\}
.el \{\
.FAMILY  \\*[$TOC_HEAD_\\n[#LEVEL]_FAM]
.FT      \\*[$TOC_HEAD_\\n[#LEVEL]_FT]
.ps \\n[#TOC_PS]u\\*[$TOC_HEAD_\\n[#LEVEL]_SIZE]
.\}
.ie \\n[#NUMBER_HEAD_\\n[#LEVEL]] \{\
.ie !\\n[#TOC_NO_HD_NUM] \{\
.ie \\n[#TRUNC_TOC_HD_NUM] \{\
.if !\\n[#TOC_HEAD_\\n[@LEVEL]_INDENT_SET] \{\
.ie !\\n[#FROM_STYLE_\\n[@LEVEL]] \{\
.ie !\\n[#NUMBER_HEAD_\\n[@LEVEL]] \
.nr #TOC_HEAD_\\n[@LEVEL]_INDENT \
\\n[#TOC_HEAD_\\n-[@LEVEL]_INDENT]+\w'\\*[$TOC_HD_NUM]'+1.5m
.el \
.nr #TOC_HEAD_\\n[@LEVEL]_INDENT \
\\n[#TOC_HEAD_\\n-[@LEVEL]_INDENT]+\w'\\*[$TOC_HD_NUM]'
.\}
.el \
.nr #TOC_HEAD_\\n[@LEVEL]_INDENT \
                      \\n[#TOC_HEAD_\\n-[@LEVEL]_INDENT]
.\}
.\}
.el \{\
.if !\\n[#TOC_HEAD_\\n[@LEVEL]_INDENT_SET] \{\
.ie !\\n[#FROM_STYLE_\\n[@LEVEL]] \{\
.ie \\n[#NUMBER_HEAD_\\n-[@LEVEL]] \{\
.ie !\\n[#NUMBER_HEAD_\\n+[@LEVEL]] \
.nr #TOC_HEAD_\\n[@LEVEL]_INDENT \
\\n[#TOC_HEAD_\\n-[@LEVEL]_INDENT]+\w'\\*[$TOC_HD_NUM_PREV]'+1.5m
.el \
.nr #TOC_HEAD_\\n[@LEVEL]_INDENT \
\\n[#TOC_HEAD_\\n-[@LEVEL]_INDENT]+\w'.\[toc-hd-num-spacer]'
.\}
.el \
.nr #TOC_HEAD_\\n[@LEVEL]_INDENT \
\\n[#TOC_HEAD_\\n-[@LEVEL]_INDENT]+\w'\\n[#TOC_HD_NUM].'
.ie \\n[#LEVEL]=1 \
.nr #TOC_HEAD_\\n+[@LEVEL]_INDENT +\w'\0'
.el \{\
.if !\\n[#NUMBER_HEAD_\\n[@LEVEL]] \{\
.nr @LEVEL \\n+[@LEVEL] 1
.nr #TOC_HEAD_\\n+[@LEVEL]_INDENT +\w'\0'
.\}
.\}
.\}
.el \
.nr #TOC_HEAD_\\n[@LEVEL]_INDENT \
\\n[#TOC_HEAD_\\n-[@LEVEL]_INDENT]+\\n[#TOC_HEAD_\\n+[@LEVEL]_INDENT]
.\}
.if \\n[#LEVEL]=1 \{\
.if \\n[#NUMBER_HEAD_\\n[@LEVEL]] \{\
.if \\n[#PREFIX_CH_NUM] \
.nr #TOC_HEAD_\\n[@LEVEL]_INDENT \w'\\*[$TOC_HD_NUM]'
.\}
.\}
.\}
.\}
.el \{\
.ie !\\n[#FROM_STYLE_\\n[@LEVEL]] \{\
.if !\\n[#TOC_HEAD_\\n[@LEVEL]_INDENT_SET] \
.nr #TOC_HEAD_\\n[@LEVEL]_INDENT \
                    \\n[#TOC_HEAD_\\n-[@LEVEL]_INDENT]+1.5m
.\}
.el \{\
.if !\\n[#TOC_HEAD_\\n[@LEVEL]_INDENT_SET] \
.nr #TOC_HEAD_\\n[@LEVEL]_INDENT \
\\n[#TOC_HEAD_\\n-[@LEVEL]_INDENT]+\\n[#TOC_HEAD_\\n+[@LEVEL]_INDENT]
.\}
.\}
.\}
.el \{\
.nr @LEVEL \\n[#LEVEL] 1
.ie \\n[#FROM_STYLE_\\n+[@LEVEL]] \{\
.if !\\n[#TOC_HEAD_\\n[@LEVEL]_INDENT_SET] \{\
.nr #TOC_HEAD_\\n[@LEVEL]_INDENT \
\\n[#TOC_HEAD_\\n[#LEVEL]_INDENT]+\\n[#TOC_HEAD_\\n[@LEVEL]_INDENT]
.if !\\n[#LEVEL]=\\n[#LAST_LEVEL] \{\
.if \\n[#NUMBER_HEAD_\\n[@LEVEL]] \
.nr #TOC_HEAD_\\n[#LEVEL]_INDENT \
\\n[#TOC_HEAD_\\n[@LEVEL]_INDENT]+\w'\\*[$TOC_HD_NUM_PREV]'
.\}
.\}
.\}
.el \{\
.nr #TOC_HEAD_\\n[@LEVEL]_INDENT \
              \\n[#TOC_HEAD_\\n-[@LEVEL]_INDENT]+1.5m
.if \\n[#LEVEL]=1 \{\
.if !\\n[#FROM_STYLE_1] \
.nr #TOC_HEAD_1_INDENT 0
.\}
.\}
.\}
.nr #TOC_HEAD_\\n[@LEVEL]_INDENT_SET 1
.HD_TO_TOC
.rm $TOC_HEAD_\\n[#LEVEL]_ITEM
.if !\\n[#PARAHEAD] .\\*[$HEAD_\\n[#LEVEL]_QUAD]
.if \\n[#CAPS_ON] \{\
.CAPS OFF
.nr #CAPS_RESTORE 1
.\}
.if \\n[#HEAD_\\n[#LEVEL]_CAPS] \{\
.CAPS 
.nr #CAPS_OFF 1
.\}
.if !'\\*[$HEAD_\\n[#LEVEL]_COLOR]'' \
.COLOR \\*[$HEAD_\\n[#LEVEL]_COLOR]
.nop \X'ps: exec decornone'\c
.nr #ARG_NUM 0 1
.while \\n+[#ARG_NUM]<=\\n[#NUM_ARGS] \{\
.if \\n[#PARAHEAD] \
.nr #PP_TEXT_OFFSET \
              \w'\\*[$HD_NUM]\\$[\\n[#ARG_NUM]]'+\w'\[parahead-spacer]'
.if (\\n[#HEAD_\\n[#LEVEL]_UNDERSCORE]=0)&(\\n[#HEAD_\\n[#LEVEL]_UNDERSCORE2]=0) \{\
.ie \\n[#HD_NUM_INDENT] \{\
.if !'\\*[$HEAD_\\n[#LEVEL]_QUAD]'CENTER' \
.ti \\n[#HD_NUM_INDENT]u 
.PRINT \
"\v'-\\*[$HEAD_\\n[#LEVEL]_BASELINE_ADJ]'\\$[\\n[#ARG_NUM]]
.br
.\}
.el \{\
.ie !\\n[#PARAHEAD] \{\
.PRINT \
"\v'-\\*[$HEAD_\\n[#LEVEL]_BASELINE_ADJ]'\\*[$HD_NUM]\\$[\\n[#ARG_NUM]]
.br
.\}
.el \{\
.if (\\n[#PP]>0):(\\n[#INDENT_FIRST_PARAS]) \{\
.if !\\n[#LB_4_PARAHEAD] \{\
.if !\\n[#START] \{\
.if \\n[#PP_ACTIVE] \{\
.ie \\n[#PP]=1 .br
.el \{\
.nr #PP_TEXT_OFFSET +\\n[#PP_INDENT]
.ti \\n[#PP_INDENT]u
.\}
.\}
.\}
.\}
.\}
.ie \\n[#PRINT_STYLE]=1 \
.PRINT "\\*[UL]\\*[$HD_NUM]\\$[\\n[#ARG_NUM]]\\*[ULX]
.el .PRINT "\\*[$HD_NUM]\\$[\\n[#ARG_NUM]]
.rr #LB_4_PARAHEAD
.sp -1v
.\}
.\}
.\}
.if \\n[#HEAD_\\n[#LEVEL]_UNDERSCORE] \{\
.nr #SAVED_UL_WEIGHT \\n[#UNDERSCORE_WEIGHT]
.UNDERSCORE_WEIGHT \\*[$HEAD_\\n[#LEVEL]_UL_WEIGHT]
.ie \\n[#HD_NUM_INDENT] \{\
.if !'\\*[$HEAD_\\n[#LEVEL]_QUAD]'CENTER' \
.ti \\n[#HD_NUM_INDENT]u 
.UNDERSCORE \\*[$HEAD_\\n[#LEVEL]_UL_GAP] \
                "\v'-\\*[$HEAD_\\n[#LEVEL]_BASELINE_ADJ]'\\$[\\n[#ARG_NUM]]
.br
.\}
.el \{\
.ie !\\n[#PARAHEAD] \{\
.UNDERSCORE \\*[$HEAD_\\n[#LEVEL]_UL_GAP] \
"\v'-\\*[$HEAD_\\n[#LEVEL]_BASELINE_ADJ]'\\*[$HD_NUM]\\$[\\n[#ARG_NUM]]
.br
.\}
.el \{\
.if (\\n[#PP]>0):(\\n[#INDENT_FIRST_PARAS]) \{\
.if !\\n[#LB_4_HD] \{\
.if !\\n[#START] \{\
.if \\n[#PP_ACTIVE] \{\
.nr #PP_TEXT_OFFSET +\\n[#PP_INDENT]
.if (\\n[#PRINT_STYLE]=1)&(\\n[#SINGLE_SPACE]=1) .sp -1v
.ti \\n[#PP_INDENT]u
.\}
.\}
.\}
.\}
.UNDERSCORE \\*[$HEAD_\\n[#LEVEL]_UL_GAP] \
                   "\\*[$HD_NUM]\\$[\\n[#ARG_NUM]]
.sp -1v
.\}
.\}
.nr #UNDERSCORE_WEIGHT \\n[#SAVED_UL_WEIGHT]
.\}
.if \\n[#HEAD_\\n[#LEVEL]_UNDERSCORE2] \{\
.nr #SAVED_UL2_WEIGHT \\n[#UNDERSCORE_WEIGHT]
.UNDERSCORE_WEIGHT \\*[$HEAD_\\n[#LEVEL]_UL2_WEIGHT]
.ie \\n[#HD_NUM_INDENT] \{\
.if !'\\*[$HEAD_\\n[#LEVEL]_QUAD]'CENTER' \
.ti \\n[#HD_NUM_INDENT]u 
.UNDERSCORE2 \\*[$HEAD_\\n[#LEVEL]_UL2_GAP_1] \
                \\*[$HEAD_\\n[#LEVEL]_UL2_GAP_2] \
                "\v'-\\*[$HEAD_\\n[#LEVEL]_BASELINE_ADJ]'\\$[\\n[#ARG_NUM]]
.br
.\}
.el \{\
.ie !\\n[#PARAHEAD] \{\
.UNDERSCORE2 \\*[$HEAD_\\n[#LEVEL]_UL2_GAP_1] \
                   \\*[$HEAD_\\n[#LEVEL]_UL2_GAP_2] \
"\v'-\\*[$HEAD_\\n[#LEVEL]_BASELINE_ADJ]'\\*[$HD_NUM]\\$[\\n[#ARG_NUM]]
.br
.\}
.el \{\
.if (\\n[#PP]>0):(\\n[#INDENT_FIRST_PARAS]) \{\
.if !\\n[#LB_4_HD] \{\
.if !\\n[#START] \{\
.if \\n[#PP_ACTIVE] \{\
.nr #PP_TEXT_OFFSET +\\n[#PP_INDENT]
.if (\\n[#PRINT_STYLE]=1)&(\\n[#SINGLE_SPACE]=1) \
.sp -1v
.ti \\n[#PP_INDENT]u
.\}
.\}
.\}
.\}
.UNDERSCORE2 \\*[$HEAD_\\n[#LEVEL]_UL2_GAP_1] \
\\*[$HEAD_\\n[#LEVEL]_UL2_GAP_2] "\\*[$HD_NUM]\\$[\\n[#ARG_NUM]]
.sp -1v
.\}
.\}
.nr #UNDERSCORE_WEIGHT \\n[#SAVED_UL2_WEIGHT]
.\}
.if !\\n[#HD_NUM_INDENT] .nr #HD_NUM_INDENT \w'\\*[$HD_NUM]'
.\}
.if !\\n[#PARAHEAD] \{\
.if \\n[#HEAD_\\n[#LEVEL]_SPACE_AFTER] .sp
.\}
.if \\n[#CAPS_OFF] \{\
.CAPS OFF
.rr #CAPS_OFF
.\}
.if \\n[#CAPS_RESTORE] \{\
.CAPS
.rr #CAPS_RESTORE
.\}
.ev
.rm $HD_NUM
.rr #HD_NUM_INDENT
.if \\n[#PARAHEAD]   .ti \\n[#PP_TEXT_OFFSET]u
.if !\\n[#PARAHEAD]  .nr #PP 0
.rr #PARAHEAD
.if \\n[#LB_4_HD]    .rr #LB_4_HD
.if \\n[#QUOTE_4_HD] .rr #QUOTE_4_HD
.if \\n[@TOP] \{\
.ch RR_@TOP
.rr @TOP
.rs
.nop \&
.sp -1
.\}
.vpt
.END
.MAC HEADING_STYLE END
.if !\B'\\$1' \{\
.tm1 "[mom]: The first argument to \\$0 must be a numeric heading level.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.nr #LEVEL \\$1
.if \\n[#FROM_OLDSTYLE] .nr #LEVEL_\\n[#LEVEL]_SET 1
.shift
.if '\\$0'TOC_ENTRY_STYLE' .ds $TOC TOC_
.nr #ARG_NUM 0 1
.nr #ATTRIB \\n[#NUM_ARGS]
.while \\n+[#ARG_NUM]<=\\n[#ATTRIB] \{\
.if '\\$1'UNDERSCORE' \{\
.nr #HEAD_\\n[#LEVEL]_UNDERSCORE 1
.shift
.if '\\$1'' \{\
.tm1 "[mom]: The UNDERSCORE argument to \\$0 requires a rule weight.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.ds $HEAD_\\n[#LEVEL]_UL_WEIGHT \\$1
.shift
.if '\\$1'' \{\
.tm1 "[mom]: The UNDERSCORE argument to \\$0 requires a rule gap.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.ds $HEAD_\\n[#LEVEL]_UL_GAP    \\$1
.shift
.\}
.if '\\$1'NO_UNDERSCORE' \{\
.rr #HEAD_\\n[#LEVEL]_UNDERSCORE
.shift
.\}
.if '\\$1'UNDERSCORE2' \{\
.nr #HEAD_\\n[#LEVEL]_UNDERSCORE2 1
.shift
.if '\\$1'' \{\
.tm1 "[mom]: The UNDERSCORE2 argument to \\$0 requires a rule weight.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.ds $HEAD_\\n[#LEVEL]_UL2_WEIGHT \\$1
.shift
.if '\\$1'' \{\
.tm1 "[mom]: The UNDERSCORE2 argument to \\$0 requires a rule gap.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.ds $HEAD_\\n[#LEVEL]_UL2_GAP_1  \\$1
.shift
.if '\\$1'' \{\
.tm1 "[mom]: The UNDERSCORE2 argument to \\$0 requires an inter-rule gap.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.ds $HEAD_\\n[#LEVEL]_UL2_GAP_2  \\$1
.shift
.\}
.if '\\$1'NO_UNDERSCORE2' \{\
.rr #HEAD_\\n[#LEVEL]_UNDERSCORE2
.\}
.if '\\$1'SPACE_AFTER' \{\
.nr #HEAD_\\n[#LEVEL]_SPACE_AFTER 1
.shift
.\}
.if '\\$1'NO_SPACE_AFTER' \{\
.rr #HEAD_\\n[#LEVEL]_SPACE_AFTER
.shift
.\}
.if '\\$1'FAMILY' \{\
.shift
.ds $\\*[$TOC]HEAD_\\n[#LEVEL]_FAM  \\$1
.shift
.\}
.if '\\$1'FONT' \{\
.shift
.ds $\\*[$TOC]HEAD_\\n[#LEVEL]_FT   \\$1
.shift
.\}
.if '\\$1'SIZE' \{\
.shift
.ds $\\*[$TOC]HEAD_\\n[#LEVEL]_SIZE \\$1
.shift
.\}
.if '\\$1'QUAD' \{\
.shift
.if '\\$1'L'      .ds $HEAD_\\n[#LEVEL]_QUAD LEFT
.if '\\$1'LEFT'   .ds $HEAD_\\n[#LEVEL]_QUAD LEFT
.if '\\$1'C'      .ds $HEAD_\\n[#LEVEL]_QUAD CENTER
.if '\\$1'CENTRE' .ds $HEAD_\\n[#LEVEL]_QUAD CENTER
.if '\\$1'CENTER' .ds $HEAD_\\n[#LEVEL]_QUAD CENTER
.if '\\$1'R'      .ds $HEAD_\\n[#LEVEL]_QUAD RIGHT
.if '\\$1'RIGHT'  .ds $HEAD_\\n[#LEVEL]_QUAD RIGHT
.shift
.\}
.if '\\$1'COLOR' \{\
.shift
.ds $\\*[$TOC]HEAD_\\n[#LEVEL]_COLOR \\$1
.shift
.\}
.if '\\$1'BASELINE_ADJUST' \{\
.shift
.ds $HEAD_\\n[#LEVEL]_BASELINE_ADJ \\$1
.shift
.\}
.if '\\$1'CAPS' \{\
.nr #\\*[$TOC]HEAD_\\n[#LEVEL]_CAPS 1
.shift
.\}
.if '\\$1'NO_CAPS' \{\
.rr #HEAD_\\n[#LEVEL]_CAPS
.shift
.\}
.if '\\$1'NUMBER' \{\
.nr #NUMBER_HEAD_\\n[#LEVEL] 1
.nr #HEAD_\\n[#LEVEL]_NUM 0 1
.shift
.\}
.if '\\$1'NO_NUMBER' \{\
.rr #NUMBER_HEAD_\\n[#LEVEL]
.shift
.\}
.if '\\$1'INDENT' \{\
.shift
.nr #TOC_HEAD_\\n[#LEVEL]_INDENT \\$1
.nr #FROM_STYLE_\\n[#LEVEL] 1
.shift
.\}
.\}
.rr #LEVEL
.if d$TOC .rm $TOC
.END
.ALIAS TOC_ENTRY_STYLE HEADING_STYLE
.MAC OLDSTYLE_HEADINGS END
.if '\\$1'' .nr #SKIP_MSG 1
.nr #FROM_OLDSTYLE 1
.if \\n[#PRINT_STYLE]=1 \{\
.if !\\n[#LEVEL_1_SET] \{\
.HEADING_STYLE 1 \
             FONT R \
             SIZE +0 \
             QUAD C \
             CAPS \
             UNDERSCORE .5 2p \
             BASELINE_ADJUST 0 \
             SPACE_AFTER
.nr #OLDSTYLE_HD 1
.return
.\}
.if !\\n[#LEVEL_2_SET] \{\
.HEADING_STYLE 2 \
             FONT R \
             SIZE +0 \
             UNDERSCORE .5 2p \
             BASELINE_ADJUST \\n[.v]/8
.nr #OLDSTYLE_SH 1
.return
.\}
.if !\\n[#LEVEL_3_SET] \{\
.HEADING_STYLE 3 \
             FONT R \
             SIZE +0 \
             BASELINE_ADJUST \\n[.v]/8
.nr #OLDSTYLE_SSH 1
.return
.\}
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.if !\\n[#LEVEL_1_SET] \{\
.HEADING_STYLE 1 \
             FAMILY \E*[$DOC_FAM] \
             FONT B \
             SIZE +1 \
             QUAD C \
             CAPS \
             UNDERSCORE .5 2p \
             BASELINE_ADJUST 0 \
             SPACE_AFTER
.nr #OLDSTYLE_HD 1
.return
.\}
.if !\\n[#LEVEL_2_SET] \{\
.HEADING_STYLE 2 \
             FAMILY \E*[$DOC_FAM] \
             FONT B \
             SIZE +.5 \
             BASELINE_ADJUST \\n[.v]/8
.nr #OLDSTYLE_SH 1
.return
.\}
.if !\\n[#LEVEL_3_SET] \{\
.HEADING_STYLE 3 \
             FAMILY \E*[$DOC_FAM] \
             FONT I \
             SIZE +.5 \
             BASELINE_ADJUST \\n[.v]/8
.nr #OLDSTYLE_SSH 1
.return
.\}
.\}
.rr #FROM_OLDSTYLE
.END
.MAC DEPRECATED END
.if !\\n[#SKIP_MSG] \{\
.tm1 "[mom]: Macro '\\$1' at line \\n[.c] is deprecated.
.tm1 "       Invoking HEADING \\$2 instead and assigning style defaults
.tm1 "          from former \\$1 as described in the documentation.
.tm1 "       If another style is desired, use HEADING_STYLE \\$2 to
.tm1 "          create it (see docs).
.tm1 "       Further warnings will not be emitted for \\$1.
.tm1 "       To avoid this message when using the deprecated HEAD,
.tm1 "          SUBHEAD, and SUBSUBHEAD macros, add '.OLDSTYLE_HEADINGS'
.tm1 "          after PRINTSTYLE before START.
.rm $MACRO
.\}
.END
.MAC HEAD END
.if !\\n[#OLDSTYLE_HD] \{\
.DEPRECATED HEAD 1
.OLDSTYLE_HEADINGS HEAD
.\}
.HEADING 1 \\$@
.END
.MAC SUBHEAD END
.if !\\n[#OLDSTYLE_SH] \{\
.DEPRECATED SUBHEAD 2
.OLDSTYLE_HEADINGS SUBHEAD
.\}
.HEADING 2 \\$@
.END
.MAC SUBSUBHEAD END
.if !\\n[#OLDSTYLE_SSH] \{\
.DEPRECATED SUBSUBHEAD 3
.OLDSTYLE_HEADINGS SUBSUBHEAD
.\}
.HEADING 3 \\$@
.END
.MAC PARAHEAD END
.tm1 "[mom]: \\$0 is no longer a valid macro.
.tm1 "       Use 'HEADING <level> PARAHEAD <text>' instead.
.tm1 "       You will probably want to invoke HEADING_STYLE to set
.tm1 "       the type parameters for the parahead.  See docs.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.END
.MAC HEADING_NUMBERS END
.if '\\$0'NUMBER_PARAHEADS' \{\
.tm1 "[mom]: \\$0 is no longer a valid macro.
.tm1 "       Use 'HEADING_STYLE <level> NUMBER' instead.  See docs.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.return
.\}
.if '\\$0'NUMBER_HEADS'       .nr level 1
.if '\\$0'NUMBER_SUBHEADS'    .nr level 2
.if '\\$0'NUMBER_SUBSUBHEADS' .nr level 3
.ds mom "[mom]:
.ie '\\$1'' .ds $PARAM NUMBER
.el \{\
.ds $PARAM NO_NUMBER
.ds $SWITCH " \\$1
.\}
.HEADING_STYLE \\n[level] \\*[$PARAM]
.if (\\n[#OLDSTYLE_HD]=1):(\\n[#OLDSTYLE_SH]=1):(\\n[#OLDSTYLE_SSH]=1) \{\
.tm1 "\\*[mom] OLDSTYLE_HEADINGS detected.
.ds mom "      
.\}
.tm1 "\\*[mom] Setting HEADING_STYLE \\n[level] to '\\*[$PARAM]' at '\\$0\\*[$SWITCH]', line \\n[.c].
.rm $PARAM
.rm $SWITCH
.END
.ALIAS NUMBER_HEADS       HEADING_NUMBERS
.ALIAS NUMBER_SUBHEADS    HEADING_NUMBERS
.ALIAS NUMBER_SUBSUBHEADS HEADING_NUMBERS
.ALIAS NUMBER_PARAHEADS   HEADING_NUMBERS
.MAC PREFIX_CHAPTER_NUMBER END
.ie '\\$1'' \{\
.ie r#CH_NUM \{\
.nr #PREFIX_CH_NUM 1
.if \\n[#CHAPTER_CALLED] \{\
.ie \B'\\*[$CHAPTER]' .nr #CH_NUM \\*[$CHAPTER]
.el .PREFIX_CH_NUM_WARNING
.rr #CHAPTER_CALLED
.\}
.\}
.el \{\
.ie \B'\\*[$CHAPTER]' \{\
.nr #PREFIX_CH_NUM 1
.nr #CH_NUM \\*[$CHAPTER]
.\}
.el .PREFIX_CH_NUM_WARNING
.\}
.\}
.el \{\
.ie \B'\\$1' \{\
.nr #CH_NUM \\$1
.nr #PREFIX_CH_NUM 1
.\}
.el .rr #PREFIX_CH_NUM
.\}
.END
.MAC PREFIX_CH_NUM_WARNING END
.tm1 "[mom]: PREFIX_CHAPTER_NUMBER cannot determine a chapter number.
.tm1 "       Enter the current chapter number as a digit after
.tm1 "       PREFIX_CHAPTER_NUMBER.
.ab Aborting '\\n[.F]', line \\n[.c].
.END
.MAC LINEBREAK_CHAR END
.nr #REPEAT 1
.ds $LINEBREAK_CHAR \\$1
.if !'\\$2'' .nr #LB_CHAR_ITERATIONS \\$2
.if !'\\$3'' .ds $LINEBREAK_CHAR_V_ADJ \\$3
.if '\\*[$LINEBREAK_CHAR_V_ADJ]'' .ds $LINEBREAK_CHAR_V_ADJ +0
.if \\n[#LB_CHAR_ITERATIONS] \{\
.while (\\n[#LB_CHAR_ITERATIONS]>\\n[#REPEAT]) \{\
.as $LINEBREAK_CHAR "\\ \\$1
.nr #REPEAT \\n[#REPEAT]+1
.\}
.\}
.rr #REPEAT
.rr #LB_CHAR_ITERATIONS
.END
.MAC LINEBREAK END
.if r #Q_AT_TOP .rr #Q_AT_TOP
.ie  '\\*[$LINEBREAK_CHAR]'' .sp 2
.el \{\
.ie \\n[#END_QUOTE] .
.el .sp
.ev LINEBREAK
.evc 0
.CENTER
.PRINT \
\m[\\*[$LINEBREAK_COLOR]]\v'\\*[$LINEBREAK_CHAR_V_ADJ]'\
\\*[$LINEBREAK_CHAR]\m[]
.sp
.ev
.QUAD \\*[$DOC_QUAD]
.\}
.nr #LINEBREAK 1
.if r #QUOTE .rr #QUOTE
.if r #END_QUOTE .rr #END_QUOTE
.nr #PP 0
.nr #LB_4_HD       1
.nr #LB_4_PARAHEAD 1
.END
.MAC PP_FONT END
.if \\n[#PRINT_STYLE]=1 \{\
.ie \\n[#ITALIC_MEANS_ITALIC] .nop
.el .return
.\}
.if \\n[#COLLATE]=1 \
.if !'\\*[$SAVED_PP_FT]'' .rm $SAVED_PP_FT
.ds $PP_FT \\$1
.FT \\*[$PP_FT]
.END
.MAC PARA_INDENT END
.ie \B'\\$1' \{\
.nr #PP_INDENT (\\$1)
.nr #SAVED_PP_INDENT \\n[#PP_INDENT]
.\}
.el \{\
.ie '\\$1'' \{\
.nr #PP_INDENT \\n[#SAVED_PP_INDENT]
.rr #SAVED_PP_INDENT
.\}
.el \{\
.nr #SAVED_PP_INDENT \\n[#PP_INDENT]
.rr #PP_INDENT
.\}
.\}
.END
.MAC INDENT_FIRST_PARAS END
.ie '\\$1'' .nr #INDENT_FIRST_PARAS 1
.el .rr #INDENT_FIRST_PARAS
.END
.MAC PARA_SPACE END
.ie '\\$1'' \{\
.nr #PP_SPACE 1
.\}
.el \{\
.ie \B'\\$1' \{\
.nr #PP_SPACE 1
.ds $PP_SPACE_AMOUNT \\$1
.\}
.el .rr #PP_SPACE
.\}
.END
.MAC PP END
.if \\n[#DOC_TYPE]=4 \{\
.if !'\\n[.z]'' .di
.nr #TOTAL_FIELDS \\n[#FIELD]
.nr #FIELD        0 1
.nr #NUM_FIELDS   0 1
.if \\n[#TOTAL_FIELDS]>0 \{\
.while \\n+[#NUM_FIELDS]<=\\n[#TOTAL_FIELDS] \{\
.nf
.LETTERHEAD\\n+[#FIELD]
.QUAD \\*[$DOC_QUAD]
.ALD \\n[#DOC_LEAD]u
.if \\n[#DATE_FIRST]=1 .ALD \\n[#DOC_LEAD]u
.rr #DATE_FIRST
.rm LETTERHEAD\\n[#FIELD]
.\}
.rr #FIELD
.rr #NUM_FIELDS
.rr #TOTAL_FIELDS
.\}
.\}
.rr #PP_ACTIVE
.if r #Q_AT_TOP .rr #Q_AT_TOP
.if \\n[#PP_STYLE]=1 \{\
.if \\n[#ENDNOTE] \{\
.nr #RESET_PARA_SPACE \\n[#PP_SPACE]
.ie \\n[#EN_PP_SPACE] .PARA_SPACE
.el .PARA_SPACE OFF
.\}
.if !\\n[#ENDNOTE] .po \\n[#L_MARGIN]u
.if \\n[#COLUMNS] \{\
.if !\\n[#ENDNOTE] \{\
.po \\n[#COL_\\n[#COL_NUM]_L_MARGIN]u
.nr #L_MARGIN \\n[.o]
.\}
.\}
.if \\n[#TAB_ACTIVE] .TAB \\n[#CURRENT_TAB]
.ie \\n[#PRINT_STYLE]=1 \{\
.TYPEWRITER
.ie \\n[#ENDNOTE] .vs \\n[#EN_LEAD]u
.el .vs \\n[#DOC_LEAD]u
.QUAD \\*[$DOC_QUAD]
.if \\n[#SLANT_ON] \{\
.if \\n[#UNDERLINE_SLANT] .UNDERLINE
.\}
.if '\\*[$PP_FT]'I' \
.if \\n[#ITALIC_MEANS_ITALIC] .FT I
.\}
.el \{\
.ie \\n[#ENDNOTE] \{\
.FAMILY  \\*[$EN_FAM]
.FT      \\*[$EN_FT]
.ps \\n[#EN_PS]u
.vs \\n[#EN_LEAD]u
.QUAD    \\*[$EN_QUAD]
.\}
.el \{\
.FAMILY  \\*[$DOC_FAM]
.if !'\\*[$SAVED_PP_FT]'' \{\
.ds $PP_FT \\*[$SAVED_PP_FT]
.rm $SAVED_PP_FT
.\}
.FT \\*[$PP_FT]
.ps \\n[#DOC_PT_SIZE]u
.vs      \\n[#DOC_LEAD]u
.QUAD    \\*[$DOC_QUAD]
.\}
.\}
.ie \\n[#PP]=0 \{\
.if \\n[#INDENT_FIRST_PARAS] \{\
.ie \\n[#INDENT_ACTIVE] .ti \\n[#INDENT]u+\\n[#PP_INDENT]u
.el .ti \\n[#PP_INDENT]u
.if '\\n[.z]'END_NOTES' \
.ti \\n[#EN_PP_INDENT]u+\\n[#EN_TEXT_INDENT]u
.\}
.if r #END_QUOTE \{\
.if \\n[#END_QUOTE] \{\
.if !\\n[#LINEBREAK] \{\
.ie \\n[#INDENT_ACTIVE] .ti \\n[#INDENT]u+\\n[#PP_INDENT]u
.el .ti \\n[#PP_INDENT]u
.if '\\n[.z]'END_NOTES' \
.ti \\n[#EN_PP_INDENT]u+\\n[#EN_TEXT_INDENT]u
.\}
.\}
.\}
.\}
.el \{\
.if \\n[#PP_SPACE] \{\
.ie \\n[#END_QUOTE] \{\
.ie !'\\*[$PP_SPACE_AMOUNT]'' .ALD \\*[$PP_SPACE_AMOUNT]
.el .sp
.rr #END_QUOTE
.nr #NO_SPACE 1
.nr #BASELINE_MARK \\n[nl]
.\}
.el \{\
.if \\n[#NO_SPACE]=1 .rr #NO_SPACE
.if !\\n[nl]=\\n[#BASELINE_MARK] \{\
.ie !'\\*[$PP_SPACE_AMOUNT]'' .ALD \\*[$PP_SPACE_AMOUNT]
.el .sp
.rr #BASELINE_MARK
.\}
.\}
.\}
.ie \\n[#INDENT_ACTIVE] .ti \\n[#INDENT]u+\\n[#PP_INDENT]u
.el .ti \\n[#PP_INDENT]u
.if '\\n[.z]'END_NOTES' \
.ti \\n[#EN_PP_INDENT]u+\\n[#EN_TEXT_INDENT]u
.\}
.if r #START     .rr #START
.if r #QUOTE     .rr #QUOTE
.if r #END_QUOTE .rr #END_QUOTE
.if r #HEAD      .rr #HEAD
.if r #SUBHEAD   .rr #SUBHEAD
.if r #EPIGRAPH  .rr #EPIGRAPH
.if r #Q_FITS    .rr #Q_FITS
.if r #LINEBREAK .rr #LINEBREAK
.if \\n[#ENDNOTE] \{\
.ie \\n[#RESET_PARA_SPACE] .PARA_SPACE
.el .PARA_SPACE OFF
.\}
.if \\n[#CONDENSE] \{\
\E*[COND]\c
.\}
.if \\n[#EXTEND]=1 \{\
\E*[EXT]\c
.\}
.nr #PP +1
.\}
.if \\n[#PP_STYLE]=2 \{\
\!.     br
.if \\n[#BROKEN_QUOTE] \{\
.ie \\n[nl]=\\n[#PAGE_TOP] .nr #Q_PP 1
.el .nr #Q_PP 0
.rr #BROKEN_QUOTE
.\}
.ie \\n[#Q_PP]=0 \{\
.if \\n[#INDENT_FIRST_PARAS] \
.ti \\n[#PP_INDENT]u/2u
.if \\n[#ENDNOTE] \{\
.ie \\n[#INDENT_FIRSTS] .ti \\n[#PP_INDENT]u/2u
.el .ti 0
.\}
.\}
.el \{\
.ti \\n[#PP_INDENT]u/2u
.if \\n[#PP_SPACE]=1 \{\
.ie !'\\*[$PP_SPACE_AMOUNT]'' .ALD \\*[$PP_SPACE_AMOUNT]
.el .sp
.\}
.\}
.if \\n[#CONDENSE] \{\
\E*[COND]\c
.\}
.if \\n[#EXTEND]=1 \{\
\E*[EXT]\c
.\}
.nr #Q_PP +1
.\}
.if \\n[#OPEN_CLOSE]=1 .nr #OPEN_CLOSE 0
.nr #PP_ACTIVE 1
.UNDERLINE OFF
.if r #QUOTE_4_HD .rr #QUOTE_4_HD
.if r #LB_4_HD .rr #LB_4_HD
.END
.MAC UNDERLINE_QUOTES END
.ie '\\$1'' .nr #UNDERLINE_QUOTES 1
.el .rr #UNDERLINE_QUOTES
.END
.MAC QUOTE_INDENT END
.rr #Q_OFFSET_VALUE
.rm $Q_OFFSET_VALUE
.ds $EVAL_QI_ARG \\$1
.substring $EVAL_QI_ARG -1
.ie \B'\\*[$EVAL_QI_ARG]' .nr #Q_OFFSET_VALUE \\$1
.el .ds $Q_OFFSET_VALUE \\$1
.rm $EVAL_QI_ARG
.END
.MAC QUOTE_AUTOLEAD END
.rr #\\$0_DEFAULT
.if '\\$0'QUOTE_AUTOLEAD'              .nr #Q_AUTOLEAD (p;\\$1)
.if '\\$0'BLOCKQUOTE_AUTOLEAD'         .nr #BQ_AUTOLEAD (p;\\$1)
.if '\\$0'ENDNOTE_QUOTE_AUTOLEAD'      .nr #EN_Q_AUTOLEAD (p;\\$1)
.if '\\$0'ENDNOTE_BLOCKQUOTE_AUTOLEAD' .nr #EN_BQ_AUTOLEAD (p;\\$1)
.END
.ALIAS BLOCKQUOTE_AUTOLEAD         QUOTE_AUTOLEAD
.ALIAS ENDNOTE_QUOTE_AUTOLEAD      QUOTE_AUTOLEAD
.ALIAS ENDNOTE_BLOCKQUOTE_AUTOLEAD QUOTE_AUTOLEAD
.MAC ALWAYS_FULLSPACE_QUOTES END
.if '\\$1'' .nr #FULLSPACE_QUOTES 1
.el .rr #FULLSPACE_QUOTES
.END
.MAC QUOTE END
.br
.if \\n[#PP]>0 .rr #START
.if \\n[#LINENUMBERS]=1 \{\
.nr #LINENUMBERS 2
.nr #NEXT_LN \\n[ln]
.nm
.\}
.ie '\\$1'' \{\
.ev QUOTE
.evc 0
.if \\n[#LINENUMBERS]=2 \{\
.if \\n[#SILENT_QUOTE_LN]=1 .nm \\n[#NEXT_LN] 1000 -4
.\}
.nr #IN_DIVER 1
.nr #QUOTE 1
.di P_QUOTE
.ie !'\\*[$Q_OFFSET_VALUE]'' .ll \\n[#L_LENGTH]u-(\\*[$Q_OFFSET_VALUE]*2u)
.el .ll \\n[#L_LENGTH]u-(\\n[#PP_INDENT]u*(\\n[#Q_OFFSET_VALUE]u*2u))
.ta \\n[.l]u
.if \\n[#COLUMNS] \{\
.ie \\n[#Q_OFFSET_VALUE] \
.ll \\n[#COL_L_LENGTH]u-(\\n[#PP_INDENT]u*\\n[#Q_OFFSET_VALUE]u)
.el .ll \\n[#COL_L_LENGTH]u-\\*[$Q_OFFSET_VALUE]
.ta \\n[.l]u
.\}
.if \\n[#PRINT_STYLE]=1 \{\
.TYPEWRITER
.vs \\n[#DOC_LEAD]u
.LEFT
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.FAMILY  \\*[$QUOTE_FAM]
.FT      \\*[$QUOTE_FT]
.ps \\n[#DOC_PT_SIZE]u\\*[$QUOTE_SIZE_CHANGE]
.ie !r #Q_AUTOLEAD .vs \\n[#DOC_LEAD]u
.el \{\
.vs \\n[.ps]u+\\n[#Q_AUTOLEAD]u
.nr #Q_LEAD \\n[.v]
.\}
.if \\n[#ENDNOTE] \{\
.ps \\n[#EN_PS]u\\*[$QUOTE_SIZE_CHANGE]
.ie !r #EN_Q_AUTOLEAD .vs \\n[#EN_Q_LEAD]u
.el \{\
.vs \\n[.ps]u+\n[#EN_Q_AUTOLEAD]u
.nr #EN_Q_LEAD \\n[.v]
.\}
.\}
.nr #Q_LEAD_REAL \\n[.v]
.LEFT
.if \\n[#QUOTE_COLOR]=1 \{\
.nf
\m[\\*[$QUOTE_COLOR]]
.EOL
.\}
.\}
.if \\n[#LINENUMBERS]=2 \{\
.ie \\n[#QUOTE_LN]=1 \{\
.if '\\n[#Q_LN_GUTTER]'' .nr #Q_LN_GUTTER \\n[#LN_GUTTER]
.LN_PARAMS
.nm \\n[ln] "" \\n[#Q_LN_GUTTER] -3-\\n[#Q_LN_GUTTER]
.RESTORE_PARAMS
.\}
.el \{\
.if !\\n[#SILENT_QUOTE_LN] .NUMBER_LINES OFF
.\}
.\}
.nr #Q_TOP \\n[nl]
.if \\n[#PRINT_STYLE]=1 \
.if \\n[#UNDERLINE_QUOTES] .FT I
.\}
.el .DO_QUOTE
.END
.MAC CODE END
\c
.if '\\$1'BR' \{\
.br
.nr #BREAK_OR_SPREAD 1
.shift
.\}
.if '\\$1'BREAK' \{\
.nr #BREAK_OR_SPREAD 1
.br
.shift
.\}
.if '\\$1'SPREAD' \{\
.nr #BREAK_OR_SPREAD 2
.brp
.shift
.\}
.ie '\\$1'' \{\
.ds $RESTORE_FAM \\n[.fam]
.ds $RESTORE_FT  \\n[.sty]
.ie \\n[#PRINT_STYLE]=1 \{\
.CODE_FAMILY C
.ie \\n[#CODE_FT]=1 .ft \\*[$CODE_FT]
.el \{\
.CODE_FONT R
.ft R
.char ' \[aq]
.\}
.if \\n[#UNDERLINE_QUOTES]=1 \{\
.nr #RESTORE_UNDERLINE 1
.UNDERLINE_QUOTES OFF
.FT \\*[$CODE_FT]
.char ' \[aq]
.\}
.\}
.el \{\
.ie \\n[#CODE_FAM]=1 .fam \\*[$CODE_FAM]
.el \{\
.CODE_FAMILY C
.fam \\*[$CODE_FAM]
.\}
.ie \\n[#CODE_FT]=1 .ft \\*[$CODE_FT]
.el \{\
.CODE_FONT R
.ft \\*[$CODE_FT]
.\}
.if \\n[#CODE_COLOR]=1 .COLOR \\*[$CODE_COLOR]
.char ' \[aq]
.if !\\n[#CODE_SIZE_ADJ]=0 .ps \\n[#PT_SIZE]u*\\n[#CODE_SIZE_ADJ]u/100u
.if \\n[#SQ_ON] \{\
.nr #SQ_WAS_ON 1
.SMARTQUOTES OFF
.\}
.\}
.\}
.el \{\
.fam \\*[#RESTORE_FAM]
.ft  \\*[#RESTORE_FT]
.rm $RESTORE_FAM
.rm $RESTORE_FT
.if !\\n[#CODE_SIZE_ADJ]=0 .ps
.char ' \[aq]
.if !'\\n[.z]'' \
.if \\n[#LINENUMBERS] .nn
.if \\n[#CODE_COLOR]=1 .gcolor
.if \\n[#RESTORE_UNDERLINE]=1 \{\
.rr #RESTORE_UNDERLINE
.UNDERLINE_QUOTES
.\}
.if \\n[#SQ_WAS_ON]=1 \{\
.rr #SQ_WAS_ON
.SMARTQUOTES
.\}
.if \\n[#QUOTE] .sp 1v
.\}
.END
.MAC CODE_FAMILY END
.nr #CODE_FAM 1
.ds $CODE_FAM \\$1
.END
.MAC CODE_FONT END
.nr #CODE_FT 1
.ds $CODE_FT \\$1
.END
.MAC CODE_SIZE END
.nr #CODE_SIZE_ADJ \\$1
.END
.MAC BLOCKQUOTE END
.br
.if \\n[#LINENUMBERS]=1 \{\
.nr #LINENUMBERS 2
.nr #NEXT_LN \\n[ln]
.nm
.\}
.ie '\\$1'' \{\
.ev BLOCKQUOTE
.evc 0
.nr #IN_DIVER 1
.nr #QUOTE    2
.nr #PP_STYLE 2
.nr #Q_PP     0
.di B_QUOTE
.ie !'\\*[$Q_OFFSET_VALUE]'' .ll \\n[#L_LENGTH]u-(\\*[$Q_OFFSET_VALUE]*2u)
.el .ll \\n[#L_LENGTH]u-(\\n[#PP_INDENT]u*(\\n[#Q_OFFSET_VALUE]u*2u))
.if \\n[#ENDNOTE] \{\
.if \\n[#EN_NUMBERS_ALIGN_RIGHT] \{\
.ie r#Q_OFFSET_VALUE \
.ll \
\\n[#RESET_L_LENGTH]u-\\n[#EN_TEXT_INDENT]u-(\\n[#EN_PP_INDENT]u*(\\n[#Q_OFFSET_VALUE]u*2u))
.el \
.ll \
\\n[#RESET_L_LENGTH]u-\\n[#EN_TEXT_INDENT]u-(\\*[$Q_OFFSET_VALUE]*2u)
.\}
.if \\n[#EN_NUMBERS_ALIGN_LEFT] \{\
.ie r#Q_OFFSET_VALUE \
.ll \\n[#L_LENGTH]u-(\\n[#EN_PP_INDENT]u*(\\n[#Q_OFFSET_VALUE]u*2u))
.el \
.ll \\n[#L_LENGTH]u-(\\*[$Q_OFFSET_VALUE]u*2u)
.\}
.\}
.ta \\n[.l]u
.CHECK_INDENT
.if \\n[#COLUMNS] \{\
.ie r#Q_OFFSET_VALUE \
.ll \
\\n[#COL_L_LENGTH]u-(\\n[#PP_INDENT]u*(\\n[#Q_OFFSET_VALUE]u*2u))
.el \
.ll \\n[#COL_L_LENGTH]u-(\\*[$Q_OFFSET_VALUE]*2u)
.if \\n[#ENDNOTE] \{\
.if \\n[#EN_NUMBERS_ALIGN_RIGHT] \{\
.ie r#Q_OFFSET_VALUE \
.ll \
\\n[#RESET_L_LENGTH]u-\\n[#EN_TEXT_INDENT]u-(\\n[#EN_PP_INDENT]u*(\\n[#Q_OFFSET_VALUE]u*2u))
.el \
.ll \
\\n[#RESET_L_LENGTH]u-\\n[#EN_TEXT_INDENT]u-(\\*[$Q_OFFSET_VALUE]*2u)
.\}
.if \\n[#EN_NUMBERS_ALIGN_LEFT] \{\
.ie r#Q_OFFSET_VALUE \
.ll \
\\n[#COL_L_LENGTH]u-(\\n[#EN_PP_INDENT]u*(\\n[#Q_OFFSET_VALUE]u*2u))
.el \
.ll \\n[#COL_L_LENGTH]u-(\\*[$Q_OFFSET_VALUE]*2u)
.\}
.\}
.ta \\n[.l]u
.\}
.if \\n[#PRINT_STYLE]=1 \{\
.TYPEWRITER
.vs \\n[#DOC_LEAD]u
.QUAD LEFT
.HY OFF
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.FAMILY  \\*[$BQUOTE_FAM]
.FT      \\*[$BQUOTE_FT]
.ps \\n[#DOC_PT_SIZE]u\\*[$BQUOTE_SIZE_CHANGE]
.ie !r #BQ_AUTOLEAD .vs \\n[#DOC_LEAD]u
.el \{\
.vs \\n[.ps]u+\\n[#BQ_AUTOLEAD]u
.nr #BQ_LEAD \\n[.v]
.\}
.if \\n[#ENDNOTE] \{\
.ps \\n[#EN_PS]u\\*[$BQUOTE_SIZE_CHANGE]
.ie !r#EN_BQ_AUTOLEAD .vs \\n[#EN_BQ_LEAD]u
.el \{\
.vs \\n[.ps]u+\\n[#EN_BQ_AUTOLEAD]u
.nr #EN_BQ_LEAD \\n[.v]
.\}
.\}
.nr #Q_LEAD_REAL \\n[.v]
.if \\n[#BQUOTE_COLOR]=1 \{\
.nf
\m[\\*[$BQUOTE_COLOR]]
.EOL
.\}
.QUAD \\*[$BQUOTE_QUAD]
.nr #DIVERSIONS_HY_MARGIN (p;\\n[.ps]u*2.75)/1000
.HY_SET 1 \\n[#DIVERSIONS_HY_MARGIN]u (\\n[#PT_SIZE]u/1000u/8u)p
.hy 14
.\}
.if \\n[#LINENUMBERS]=2 \{\
.ie \\n[#BQUOTE_LN]=1 \{\
.if '\\n[#BQ_LN_GUTTER]'' .nr #BQ_LN_GUTTER \\n[#LN_GUTTER]
.LN_PARAMS
.nm \\n[ln] "" \\n[#BQ_LN_GUTTER] -3-\\n[#BQ_LN_GUTTER]
.RESTORE_PARAMS
.\}
.el \
.if !\\n[#SILENT_BQUOTE_LN] .NUMBER_LINES OFF
.\}
.nr #Q_TOP \\n[nl]
.if \\n[#INDENT_FIRST_PARAS] \{\
.ie !\\n[#ENDNOTE] \{\
.if \\n[#PRINT_STYLE]=1 .ti \\n[#PP_INDENT]u/2u
.if \\n[#PRINT_STYLE]=2 .ti \\n[#PP_INDENT]u/2u
.\}
.el \{\
.if \\n[#INDENT_FIRSTS]=1 \{\
.if \\n[#PRINT_STYLE]=1 .ti \\n[#EN_PP_INDENT]u/2u
.if \\n[#PRINT_STYLE]=2 .ti \\n[#EN_PP_INDENT]u/2u
.\}
.\}
.\}
.\}
.el .DO_QUOTE
.END
.MAC DO_QUOTE END
.br
.if \\n[#DIVER_LN_OFF] \{\
\!.     NUMBER_LINES OFF
.rr #DIVER_LN_OFF
.\}
.di
.rr #IN_DIVER
.if \\n[#RESET_FN_COUNTERS]=2 \{\
.if !\\n[#FN_COUNT]=1 \{\
.if ((\\n[#PAGE_LENGTH]+\\n[#VARIABLE_FOOTER_POS])+\\n[#DIVER_DEPTH])>(\\n[#PAGE_LENGTH]+\\n[#VARIABLE_FOOTER_POS]) \{\
.DIVER_FN_2_POST
.rr #RESET_FN_COUNTERS
.\}
.\}
.\}
.nr #SAVED_FN_NUMBER \\n[#FN_NUMBER]
.nr #DONE_ONCE 0 1
.REMOVE_INDENT
.ev
.nr #Q_DEPTH (\\n[#DIVER_DEPTH]-\\n[#Q_LEAD_REAL])
.nr #Q_LEAD_DIFF \\n[#LEAD]-\\n[#Q_LEAD_REAL]
.if !\\n[.v]=\\n[#Q_LEAD_REAL] \{\
.SILENT
.br
.nf
.nr #CURRENT_V_POS \
\\n[nl]+\\n[#Q_LEAD_DIFF]+(\\n[#DIVER_DEPTH]-\\n[#Q_DEPTH_REAL])
.SHIM
.SILENT OFF
.nr #Q_SPACE_ADJ \\n[#SHIM]/2
.nr #TRAP \\n[.t]-1
.\}
.if \\n[#ENDNOTE] \{\
.nr #RESET_QUOTE_SPACING \\n[#FULLSPACE_QUOTES]
.ALWAYS_FULLSPACE_QUOTES
.\}
.if \\n[#PRINT_STYLE]=1 \{\
.if \\n[#START]=1 .
.if \\n[#START]=0 \
.if !\\n[#LINEBREAK] .ALD \\n[#DOC_LEAD]u
.if \\n[#HEAD] \
.if \\n[#HEAD]=1 .RLD \\n[#DOC_LEAD]u
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.ie \\n[#PP_SPACE] \{\
.ie \\n[#HEAD] .
.el \{\
.ie \\n[#START] .
.el \{\
.ie \\n[#FULLSPACE_QUOTES] .ALD \\n[#DOC_LEAD]u
.el .ALD \\n[#DOC_LEAD]u/2u
.\}
.\}
.\}
.el \{\
.ie \\n[#Q_DEPTH]<(\\n[#TRAP_DISTANCE]-1) \{\
.ie ((\\n[#TRAP_DISTANCE]-1)-\\n[#Q_DEPTH])<\\n[#DOC_LEAD] \
.Q_NOFIT
.el \{\
.ie (\\n[#TRAP_DISTANCE]-\\n[#DOC_LEAD])<\\n[#DOC_LEAD] .Q_NOFIT
.el \{\
.ie (\\n[#Q_DEPTH]+\\n[.v])=(\\n[#TRAP_DISTANCE]-1) .Q_NOFIT
.el .Q_FITS
.\}
.\}
.\}
.el .Q_NOFIT
.\}
.if \\n[#LINEBREAK] \{\
.ie !\\n[@TOP] .RLD \\n[#DOC_LEAD]u
.el \{\
.nop
.sp |\\n[#T_MARGIN]u-\\n[#BQ_LEAD]u
.\}
.\}
.\}
.ie !'\\*[$Q_OFFSET_VALUE]'' .nr #Q_OFFSET \\n[#L_MARGIN]+\\*[$Q_OFFSET_VALUE]
.el \
.nr #Q_OFFSET \\n[#L_MARGIN]+(\\n[#PP_INDENT]*\\n[#Q_OFFSET_VALUE])
.if \\n[#COLUMNS] \{\
.ie r#Q_OFFSET_VALUE \
.nr #Q_OFFSET \
\\n[#COL_\\n[#COL_NUM]_L_MARGIN]+(\\n[#PP_INDENT]*\\n[#Q_OFFSET_VALUE])
.el .nr #Q_OFFSET \\n[#COL_\\n[#COL_NUM]_L_MARGIN]+\\*[$Q_OFFSET_VALUE]
.\}
.if !\\n[#ENDNOTE] \{\
.po \\n[#Q_OFFSET]u
.if '\\n[.z]'FLOAT*DIV' \!.po \\n[#Q_OFFSET]u
.\}
.if \\n[#ENDNOTE] \{\
.ie \\n[#Q_OFFSET_VALUE] .in +\\n[#EN_PP_INDENT]u*\\n[#Q_OFFSET_VALUE]u
.el .in +\\*[$Q_OFFSET_VALUE]
.\}
.ie \\n[#START]=1 \{\
.ie !\\n[#Q_LEAD_DIFF]<0 .ALD \\n[#Q_SPACE_ADJ]u
.el .RLD 0-\\n[#Q_LEAD_DIFF]u
.\}
.el \{\
.if \\n[#PRINT_STYLE]=2 \{\
.if !\\n[.v]=\\n[#Q_LEAD] .ALD \\n[#Q_SPACE_ADJ]u
.\}
.\}
.if \\n[#QUOTE]=1 \{\
.nf
.P_QUOTE
.br
.if !\\n[#START] .rr #QUOTE
.\}
.if \\n[#QUOTE]=2 \{\
.nf
.B_QUOTE
.br
.\}
.if \\n[#PRINT_STYLE]=1 \
.if !\\n[.v]=\\n[#DOC_LEAD] .SHIM
.if \\n[#PRINT_STYLE]=2 \{\
.ie \\n[#START] \{\
.ie \\n[#PP_SPACE] .
.el \{\
.ALD \\n[#DOC_LEAD]u
.SHIM
.\}
.\}
.el \{\
.ie \\n[#HEAD]=1 \{\
.ALD \\n[#DOC_LEAD]u
.SHIM
.\}
.el \{\
.ie \\n[#FULLSPACE_QUOTES] \{\
.ie \\n[#ENDNOTE] .ALD \\n[#EN_LEAD]u
.el .ALD \\n[#DOC_LEAD]u
.\}
.el .ALD (\\n[#DOC_LEAD]/2)u
.ie \\n[#Q_FITS] \{\
.ie (\\n[#Q_TOP]=\\n[#PAGE_TOP]):(\\n[@TOP]=1) \{\
.nr #Q_AT_TOP 1
.nr #DELAY_SHIM 1
.\}
.el \
.if !\\n[.v]=\\n[#Q_LEAD_REAL] .SHIM
.\}
.el \{\
.SHIM
.if \\n[#Q_LEAD_DIFF] \{\
.if \\n[nl]=(\\n[#T_MARGIN]-\\n[#DOC_LEAD]+\\n[#Q_LEAD_DIFF]) \{\
.PRINT \&
.br
.sp -1v-\\n[#Q_LEAD_DIFF]u
.nr #Q_LEAD_DIFF_CHECK 1
.\}
.\}
.\}
.\}
.\}
.\}
.rr #Q_SPACE_ADJ
.if \\n[#LINENUMBERS]=2 \{\
.nr #LINENUMBERS 1
.if !\\n[#ENDNOTE] \{\
.ie \\n[#RESTORE_LN_NUM]=1 \{\
.LN_PARAMS
.nm \\n[#NEXT_LN]
.RESTORE_PARAMS
.\}
.el \{\
.LN_PARAMS
.nm +0
.RESTORE_PARAMS
.\}
.\}
.\}
.if \\n[#ENDNOTE] .nr #FULLSPACE_QUOTES \\n[#RESET_QUOTE_SPACING]
.if r #HEAD .rr #HEAD
.if r #EPIGRAPH .rr #EPIGRAPH
.rr #Q_PP
.rr #LINEBREAK
.nr #PP_STYLE  1
.nr #END_QUOTE 1
.if !\\n[#ENDNOTE] \{\
.po \\n[#L_MARGIN]u
.if '\\n[.z]'FLOAT*DIV' \!.po \\n[#L_MARGIN]u
.\}
.if \\n[#ENDNOTE]  .in \\n[#EN_TEXT_INDENT]u
.if \\n[#COLUMNS] \{\
.if !\\n[#ENDNOTE] \{\
.po \\n[#COL_\\n[#COL_NUM]_L_MARGIN]u
.nr #L_MARGIN \\n[.o]
.\}
.if \\n[#ENDNOTE] .in \\n[#EN_TEXT_INDENT]u
.\}
.ie !\\n[#ENDNOTE] .QUAD \\*[$DOC_QUAD]
.el .QUAD \\*[EN_QUAD]
.if r #DELAY_SHIM \{\
.SHIM
.rr #DELAY_SHIM
.\}
.if \\n[#PRINT_STYLE]=1 \
.if \\n[#UNDERLINE_QUOTES] .FT R
.nr #QUOTE_4_HD 1
.END
.MAC Q_FITS END
.nr #Q_FITS 1
.ie \\n[#HEAD]=1 .ALD \\n[#Q_LEAD_DIFF]u
.el \{\
.ie \\n[#START] .
.el \{\
.ie \\n[#FULLSPACE_QUOTES] \{\
.ie \\n[#ENDNOTE] .ALD \\n[#EN_LEAD]u+\\n[#Q_LEAD_DIFF]u
.el .ALD \\n[#DOC_LEAD]u+\\n[#Q_LEAD_DIFF]u
.\}
.el \{\
.ie \\n[#Q_TOP]=\\n[#PAGE_TOP] \{\
.if \\n[#QUOTE]=1 \{\
.rn P_QUOTE Q_TEMP
.di P_QUOTE
.nf
.vs \\n[#Q_LEAD]u
.PRINT \&
.sp -1v+\\n[#Q_LEAD_DIFF]u
.Q_TEMP
.di
.\}
.if \\n[#QUOTE]=2 \{\
.rn B_QUOTE Q_TEMP
.di B_QUOTE
.nf
.vs \\n[#BQ_LEAD]u
.PRINT \&
.sp -1v+\\n[#Q_LEAD_DIFF]u
.Q_TEMP
.di
.\}
.rm Q_TEMP
.\}
.el .ALD (\\n[#DOC_LEAD]u/2u)+\\n[#Q_SPACE_ADJ]u
.\}
.\}
.if \\n[#DIVER_FN]=2 .rr #DIVER_FN
.\}
.END
.MAC Q_NOFIT END
.rr #Q_FITS
.ie r#HEAD \
.if \\n[#HEAD]=1 .
.el \{\
.if \\n[#Q_DEPTH]=0 \
.if \\n[.ns] .rs
.ie \\n[#FULLSPACE_QUOTES] \{\
.ie \\n[#ENDNOTE] .ALD \\n[#EN_LEAD]u+\\n[#Q_LEAD_DIFF]u
.el .ALD \\n[#DOC_LEAD]u+\\n[#Q_LEAD_DIFF]u
.\}
.el \{\
.ALD \\n[#DOC_LEAD]u+\\n[#Q_LEAD_DIFF]
.if \\n[@TOP] .rs
.\}
.nr #Q_PARTIAL_DEPTH 0 \\n[#Q_LEAD_REAL]
.while \\n+[#Q_PARTIAL_DEPTH]<(\\n[#TRAP_DISTANCE]-1) \{\
.\}
.nr #Q_PARTIAL_DEPTH -\\n[#Q_LEAD_REAL]
.nr #Q_SPACE_ADJ \
(\\n[#TRAP_DISTANCE]-1)-\\n[#Q_PARTIAL_DEPTH]+\\n[#Q_LEAD_DIFF]u
.if \\n[#FN_COUNT]>0 .nr #Q_SPACE_ADJ (\\n[#Q_SPACE_ADJ] / 2u)
.if !\\n[#Q_DEPTH]=0 \{\
.nr #SAVED_FOOTER_POS \\n[#VARIABLE_FOOTER_POS]
.ch FOOTER \\n[#VARIABLE_FOOTER_POS]u+.25v
.\}
.\}
.END
.MAC PAGINATE END
.ie '\\$1'' .nr #PAGINATE 1
.el \{\
.nr #PAGINATE 0
.if !\\n[#COLLATE] .rr #PAGE_NUM_V_POS
.\}
.if \\n[#HF_OFF]=1 \{\
.rr #PAGINATION_STATE
.rr #HF_OFF
.\}
.END
.MAC SUSPEND_PAGINATION END
.nr #SUSPEND_PAGINATION 1
.END
.MAC RESTORE_PAGINATION END
.rr #SUSPEND_PAGINATION
.if \\n[#PAGE_NUM_V_POS]=1 .PAGINATE
.if \\n[#PAGE_NUM_V_POS]=2 .nr #DEFER_PAGINATION 1
.END
.MAC PAGENUM_STYLE END
.nr #PAGENUM_STYLE_SET 1
.if '\\$1'DIGIT' \{\
.ds $PAGENUM_STYLE \\$1
.af #PAGENUMBER 1
.\}
.if '\\$1'ROMAN' \{\
.ds $PAGENUM_STYLE \\$1
.af #PAGENUMBER I
.\}
.if '\\$1'roman' \{\
.ds $PAGENUM_STYLE \\$1
.af #PAGENUMBER i
.\}
.if '\\$1'ALPHA' \{\
.ds $PAGENUM_STYLE \\$1
.af #PAGENUMBER A
.\}
.if '\\$1'alpha' \{\
.ds $PAGENUM_STYLE \\$1
.af #PAGENUMBER a
.\}
.END
.MAC PAGENUM_HYPHENS END
.nr #PAGE_NUM_HYPHENS_SET 1
.ie '\\$1'' .nr #PAGE_NUM_HYPHENS 1
.el .rr #PAGE_NUM_HYPHENS
.END
.MAC PAGENUM_POS END
.nr #PAGE_NUM_POS_SET 1
.if '\\$1'TOP'    .nr #PAGE_NUM_V_POS 1
.if '\\$1'BOTTOM' .nr #PAGE_NUM_V_POS 2
.if '\\$2'LEFT'   .nr #PAGE_NUM_H_POS 1
.if '\\$2'CENTER' .nr #PAGE_NUM_H_POS 2
.if '\\$2'CENTRE' .nr #PAGE_NUM_H_POS 2
.if '\\$2'RIGHT'  .nr #PAGE_NUM_H_POS 3
.END
.MAC PN_WITH_HYPHENS END
.nr #HYPHEN_ADJ \\n[#CAP_HEIGHT]/12
.ds $HYPHEN \v'-\En[#HYPHEN_ADJ]u'-\v'\En[#HYPHEN_ADJ]u'
.ds $PN_FOR_KN \\n[#PAGENUMBER]
.substring $PN_FOR_KN 0 0
.if '\\*[$PN_FOR_KN]'1' .ds $PRE_HY_KN \*[BU3]
.if '\\*[$PN_FOR_KN]'7' .ds $PRE_HY_KN \*[BU3]
.ds $PN_FOR_KN \\n[#PAGENUMBER]
.substring $PN_FOR_KN -1 -1
.if '\\*[$PN_FOR_KN]'1' .ds $POST_HY_KN \*[BU3]
.if '\\*[$PN_FOR_KN]'7' .ds $POST_HY_KN \*[BU3]
.PRINT \
\m[\\*[$PAGENUM_COLOR]]\
\\*[$HYPHEN]\|\\*[$PRE_HY_KN]\\n[#PAGENUMBER]\\*[$POST_HY_KN]\|\\*[$HYPHEN]
.br
.rm $PRE_HY_KERN
.rm $POST_HY_KERN
.END
.MAC PRINT_PAGE_NUMBER END
.ev PAGENUMBER
.nf
.po  \\n[#DOC_L_MARGIN]u
.ll  \\n[#DOC_L_LENGTH]u
.ta  \\n[.l]u
.fam \\*[$PAGE_NUM_FAM]
.ft  \\*[$PAGE_NUM_FT]
.ps  \\n[#DOC_PT_SIZE]u\\*[$PAGE_NUM_SIZE_CHANGE]
.if  \\n[#PRINT_STYLE]=1 .TYPEWRITER
.if  \\n[#PAGE_NUM_V_POS]=1 .vs 0
.if o \{\
.ie \\n[#PAGE_NUM_H_POS]=1 .LEFT
.el .RIGHT
.\}
.if e \{\
.ie \\n[#PAGE_NUM_H_POS]=1 .RIGHT
.el .LEFT
.\}
.if \\n[#PAGE_NUM_H_POS]=2 .CENTER
.if \\n[#RECTO_VERSO]=0 \{\
.if \\n[#PAGE_NUM_H_POS]=1 .LEFT
.if \\n[#PAGE_NUM_H_POS]=2 .CENTER
.if \\n[#PAGE_NUM_H_POS]=3 .RIGHT
.\}
.nr #PAGENUMBER \\n%+\\n[#PAGE_NUM_ADJ]
.if \\n[#EN_FIRST_PAGE] \{\
.if \\n[#EN_FIRST_PN] .PAGENUMBER \\n[#EN_FIRST_PN]
.rr #EN_FIRST_PAGE
.\}
.if \\n[#BIB_FIRST_PAGE] \{\
.if \\n[#BIB_FIRST_PN] .PAGENUMBER \\n[#BIB_FIRST_PN]
.rr #BIB_FIRST_PAGE
.\}
.ie \\n[#DRAFT_WITH_PAGENUM] \{\
.ie '\\*[$REVISION]'' \
.PRINT "\\*[$DRAFT_STRING]\\*[$DRAFT] / \\n[#PAGENUMBER]"
.el \{\
.ie '\\*[$DRAFT]'' \
.PRINT "\\*[$REVISION_STRING] \\*[$REVISION] / \\n[#PAGENUMBER]"
.el \
.PRINT \
"\\*[$DRAFT_STRING]\\*[$DRAFT], \\*[$REVISION_STRING] \\*[$REVISION] / \
\\n[#PAGENUMBER]"
.\}
.\}
.el \{\
.ie \\n[#PAGE_NUM_HYPHENS] \{\
.if '\\*[$PAGENUM_STYLE]'DIGIT' \{\
.di NULL
1\\R'#CAP_HEIGHT \\n[.cht]'
.di
.PN_WITH_HYPHENS
.\}
.if '\\*[$PAGENUM_STYLE]'ROMAN' \{\
.di NULL
I\\R'#CAP_HEIGHT \\n[.cht]'
.di
.PN_WITH_HYPHENS
.\}
.if '\\*[$PAGENUM_STYLE]'ALPHA' \{\
.di NULL
E\\R'#CAP_HEIGHT \\n[.cht]'
.di
.PN_WITH_HYPHENS
.\}
.if '\\*[$PAGENUM_STYLE]'roman' \
.PRINT \m[\\*[$PAGENUM_COLOR]]-\|\\n[#PAGENUMBER]\|-
.if '\\*[$PAGENUM_STYLE]'alpha' \
.PRINT \m[\\*[$PAGENUM_COLOR]]-\|\\n[#PAGENUMBER]\|-
.\}
.el .PRINT \m[\\*[$PAGENUM_COLOR]]\\n[#PAGENUMBER]
.\}
.ev
.nr #DIVER_DEPTH 0
.END
.MAC FOOTNOTE_AUTOLEAD END
.nr #FN_AUTOLEAD (p;\\$1)
.END
.MAC FOOTNOTE_MARKERS END
.ie '\\$1'' .nr #FN_MARKERS 1
.el .nr #FN_MARKERS 0
.END
.MAC FOOTNOTE_MARKER_STYLE END
.if '\\$1'STAR' \{\
.if \\n[#FN_MARKER_STYLE]=3 \{\
.if !\\n[#NEWPAGE]=1 \{\
.tm1 "[mom]: Your current FOOTNOTE_MARKER STYLE is LINE.
.tm1 "       You cannot change footnote marker style without
.tm1 "       first breaking to a new page with NEWPAGE.
.tm1 "       Ignoring request FOOTNOTE_MARKER_STYLE STAR at line \\n[.c].
.return
.\}
.\}
.if \\n[#RUN_ON]=1 \{\
.tm1 "[mom]: FOOTNOTE_MARKER_STYLE STAR at line \\n[.c] is incompatible
.tm1 "       with RUN_ON footnotes.  Ignoring request.
.return
.\}
.nr #FN_MARKER_STYLE 1
.if \\n[#NEWPAGE]=1 .rr #NEWPAGE
.FOOTNOTE_MARKERS
.\}
.if '\\$1'NUMBER' \{\
.if \\n[#FN_MARKER_STYLE]=3 \{\
.if !\\n[#NEWPAGE]=1 \{\
.tm1 "[mom]: Your current FOOTNOTE_MARKER STYLE is NUMBER.
.tm1 "       You cannot change footnote marker style without
.tm1 "       first breaking to a new page with NEWPAGE.
.tm1 "       Ignoring request FOOTNOTE_MARKER_STYLE NUMBER at line \\n[.c].
.return
.\}
.\}
.if \\n[#RUN_ON]=1 \{\
.tm1 "[mom]: FOOTNOTE_MARKER_STYLE NUMBER at line \\n[.c] is incompatible
.tm1 "       with RUN_ON footnotes.  Ignoring request.
.return
.\}
.nr #FN_MARKER_STYLE 2
.shift
.if '\\$1'NO_SUPERSCRIPT' .nr #NO_SUPERSCRIPT 1
.if \\n[#NEWPAGE]=1 .rr #NEWPAGE
.FOOTNOTE_MARKERS
.\}
.if '\\$1'LINE' \{\
.nr #FN_MARKER_STYLE 3
.FOOTNOTE_MARKERS OFF
.if !\\n[#FN_LN_SEP] \
.if !\\n[#FN_LN_BRACKETS] .FOOTNOTE_LINENUMBER_BRACKETS SQUARE
.\}
.END
.MAC FOOTNOTE_NUMBER_PLACEHOLDERS END
.nr #FN_NUMBER_PLACEHOLDERS \\$1
.END
.ds FN_MARK \R'#FN_MARK \En[ln]'
.MAC FOOTNOTE_LINENUMBER_SEPARATOR END
.rr #FN_LN_BRACKETS
.nr #FN_LN_SEP 1
.ds $FN_LN_SEP "\\$1
.END
.MAC FOOTNOTE_LINENUMBER_BRACKETS END
.rr #FN_LN_SEP
.nr #FN_LN_BRACKETS 1
.if '\\$1'PARENS' \{\
.ds $FN_OPEN_BRACKET (
.ds $FN_CLOSE_BRACKET )
.\}
.if '\\$1'(' \{\
.ds $FN_OPEN_BRACKET (
.ds $FN_CLOSE_BRACKET )
.\}
.if '\\$1'SQUARE' \{\
.ds $FN_OPEN_BRACKET [
.ds $FN_CLOSE_BRACKET ]
.\}
.if '\\$1'[' \{\
.ds $FN_OPEN_BRACKET [
.ds $FN_CLOSE_BRACKET ]
.\}
.if '\\$1'BRACES' \{\
.ds $FN_OPEN_BRACKET {
.ds $FN_CLOSE_BRACKET }
.\}
.if '\\$1'{' \{\
.ds $FN_OPEN_BRACKET {
.ds $FN_CLOSE_BRACKET }
.\}
.END
.MAC RESET_FOOTNOTE_NUMBER END
.ie '\\$1'' .nr #FN_NUMBER 0 1
.el .nr #RESET_FN_NUMBER 1
.END
.MAC FOOTNOTE_RULE_LENGTH END
.nr #FN_RULE_LENGTH (\\$1)
.END
.MAC FOOTNOTE_RULE_ADJ END
.nr #FN_RULE_ADJ (\\$1)
.END
.MAC FOOTNOTE_RULE END
.ie '\\$0'PRINT_FOOTNOTE_RULE' \{\
.if \\n[#FN_RULE]=0 .RLD 1v
.RLD 1v
.LEFT
\v'-\\n[#FN_RULE_ADJ]u-\\n[#FN_RULE_WEIGHT_ADJ]u'\
\D't \\n[#FN_RULE_WEIGHT]'\
\h'-\\n[#FN_RULE_WEIGHT]u'\
\D'l \\n[#FN_RULE_LENGTH]u 0'\
\v'+\\n[#FN_RULE_ADJ]u+\\n[#FN_RULE_WEIGHT_ADJ]u'
\!.     ps \\n[#DOC_PT_SIZE]u\\*$[FN_SIZE_CHANGE]
.QUAD \\*[$FN_QUAD]
.\}
.el \{\
.ie '\\$1'' .nr #FN_RULE 1
.el .nr #FN_RULE 0
.\}
.END
.MAC FOOTNOTE_SPACING END
.ie \B'\\$1' .ds $FN_SPACE \\$1
.el .rm $FN_SPACE
.END
.MAC FOOTNOTES_RUN_ON END
.ie '\\$1'' \{\
.if \\n[#FN_COUNT]>0 \{\
.tm1 "[mom]: Switching to run-on footnotes at line \\n[.c] will cause
.tm1 "       you to loose footnotes already formatted for this page.
.tm1 "       Ignoring request FOOTNOTES_RUN_ON.
.rr #RUN_ON
.return
.\}
.nr #RUN_ON 1
.if \\n[#FN_MARKER_STYLE]=1 .RUNON_WARNING
.if \\n[#FN_MARKER_STYLE]=2 .RUNON_WARNING
.\}
.el \{\
.if \\n[#FN_COUNT]>0 \{\
.if \\n[#RUN_ON]=1 \{\
.tm1 "[mom]: Switching off run-on footnotes at line \\n[.c] will cause
.tm1 "       you to loose footnotes already formatted for this page.
.tm1 "       Ignoring request FOOTNOTES_RUN_ON \\$1.
.return
.\}
.\}
.rr #RUN_ON
.\}
.END
.MAC RUNON_WARNING END
.if \\n[#FN_MARKER_STYLE]=1 \{\
.tm1 "[mom]: The footnote marker style active at line \\n[.c] is STAR,
.tm1 "       which is incompatible with run-on footnotes.  Please change
.tm1 "       the footnote marker style to LINE.  Continuing to process,
.tm1 "       but ignoring request FOOTNOTES_RUN_ON.
.rr #RUN_ON
.\}
.if \\n[#FN_MARKER_STYLE]=2 \{\
.tm1 "[mom]: The footnote marker style active at line \\n[.c] is NUMBER,
.tm1 "       which is incompatible with run-on footnotes.  Please change
.tm1 "       the footnote marker style to LINE.  Continuing to process,
.tm1 "       but ignoring request FOOTNOTES_RUN_ON.
.rr #RUN_ON
.\}
.END
.MAC FOOTNOTE END
.ie '\\$1'' \{\
.if \\n[#UNDERLINE_ON] \{\
.UNDERLINE OFF
.nr #UNDERLINE_WAS_ON_FN 1
.\}
.if \\n[#FN_MARKER_STYLE]=3 \{\
.if !\\n[#LINENUMBERS] \{\
.tm1 "[mom]: Line numbering must be enabled with NUMBER_LINES when
.tm1 "       FOOTNOTE_MARKER_STYLE is LINE.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.if \\n[#FN_MARK]=0 .nr #FN_MARK \\n[ln]
.nr #FN_MARK_2 \\n[ln]
.if '\\n[.z]'P_QUOTE' \{\
.nr #FN_MARK -1
.nr #FN_MARK_2 -1
.\}
.if \\n[#IN_DIVER]=1 \{\
.if '\\n[.z]'P_QUOTE' \{\
.if !\\n[#QUOTE_LN]=1 \{\
.if !\\n[#SILENT_QUOTE_LN]=1 \{\
.tm1 "[mom]: You have requested a line-numbered footnote inside a
.tm1 "       QUOTE at line \\n[.c], but line-numbering has not been enabled
.tm1 "       for QUOTES.  Printing footnote with label "0".
.rr #FN_MARK
.rr #FN_MARK_2
.\}
.\}
.\}
.if '\\n[.z]'B_QUOTE' \{\
.if !\\n[#BQUOTE_LN]=1 \{\
.if !\\n[#SILENT_BQUOTE_LN]=1 \{\
.tm1 "[mom]: You have requested a line-numbered footnote inside a
.tm1 "       BLOCKQUOTE at line \\n[.c], but line-numbering has not been enabled
.tm1 "       for BLOCKQUOTES.  Printing footnote with label "0".
.rr #FN_MARK
.rr #FN_MARK_2
.\}
.\}
.\}
.\}
.\}
.if \\n[#IN_DIVER]=1 \{\
.nr #PAGE_POS \\n[nl]+\\n[.d]+\\n[#DOC_LEAD]
.nr #FOOTER_POS \\n[#PAGE_LENGTH]+(\\n[#VARIABLE_FOOTER_POS]-1)
.nr #SPACE_TO_FOOTER \\n[#FOOTER_POS]-\\n[#PAGE_POS]
.ie \\n[#SPACE_TO_FOOTER]<=\\n[#DOC_LEAD] \
.nr #DIVER_FN 2
.el \
.nr #DIVER_FN 2
.if \\n[#PAGE_POS]>\\n[#FOOTER_POS] \
.nr #DIVER_FN 1
.if \\n[.k]>\\n[.l] .nr #DIVER_FN 1
.if r #DIVER_FN \{\
.if !\\n[#DIVER_FN]=2 .\\n+[#DONE_ONCE]
.if \\n[#DIVER_FN]=1 .DIVER_FN_1_PRE
.if \\n[#DIVER_FN]=2 .DIVER_FN_2_PRE
.\}
.nr #SAVED_FN_COUNT \\n[#FN_COUNT]+1
.nr #SAVED_FN_COUNT_FOR_COLS \\n[#FN_COUNT_FOR_COLS]+1
.\}
.if \\n[.k]>\\n[.l] \{\
.if (\\n[nl]+\\n[#DOC_LEAD])>(\\n[#PAGE_LENGTH]+\\n[#VARIABLE_FOOTER_POS]) \{\
.ie \\n[#COLUMNS]=1 \{\
.if \\n[#COL_NUM]=\\n[#NUM_COLS] \{\
.if \\n[#FN_MARKER_STYLE]=1 .nr #FN_COUNT_FOR_COLS 0 1
.if \\n[#FN_MARKER_STYLE]=2 \{\
.if \\n[#RESET_FN_NUMBER] \{\
.nr #FN_NUMBER 0 1
.nr #NOT_YET_ADJUSTED 1
.\}
.\}
.\}
.\}
.el \{\
.if \\n[#FN_MARKER_STYLE]=1 .nr #FN_COUNT 0 1
.if \\n[#FN_MARKER_STYLE]=2 \{\
.if \\n[#RESET_FN_NUMBER] \{\
.nr #FN_NUMBER 0 1
.nr #NOT_YET_ADJUSTED 1
.\}
.\}
.\}
.\}
.\}
.if \\n[#FN_MARKERS] \{\
.if \\n[#CONDENSE] \*[CONDX]\c
.if \\n[#EXTEND] \*[EXTX]\c
.if !\\n[#NO_FN_MARKER] \{\
.if !r#TERMINATE \{\
.if \\n[#FN_MARKER_STYLE]=1 \{\
.ie \\n[#COLUMNS]=1 \{\
.if \\n[#FN_COUNT_FOR_COLS]=0 .PRINT \*[BU2]*\c
.if \\n[#FN_COUNT_FOR_COLS]=1 .PRINT \*[BU1]\[dg]\c
.if \\n[#FN_COUNT_FOR_COLS]=2 .PRINT \[dd]\c
.if \\n[#FN_COUNT_FOR_COLS]=3 .PRINT \*[BU2]**\c
.if \\n[#FN_COUNT_FOR_COLS]=4 .PRINT \*[BU1]\[dg]\[dg]\c
.if \\n[#FN_COUNT_FOR_COLS]=5 .PRINT \[dd]\[dd]\c
.if \\n[#FN_COUNT_FOR_COLS]=6 .PRINT \*[BU2]***\c
.if \\n[#FN_COUNT_FOR_COLS]=7 .PRINT \*[BU1]\[dg]\[dg]\[dg]\c
.if \\n[#FN_COUNT_FOR_COLS]=8 .PRINT \[dd]\[dd]\[dd]\c
.if \\n[#FN_COUNT_FOR_COLS]=9 .PRINT \*[BU2]****\c
.\}
.el \{\
.if \\n[#FN_COUNT]=0 .PRINT \*[BU2]*\c
.if \\n[#FN_COUNT]=1 .PRINT \*[BU1]\[dg]\c
.if \\n[#FN_COUNT]=2 .PRINT \[dd]\c
.if \\n[#FN_COUNT]=3 .PRINT \*[BU2]**\c
.if \\n[#FN_COUNT]=4 .PRINT \*[BU1]\[dg]\[dg]\c
.if \\n[#FN_COUNT]=5 .PRINT \[dd]\[dd]\c
.if \\n[#FN_COUNT]=6 .PRINT \*[BU2]***\c
.if \\n[#FN_COUNT]=7 .PRINT \*[BU1]\[dg]\[dg]\[dg]\c
.if \\n[#FN_COUNT]=8 .PRINT \[dd]\[dd]\[dd]\c
.if \\n[#FN_COUNT]=9 .PRINT \*[BU2]****\c
.\}
.\}
.if \\n[#FN_MARKER_STYLE]=2 \{\
.if \\n[#PRINT_STYLE]=1 \
.PRINT \
"\s-2\v'-\\n[#DOC_LEAD]u/5u'\\n+[#FN_NUMBER]\v'+\\n[#DOC_LEAD]u/5u'\s+2\c"
.if \\n[#PRINT_STYLE]=2 \
.PRINT \
"\*[SUP]\\n+[#FN_NUMBER]\*[SUPX]\c"
.\}
.\}
.\}
.\}
.ie \\n[#DIVER_FN]=2 \
.nr #SPACE_REMAINING (\\n[#PAGE_LENGTH]-\\n[#B_MARGIN])-(\\n[#PAGE_POS])
.el \
.nr #SPACE_REMAINING (\\n[#PAGE_LENGTH]-\\n[#B_MARGIN])-\\n[nl]
.if \\n[#FROM_DIVERT_FN]=1 \{\
.nr #SPACE_REMAINING \\n[#PAGE_LENGTH]-\\n[#B_MARGIN]
.rr #FROM_DIVERT_FN
.\}
.nr #PP_STYLE_PREV \\n[#PP_STYLE]
.nr #PP_STYLE 2
.if \\n[#INDENT_FIRST_PARAS] .nr #INDENT_FIRSTS 1
.INDENT_FIRST_PARAS
.ev FOOTNOTES
.ll \\n[#DOC_L_LENGTH]u
.ta \\n[.l]u
.if \\n[#COLUMNS]=1 \{\
.ll \\n[#COL_L_LENGTH]u
.ta \\n[.l]u
.\}
.if \\n[#FN_R_INDENT] \{\
.ll -\\n[#FN_R_INDENT]u
.ta \\n[.l]u
.\}
.if \\n[#FN_BR_INDENT] \{\
.ll -\\n[#FN_BR_INDENT]u
.ta \\n[.l]u
.\}
.FAMILY   \\*[$FN_FAM]
.FT       \\*[$FN_FT]
.ps  \\n[#DOC_PT_SIZE]u\\*[$FN_SIZE_CHANGE]
.vs \\n[.ps]u+\\n[#FN_AUTOLEAD]u
.QUAD     \\*[$FN_QUAD]
.if \\n[#PRINT_STYLE]=1 \{\
.TYPEWRITER
.ie \\n[#SINGLE_SPACE] .vs \\n[#ORIGINAL_DOC_LEAD]u
.el .vs \\n[#ORIGINAL_DOC_LEAD]u/2u
.QUAD LEFT
.HY OFF
.\}
.nr #FN_LEAD \\n[#LEAD]
.ie r#COUNTERS_RESET \{\
.ie \\n[#DONE_ONCE]=1 \{\
.ie \\n[#RUN_ON] \{\
.di RUNON_FN_IN_DIVER
.nr #RUNON_FN_IN_DIVER 1
.\}
.el .di FN_IN_DIVER
.\}
.el \{\
.ie \\n[#RUN_ON] \{\
.da RUNON_FN_IN_DIVER
.nr #RUNON_FN_IN_DIVER 1
.\}
.el .da FN_IN_DIVER
.\}
.\\n+[#DONE_ONCE]
.\}
.el \{\
.ie \\n[#RUN_ON] \{\
.da RUNON_FOOTNOTES
.nr #RUNON_FOOTNOTES 1
.\}
.el .da FOOTNOTES
.\}
.if \\n[#FOOTNOTE_COLOR]=1 \{\
.TRAP OFF
.nf
\m[\\*[$FOOTNOTE_COLOR]]
.EOL
.fi
.TRAP
.\}
.if \\n[#EPIGRAPH] .nr #FN_FOR_EPI 1
.if \\n[#FN_DEFER_SPACE] \{\
.if !r#TERMINATE \{\
.if !\\n[#DEFER_SPACE_ADDED] \{\
.if !\\n[#SAVED_DIVER_FN_COUNT]>1 \{\
.if \\n[#FN_MARKER_STYLE]=1 .ALD 1v
.if \\n[#RESET_FN_NUMBER] .ALD 1v
.nr #DEFER_SPACE_ADDED 1
.\}
.\}
.\}
.rr #FN_DEFER_SPACE
.rr #SAVED_DIVER_FN_COUNT
.\}
.if \\n[#DIVERTED]=3 \{\
.if \\n[#FN_COUNT]>0 \{\
\!.           RLD 1v
.\}
.\}
.if \\n+[#FN_COUNT]=1 \{\
.if !\\n[#DONT_RULE_ME]=1 \{\
.if !\\n[#FN_DEPTH] \{\
.if \\n[#PRINT_STYLE]=1 \{\
.if !\\n[#RUN_ON] .sp \\n[#DOC_LEAD]u
.\}
.ie \\n[#FN_RULE]=1 \{\
.if !\\n[#RUN_ON] \{\
.if \\n[#SINGLE_SPACE] .sp \\n[#DOC_LEAD]u
.PRINT_FOOTNOTE_RULE
.if !'\\*[$FN_SPACE]'' .sp -\\*[$FN_SPACE]
.\}
.\}
.el .sp 1v
.nr #RULED 1
.\}
.\}
.\}
.rr #DONT_RULE_ME
.ds $RESTORE_SS_VAR \\*[$SS_VAR]
.SS 0
.ie \\n[#FN_MARKERS] \{\
.if !'\\*[$FN_SPACE]'' \{\
.if \\n[#FN_COUNT]>0 .ALD \\*[$FN_SPACE]
.\}
.if !\\n[#NO_FN_MARKER] \{\
.if !r#TERMINATE \{\
.if \\n[#REF]=1 \{\
.nr #REF_FN_INDENT (u;\\*[$REF_FN_INDENT])
.ti \\n[#REF_FN_INDENT]u
.\}
.if \\n[#FN_MARKER_STYLE]=1 \{\
.ie \\n[#COLUMNS]=1 \{\
.\\n+[#FN_COUNT_FOR_COLS]
.if \\n[#FN_COUNT_FOR_COLS]=1 .PRINT *\c
.if \\n[#FN_COUNT_FOR_COLS]=2 .PRINT \[dg]\c
.if \\n[#FN_COUNT_FOR_COLS]=3 .PRINT \[dd]\c
.if \\n[#FN_COUNT_FOR_COLS]=4 .PRINT **\c
.if \\n[#FN_COUNT_FOR_COLS]=5 .PRINT \[dg]\[dg]\c
.if \\n[#FN_COUNT_FOR_COLS]=6 .PRINT \[dd]\[dd]\c
.if \\n[#FN_COUNT_FOR_COLS]=7 .PRINT ***\c
.if \\n[#FN_COUNT_FOR_COLS]=8 .PRINT \[dg]\[dg]\[dg]\c
.if \\n[#FN_COUNT_FOR_COLS]=9 .PRINT \[dd]\[dd]\[dd]\c
.if \\n[#FN_COUNT_FOR_COLS]=10 .PRINT ****\c
.\}
.el \{\
.if \\n[#FN_COUNT]=1 .PRINT *\c
.if \\n[#FN_COUNT]=2 .PRINT \[dg]\c
.if \\n[#FN_COUNT]=3 .PRINT \[dd]\c
.if \\n[#FN_COUNT]=4 .PRINT **\c
.if \\n[#FN_COUNT]=5 .PRINT \[dg]\[dg]\c
.if \\n[#FN_COUNT]=6 .PRINT \[dd]\[dd]\c
.if \\n[#FN_COUNT]=7 .PRINT ***\c
.if \\n[#FN_COUNT]=8 .PRINT \[dg]\[dg]\[dg]\c
.if \\n[#FN_COUNT]=9 .PRINT \[dd]\[dd]\[dd]\c
.if \\n[#FN_COUNT]=10 .PRINT ****\c
.\}
.\}
.if \\n[#FN_MARKER_STYLE]=2 \{\
.ds $FN_NUMBER \\n[#FN_NUMBER]
.length #FN_NUMBER_LENGTH \\*[$FN_NUMBER]
.if \\n[#COLUMNS]=1 \{\
.\\n+[#FN_COUNT_FOR_COLS]
.\}
.if \\n[#NOT_YET_ADJUSTED]=1 \{\
.nr #FN_NUMBER 1 1
.rr #NOT_YET_ADJUSTED
.\}
.if \\n[#PRINT_STYLE]=1 \{\
.ie \\n[#NO_SUPERSCRIPT] \{\
.ie \\n[#FN_NUMBER_LENGTH]<\\n[#FN_NUMBER_PLACEHOLDERS] \
.PRINT "\0(\\n[#FN_NUMBER])\|\c"
.el \
.PRINT "(\\n[#FN_NUMBER])\|\c"
.\}
.el \{\
.ie \\n[#FN_NUMBER_LENGTH]<\\n[#FN_NUMBER_PLACEHOLDERS] \
.PRINT \
"\s-2\v'-\\n[.v]u/5u'\0\\n[#FN_NUMBER]\|\v'+\\n[.v]u/5u'\s+2\|\c"
.el \
.PRINT \
"\s-2\v'-\\n[.v]u/5u'\\n[#FN_NUMBER]\|\v'+\\n[.v]u/5u'\s+2\|\c"
.\}
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.ie \\n[#FN_NUMBER_LENGTH]<\\n[#FN_NUMBER_PLACEHOLDERS] \
.PRINT "\*[SUP]\0\\n[#FN_NUMBER]\*[SUPX]\*[FU 3]\c"
.el \
.PRINT "\*[SUP]\\n[#FN_NUMBER]\*[SUPX]\*[FU 3]\c"
.\}
.\}
.\}
.\}
.\}
.el \{\
.if \\n[#FN_MARKER_STYLE]=3 \{\
.if \\n[#FN_SPACE]>0 \{\
.if !\\n[#RUN_ON]=1 \
.if \\n[#FN_COUNT]>0 .ALD \\n[#FN_SPACE]u
.\}
.if \\n[#REF]=1 \{\
.if !\\n[#RUN_ON]=1 \{\
\!.                 ti +\\n[#REF_FN_INDENT]u
.\}
.\}
.ie \\n[#FN_LN_BRACKETS]=1 \{\
.ds $FN_LINENUMBER \v'-.085m'\\*[$FN_OPEN_BRACKET]\v'.085m'
.ie \\n[#FN_MARK_2]=\\n[#FN_MARK] \
.as $FN_LINENUMBER \
\\n[#FN_MARK]\v'-.085m'\\*[$FN_CLOSE_BRACKET]\v'.085m'\h'.25m'
.el \
.as $FN_LINENUMBER \
\\n[#FN_MARK]\v'-.1m'-\v'.1m'\\n[#FN_MARK_2]\v'-.085m'\
\\*[$FN_CLOSE_BRACKET]\v'.085m'\h'.25m'
.\}
.el \{\
.ie \\n[#FN_MARK_2]=\\n[#FN_MARK] \
.ds $FN_LINENUMBER \\n[#FN_MARK]\\*[$FN_LN_SEP]
.el \
.ds $FN_LINENUMBER \
\\n[#FN_MARK]\v'-.1m'-\v'.1m'\\n[#FN_MARK_2]\\*[$FN_LN_SEP]
.\}
.\}
.if !\\n[#NO_FN_MARKER] \
.PRINT \\*[$FN_LINENUMBER]\c
.rm $FN_LINENUMBER
.nr #FN_MARK 0
.\}
.\}
.\}
.el \{\
.ie '\\$1'INDENT' \{\
.ev FOOTNOTES
.if '\\$2'L' .in (\\$3)
.if '\\$2'LEFT' .in (\\$3)
.if '\\$2'R' .nr #FN_R_INDENT (\\$3)
.if '\\$2'RIGHT' .nr #FN_R_INDENT (\\$3)
.if '\\$2'B' \{\
.nr #FN_BL_INDENT (\\$3)
.ie '\\$4'' .nr #FN_BR_INDENT \\n[#FN_BL_INDENT]
.el .nr #FN_BR_INDENT (\\$4)
.in \\n[#FN_BL_INDENT]u
.\}
.if '\\$2'BOTH' \{\
.nr #FN_BL_INDENT (\\$3)
.ie '\\$4'' .nr #FN_BR_INDENT \\n[#FN_BL_INDENT]
.el .nr #FN_BR_INDENT (\\$4)
.in \\n[#FN_BL_INDENT]u
.\}
.ev
.FOOTNOTE
.\}
.el \{\
.br
.if \\n[#DIVERTED] \{\
.if \\n[#PREV_FN_DEFERRED]=1 \{\
.if \\n[#FN_MARKER_STYLE]=1 .ALD \\n[#FN_LEAD]u
.if \\n[#RESET_FN_NUMBER] .ALD \\n[#FN_LEAD]u
.nr #PREV_FN_DEFERRED 2
.\}
.\}
.if \\n[#REF]=1 \{\
\!.           in
.\}
.di
.HY_SET 1 \\n[#DIVERSIONS_HY_MARGIN]u (\\n[#PT_SIZE]u/1000u/8u)p
.hy 14
.in 0
.ev
.if \\n[#UNDERLINE_WAS_ON_FN] \{\
.UNDERLINE
.rr #UNDERLINE_WAS_ON_FN
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.if d $RESTORE_SS_VAR .SS \\*[$RESTORE_SS_VAR]
.rm $RESTORE_SS_VAR
.\}
.rr #FN_R_INDENT
.rr #FN_BR_INDENT
.nr #PP_STYLE \\n[#PP_STYLE_PREV]
.if !\\n[#INDENT_FIRSTS] .INDENT_FIRST_PARAS OFF
.rr #INDENT_FIRSTS
.ie r#COUNTERS_RESET .rr #COUNTERS_RESET
.el \{\
.nr #GET_DEPTH 1
.if (\\n[#SPACE_REMAINING]-1)<=(\\n[.v]) \{\
.if !\\n[#PREV_FN_DEFERRED]=1 \{\
.nr #FN_DEFER 1
.nr #FN_DEPTH +\\n[#DIVER_DEPTH]
.rr #GET_DEPTH
.if \\n[#DIVER_FN]=2 \{\
.nr #SAVED_DIVER_FN_COUNT \\n[#FN_COUNT]
.rr #DIVER_FN
.\}
.\}
.\}
.if \\n[#GET_DEPTH]=1 \{\
.nr #SAVED_FN_DEPTH_1 \\n[#FN_DEPTH]
.nr #FN_DEPTH +\\n[#DIVER_DEPTH]
.if \\n[#RUN_ON]=1 \{\
.if \\n[#RUNON_FOOTNOTES]   .unformat RUNON_FOOTNOTES
.if \\n[#RUNON_FN_IN_DIVER] .unformat RUNON_FN_IN_DIVER
.ev FOOTNOTES
.di FOOTNOTES
.ie \\n[#FN_RULE]=0 .RLD 1v
.el \{\
\v'-\\n[#FN_RULE_ADJ]u-\\n[#FN_RULE_WEIGHT_ADJ]u'\
\D't \\n[#FN_RULE_WEIGHT]'\
\h'-\\n[#FN_RULE_WEIGHT]u'\
\D'l \\n[#FN_RULE_LENGTH]u 0'\
\v'+\\n[#FN_RULE_ADJ]u+\\n[#FN_RULE_WEIGHT_ADJ]u'
.\}
.br
.if \\n[#RUNON_FOOTNOTES] \{\
.RUNON_FOOTNOTES
.rr #RUNON_FOOTNOTES
.\}
.if \\n[#RUNON_FN_IN_DIVER] \{\
.RUNON_FN_IN_DIVER
.rr #RUNON_FN_IN_DIVER
.\}
.br
.di
.ev
.nr #FN_DEPTH \\n[#DIVER_DEPTH]
.nr #SAVED_VFP 0+\\n[#VARIABLE_FOOTER_POS]
.nr #VARIABLE_FOOTER_POS 0-\\n[#B_MARGIN]u
.\}
.nr #SAVED_FN_DEPTH_2 \\n[#FN_DEPTH]
.if \\n[#FN_DEFER] \{\
.if \\n[#FN_COUNT]=2 \{\
.ie \\n[#COLUMNS] \{\
.if !\\n[#FROM_FOOTER] \{\
.if \\n[#FN_DEFER]=1 .nr #FN_DEFER_SPACE 1
.if \\n[#FN_COUNT_FOR_COLS]>=1 .rr #FN_DEFER_SPACE
.if \\n[#FROM_HEADER] .nr #FN_DEFER_SPACE 1
.\}
.\}
.el .nr #FN_DEFER_SPACE 1
.\}
.rr #FN_DEFER
.\}
.if \\n[#FN_DEPTH]>\\n[#SPACE_REMAINING] \{\
.nr #FN_LINES 0 1
.while (\\n+[#FN_LINES]*\\n[#FN_LEAD])<\\n[#SPACE_REMAINING] \{\
.nr #FN_DEPTH (\\n[#FN_LINES]*\\n[#FN_LEAD])
.\}
.nr #VFP_DIFF \\n[#FN_DEPTH]-\\n[#SAVED_FN_DEPTH_1]
.nr #OVERFLOW 1
.if \\n[#SAVED_FN_DEPTH_1]=0 \{\
.if \\n[#FN_DEPTH]=\\n[#FN_LEAD] \{\
.nr #FN_DEFER 2
.nr #FN_DEPTH \\n[#SAVED_FN_DEPTH_2]
.rr #OVERFLOW
.\}
.\}
.\}
.ie \\n[#OVERFLOW]=1 \{\
.if \\n[#RUN_ON] \{\
.rr #VARIABLE_FOOTER_POS
.nr #VARIABLE_FOOTER_POS \\n[#SAVED_VFP]
.\}
.ie \\n[#FN_COUNT]=1 \{\
.ie \\n[#RULED]=1 \{\
.ie \\n[#COLUMNS]=1 \{\
.ie \\n[#COL_NUM]=\\n[#NUM_COLS] \{\
.ie \\n[#FROM_FOOTER] \{\
.ie \\n[#FN_COUNT_FOR_COLS]>1 \{\
.nr #FN_DEPTH -\\n[#FN_DEPTH]
.if \\n[#DIVERTED]=1 .nr #DIVERTED 3
.if !\\n[#PREV_FN_DEFERRED]=1 \
.nr #FN_DEPTH -\\n[#VFP_DIFF]
.\}
.el \{\
.nr #VARIABLE_FOOTER_POS -\\n[#FN_DEPTH]
.if \\n[#DIVERTED]=1 .nr #DIVERTED 3
.\}
.\}
.el .nr #VARIABLE_FOOTER_POS -(\\n[#FN_DEPTH])
.\}
.el .nr #VARIABLE_FOOTER_POS -(\\n[#FN_DEPTH])
.\}
.el .nr #VARIABLE_FOOTER_POS -(\\n[#FN_DEPTH])
.\}
.el \{\
.nr #VARIABLE_FOOTER_POS -\\n[#VFP_DIFF]
.if \\n[#DIVERTED]=1 .nr #DIVERTED 3
.if !\\n[#PREV_FN_DEFERRED]=1 \{\
.ie \\n[#COLUMNS]=1 \{\
.if !\\n[#FROM_FOOTER] .
.\}
.el .nr #FN_DEPTH -\\n[#VFP_DIFF]
.\}
.if \\n[#DIVERTED]=3 \{\
.if !\\n[#PREV_FN_DEFERRED] \{\
.if !\\n[#FROM_FOOTER] \{\
.if \\n[#FN_COUNT]=1 \{\
.if !\\n[#VFP_DIFF] \{\
.if \\n[#FN_MARKER_STYLE]=1 \{\
.da FOOTNOTES
\!.                                            ALD \\n[#FN_LEAD]u
.di
.\}
.if \\n[#RESET_FN_NUMBER] \{\
.da FOOTNOTES
\!.                                            ALD \\n[#FN_LEAD]u
.di
.\}
.\}
.\}
.\}
.\}
.\}
.\}
.nr #FN_DEPTH \\n[#SAVED_FN_DEPTH_1]+\\n[#VFP_DIFF]
.\}
.el \{\
.nr #VARIABLE_FOOTER_POS -\\n[#VFP_DIFF]
.nr #FN_DEPTH \\n[#SAVED_FN_DEPTH_1]+\\n[#VFP_DIFF]
.\}
.rr #OVERFLOW
.rr #RULED
.\}
.el \{\
.nr #VARIABLE_FOOTER_POS -\\n[#DIVER_DEPTH]
.if \\n[#PREV_FN_DEFERRED]=1 \{\
.if \\n[#DIVERTED] \{\
.if !\\n[#FN_DEPTH]=\\n[#SAVED_FN_DEPTH_1] \{\
.nr #FN_DEPTH +\\n[#FN_LEAD]
.nr #VARIABLE_FOOTER_POS -\\n[#FN_LEAD]
.rr #PREV_FN_DEFERRED
.\}
.\}
.\}
.if \\n[#FN_COUNT]>1 \{\
.nr #NO_BACK_UP 1
.rr #DIVERTED
.rr #RULED
.\}
.\}
.\}
.\}
.ch FOOTER \\n[#VARIABLE_FOOTER_POS]u
.if \\n[#FN_DEFER] \{\
.nr #VARIABLE_FOOTER_POS 0-\\n[#B_MARGIN]u
.ch FOOTER \\n[#VARIABLE_FOOTER_POS]u
.\}
.\}
.nr #NO_FN_MARKER 0
.\}
.if \\n[#NUM_ARGS]=2 \{\
.if '\\$2'BREAK' .BR
.if '\\$2'BR' .BR
.\}
.END
.MAC DIVER_FN_1_PRE END
.nr #RESET_FN_COUNTERS 1
.nr #COUNTERS_RESET 1
.if \\n[#DONE_ONCE]=1 \{\
.if \\n[#FN_DEFER] \{\
.if \\n[#SAVED_DIVER_FN_COUNT]=1 \{\
.ie \\n[#COLUMNS]=1 \
.if \\n[#COL_NUM]=\\n[#NUM_COLS] .nr #FN_DEFER_SPACE 1
.el .nr #FN_DEFER_SPACE 1
.\}
.\}
.if \\n[#FN_MARKER_STYLE]=1 \{\
.if \\n[#FN_COUNT]>0 .nr #FN_COUNT 0 1
.if \\n[#COLUMNS]=1 \
.if \\n[#COL_NUM]=\\n[#NUM_COLS] .nr #FN_COUNT_FOR_COLS 0 1
.\}
.if \\n[#FN_MARKER_STYLE]=2 \{\
.if \\n[#RESET_FN_NUMBER]=1 \{\
.ie \\n[#COLUMNS]=1 \
.if \\n[#COL_NUM]=\\n[#NUM_COLS] .nr #FN_NUMBER 0 1
.el .nr #FN_NUMBER 0 1
.\}
.\}
.\}
.END
.MAC DIVER_FN_2_PRE END
.nr #RESET_FN_COUNTERS 2
.END
.MAC DIVER_FN_2_POST END
.if \\n[#DONE_ONCE]=1 \{\
.if \\n[#FN_MARKER_STYLE]=1 \{\
.if \\n[#FN_COUNT]=0 .nr #DONT_RULE_ME 1
.if \\n[#FN_COUNT]>0 .nr #FN_COUNT 0 1
.if \\n[#COLUMNS]=1 \{\
.if \\n[#COL_NUM]=\\n[#NUM_COLS] .nr #FN_COUNT_FOR_COLS 0 1
.if !\\n[#COL_NUM]=\\n[#NUM_COLS] .
.\}
.\}
.if \\n[#FN_MARKER_STYLE]=2 \{\
.if \\n[#FN_COUNT]=0 .nr #DONT_RULE_ME 1
.if \\n[#FN_COUNT]>0 .nr #FN_COUNT 0 1
.if \\n[#RESET_FN_NUMBER]=1 \{\
.ie \\n[#COLUMNS]=1 \
.if \\n[#COL_NUM]=\\n[#NUM_COLS] .nr #FN_NUMBER 0 1
.el .nr #FN_NUMBER 0 1
.\}
.\}
.\}
.END
.MAC FN_OVERFLOW_TRAP END
.if \\n[#FN_COUNT] \{\
.di FN_OVERFLOW
.ie !\\n[#NO_BACK_UP]=1 \{\
.if \\n[#PREV_FN_DEFERRED] \{\
.ie \\n[#COLUMNS]=1 \{\
.if \\n[#FROM_FOOTER] \{\
.if \\n[#PREV_FN_DEFERRED] \{\
.if !\\n[#COL_NUM]=\\n[#NUM_COLS] \
.rr #PREV_FN_DEFERRED
.\}
.\}
.if !\\n[#FROM_FOOTER] \{\
.if !\\n[#COL_NUM]=\\n[#NUM_COLS] \{\
.if !\\n[#LAST_FN_COUNT_FOR_COLS]>1 \{\
\!.                       RLD \\n[#FN_LEAD]u
.\}
.\}
.\}
.\}
.el \{\
\!.              RLD \\n[#FN_LEAD]u
.\}
.\}
.\}
.el \{\
.rr #NO_BACK_UP
.rr #PREV_FN_DEFERRED
.\}
.\}
.END
.MAC PROCESS_FN_LEFTOVER END
.if \\n[#PREV_FN_DEFERRED]=2 \
.if \\n[#FN_COUNT_AT_FOOTER]>1 .rr #PREV_FN_DEFERRED
.ie !\\n[#FN_DEFER] \{\
.nr #FN_COUNT 0 1
.nr #FN_DEPTH 0
.nr #VARIABLE_FOOTER_POS 0-\\n[#B_MARGIN]
.\}
.el \{\
.if \\n[#FN_DEFER]=1 .nr #VARIABLE_FOOTER_POS -\\n[#FN_DEPTH]
.if \\n[#FN_DEFER]=2 \{\
.nr #FN_DEPTH 0
.nr #VARIABLE_FOOTER_POS 0-\\n[#B_MARGIN]
.\}
.\}
.nr #SPACE_REMAINING 0
.ch FOOTER -\\n[#B_MARGIN]u
.if \\n[#FN_DEFER] \{\
.nr #NO_FN_MARKER 1
.FOOTNOTE
.nf
.FOOTNOTE OFF
.ie \\n[#COLUMNS]=1 \{\
.if \\n[#COL_NUM]=\\n[#NUM_COLS] \{\
.if !\\n[#FROM_FOOTER] \{\
.if \\n[#FN_COUNT_FOR_COLS]=1 .nr #PREV_FN_DEFERRED 1
.\}
.\}
.\}
.el .nr #PREV_FN_DEFERRED 1
.\}
.if !\\n[#FN_DEFER] \
.if \\n[#FN_OVERFLOW_DEPTH] .DIVERT_FN_LEFTOVER
.ie \\n[#COLUMNS]=1 \{\
.if \\n[#COL_NUM]>1 \
.if \\n[#COL_NUM]=\\n[#NUM_COLS] .nr #FN_COUNT 0 1
.\}
.el .nr #FN_COUNT 0 1
.if \\n[#DIVER_FN]=2 .rr #DIVER_FN
.rr #FROM_DIVERT_FN
.END
.MAC DIVERT_FN_LEFTOVER END
.nr #NO_FN_MARKER 1
.nr #DIVERTED 1
.FOOTNOTE
.nf
.FN_OVERFLOW
.FOOTNOTE OFF
.if \\n[#PREV_FN_DEFERRED] \{\
.nr #FN_DEPTH -\\n[#FN_LEAD]
.nr #VARIABLE_FOOTER_POS +\\n[#FN_LEAD]
.ch FOOTER \\n[#VARIABLE_FOOTER_POS]u
.if \\n[#PREV_FN_DEFERRED]=2 \{\
.nr #PREV_FN_DEFERRED 1
.rr #DIVERTED
.\}
.\}
.rr #FN_OVERFLOW_DEPTH
.END
.MAC PROCESS_FN_IN_DIVER END
.nr #SPACE_REMAINING 0
.ch FOOTER -\\n[#B_MARGIN]u
.nr #NO_FN_MARKER 1
.if !\\n[#RESET_FN_COUNTERS]=2 .rr #RESET_FN_COUNTERS
.FOOTNOTE
.if \\n[#FN_OVERFLOW_DEPTH] .nf
.ie dRUNON_FN_IN_DIVER \{\
.RUNON_FN_IN_DIVER
.rm RUNON_FN_IN_DIVER
.\}
.el \{\
.nf
.FN_IN_DIVER
.\}
.FOOTNOTE OFF
.rr #DIVER_FN
.END
.MAC ENDNOTE_PT_SIZE END
.nr #EN_PS (p;\\$1)
.END
.MAC _LEAD END
.if '\\$0'BIBLIOGRAPHY_LEAD' .ds $SECTION BIB
.if '\\$0'ENDNOTE_LEAD' .ds $SECTION EN
.if '\\$0'TOC_LEAD' .ds $SECTION TOC
.ds $\\*[$SECTION]_LEAD \\$1
.ds $ADJUST_\\*[$SECTION]_LEAD \\$2
.if !\\n[#OK_PROCESS_LEAD] .return
.nr #\\*[$SECTION]_LEAD (p;\\$1)
.rr #ADJ_\\*[$SECTION]_LEAD
.als \\*[$SECTION]_LEAD DOC_LEAD
.if '\\$2'ADJUST' \{\
.nr #ORIG_DOC_LEAD \\n[#UNADJUSTED_DOC_LEAD]
.nr #RESTORE_ADJ_DOC_LEAD \\n[#ADJ_DOC_LEAD]
.nr #ADJ_DOC_LEAD 1
.nr #ADJ_\\*[$SECTION]_LEAD 1
.nr #NO_TRAP_RESET 1
.\\*[$SECTION]_LEAD \\n[#\\*[$SECTION]_LEAD]u ADJUST
.nr #\\*[$SECTION]_LEAD \\n[#DOC_LEAD]
.DOC_LEAD \\n[#ORIG_DOC_LEAD]u
.rr #NO_TRAP_RESET
.nr #ADJ_DOC_LEAD \\n[#RESTORE_ADJ_DOC_LEAD]
.rr #ORIG_DOC_LEAD
.\}
.END
.ALIAS BIBLIOGRAPHY_LEAD _LEAD
.ALIAS ENDNOTE_LEAD _LEAD
.ALIAS TOC_LEAD _LEAD
.MAC ENDNOTE_SPACING END
.ie \B'\\$1' .ds $EN_SPACE \\$1
.el .rm $EN_SPACE
.END
.MAC ENDNOTES_HDRFTR_CENTER END
.ie '\\$1'' .nr #EN_HDRFTR_CENTER 1
.el .rr #EN_HDRFTR_CENTER
.END
.MAC ENDNOTE_STRING END
.ds $EN_STRING \\$1
.END
.MAC ENDNOTE_STRING_ADVANCE END
.nr #EN_STRING_ADVANCE (\\$1)
.END
.MAC ENDNOTE_STRING_CAPS END
.ie '\\$1'' .nr #EN_STRING_CAPS 1
.el .nr #EN_STRING_CAPS 0
.END
.MAC ENDNOTE_TITLE END
.ds $EN_TITLE \\$1
.END
.MAC ENDNOTE_MARKER_STYLE END
.if '\\$1'NUMBER' .nr #EN_MARKER_STYLE 1
.if '\\$1'LINE' \{\
.nr #EN_MARKER_STYLE 2
.if !\\n[#EN_LN_SEP] \
.if !\\n[#EN_LN_BRACKETS] .ENDNOTE_LINENUMBER_BRACKETS SQUARE
.\}
.if '\\$1'SUPERSCRIPT' .nr #EN_MARKER_STYLE 3
.END
.ds EN_MARK \R'#EN_MARK \En[ln]'
.MAC ENDNOTE_LINENUMBER_SEPARATOR END
.rr #EN_LN_BRACKETS
.nr #EN_LN_SEP 1
.ds $EN_LN_SEP "\\$1
.END
.MAC ENDNOTE_LINENUMBER_BRACKETS END
.rr #EN_LN_SEP
.nr #EN_LN_BRACKETS 1
.if '\\$1'PARENS' \{\
.ds $EN_OPEN_BRACKET (
.ds $EN_CLOSE_BRACKET )
.\}
.if '\\$1'(' \{\
.ds $EN_OPEN_BRACKET (
.ds $EN_CLOSE_BRACKET )
.\}
.if '\\$1'SQUARE' \{\
.ds $EN_OPEN_BRACKET [
.ds $EN_CLOSE_BRACKET ]
.\}
.if '\\$1'[' \{\
.ds $EN_OPEN_BRACKET [
.ds $EN_CLOSE_BRACKET ]
.\}
.if '\\$1'BRACES' \{\
.ds $EN_OPEN_BRACKET {
.ds $EN_CLOSE_BRACKET }
.\}
.if '\\$1'{' \{\
.ds $EN_OPEN_BRACKET {
.ds $EN_CLOSE_BRACKET }
.\}
.END
.MAC ENDNOTE_LINENUMBER_GAP END
.nr #EN_LN_GAP (u;\\$1)
.END
.MAC ENDNOTE_NUMBERS_ALIGN END
.if '\\$1'LEFT' \{\
.rr #EN_NUMBERS_ALIGN_RIGHT
.nr #EN_NUMBERS_ALIGN_LEFT 1
.\}
.if '\\$1'RIGHT' \{\
.rr #EN_NUMBERS_ALIGN_LEFT
.nr #EN_NUMBERS_ALIGN_RIGHT 1
.\}
.nr #EN_NUMBER_PLACEHOLDERS \\$2
.END
.MAC ENDNOTE_PARA_INDENT END
.nr #EN_PP_INDENT (\\$1)
.END
.MAC ENDNOTES_NO_COLUMNS END
.ie '\\$1'' .nr #EN_NO_COLS 1
.el .rr #EN_NO_COLS
.END
.MAC ENDNOTES_NO_FIRST_PAGENUM END
.ie '\\$1'' .nr #EN_NO_FIRST_PN 1
.el .rr #EN_NO_FIRST_PN
.END
.MAC ENDNOTES_ALLOWS_HEADERS END
.ie '\\$1'' .nr #EN_ALLOWS_HEADERS 1
.el \{\
.ie '\\$1'ALL' \{\
.nr #EN_ALLOWS_HEADERS 1
.nr #EN_ALLOWS_HEADERS_ALL 1
.\}
.el \{\
.nr #EN_ALLOWS_HEADERS 0
.nr #EN_ALLOWS_HEADERS_ALL 0
.\}
.\}
.END
.MAC ENDNOTES_PAGENUM_STYLE END
.ds $EN_PN_STYLE \\$1
.END
.MAC ENDNOTES_FIRST_PAGENUMBER END
.nr #EN_FIRST_PN \\$1
.END
.MAC SINGLESPACE_ENDNOTES END
.if \\n[#PRINT_STYLE]=1 \{\
.ie \\n[#SINGLE_SPACE] \{\
.nr #EN_SINGLESPACE 1
.rr #IGNORE
.if \\n[#OK_PROCESS_LEAD] \{\
.ENDNOTE_LEAD 12 ADJUST
.nr #IGNORE 1
.\}
.\}
.el \{\
.ie '\\$1'' \{\
.nr #EN_SINGLESPACE 1
.rr #IGNORE
.if \\n[#OK_PROCESS_LEAD] \{\
.ENDNOTE_LEAD 12 ADJUST
.nr #IGNORE 1
.\}
.\}
.el \{\
.rr #EN_SINGLESPACE
.rr #IGNORE
.if \\n[#OK_PROCESS_LEAD] \{\
.ENDNOTE_LEAD 24 ADJUST
.nr #IGNORE 1
.\}
.\}
.\}
.\}
.END
.MAC ENDNOTE_PARA_SPACE END
.ie '\\$1'' .nr #EN_PP_SPACE 1
.el .rr #EN_PP_SPACE
.END
.MAC ENDNOTE END
.ie '\\$1'' \{\
.nr #ENDNOTE 1
.ie !\\n[#EN_MARKER_STYLE]=2 \{\
.if \\n[#CONDENSE] .nop \*[CONDX]\c
.if \\n[#EXTEND] .nop \*[EXTX]\c
.if \\n[#UNDERLINE_ON] \{\
.nr #UNDERLINE_WAS_ON 1
.UNDERLINE OFF
.\}
.if \\n[#PRINT_STYLE]=1 \{\
.if \\n[#SLANT_ON] \{\
.nr #SLANT_WAS_ON 1
.nop \*[SLANTX]\c
.\}
.PRINT \
"\s-2\v'-\\n[#DOC_LEAD]u/5u'\\n+[#EN_NUMBER]\v'+\\n[#DOC_LEAD]u/5u'\s+2\c"
.\}
.if \\n[#PRINT_STYLE]=2 .PRINT \*[SUP]\\n+[#EN_NUMBER]\*[SUPX]\c
.\}
.el \{\
.ie r#EN_NUMBER .nr #EN_NUMBER \\n[#EN_NUMBER]+1
.el .nr #EN_NUMBER 1 1
.if !\\n[#LINENUMBERS] \{\
.tm1 "[mom]: Line numbering must be enabled with NUMBER_LINES when
.tm1 "       ENDNOTE_MARKER_STYLE is LINE.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.if \\n[#EN_MARK]=0 .nr #EN_MARK \\n[ln]
.nr #EN_MARK_2 \\n[ln]
.if '\\n[.z]'P_QUOTE' \{\
.nr #EN_MARK -1
.nr #EN_MARK_2 -1
.\}
.\}
.nr #PP_STYLE_PREV \\n[#PP_STYLE]
.nr #PP_STYLE 1
.if \\n[#INDENT_FIRST_PARAS] .nr #INDENT_FIRSTS 1
.INDENT_FIRST_PARAS
.ev EN
.da END_NOTES
.LL \\n[#DOC_L_LENGTH]u
.ta \\n[.l]u
.if \\n[#COLUMNS] \{\
.ie \\n[#EN_NO_COLS] .LL \\n[#DOC_L_LENGTH]u
.el .LL \\n[#COL_L_LENGTH]u
.ta \\n[.l]u
.\}
\!.     if \\\\n[.vpt]=0 .vpt
\!.     ne 3
.vs \\n[#EN_LEAD]u
.if \\n[#EN_NUMBER]=1 \{\
.if \\n[#PRINT_STYLE]=1 .TYPEWRITER
.if \\n[#PRINT_STYLE]=2 \{\
.FAMILY  \\*[$EN_TITLE_FAM]
.FT      \\*[$EN_TITLE_FT]
.ps \\n[#EN_PS]u\\*[$EN_TITLE_SIZE_CHANGE]
.\}
.sp
.if !'\\*[$EN_TITLE]'' \{\
.if '\\*[$EN_TITLE_QUAD]'L'      .LEFT
.if '\\*[$EN_TITLE_QUAD]'LEFT'   .LEFT
.if '\\*[$EN_TITLE_QUAD]'C'      .CENTER
.if '\\*[$EN_TITLE_QUAD]'CENTER' .CENTER
.if '\\*[$EN_TITLE_QUAD]'CENTRE' .CENTER
.if '\\*[$EN_TITLE_QUAD]'R'      .RIGHT
.if '\\*[$EN_TITLE_QUAD]'RIGHT'  .RIGHT
.ie \\n[#EN_TITLE_UNDERLINE] \{\
.nr #FROM_EN_TITLE 1
.UNDERSCORE "\\*[$EN_TITLE]"
.rr #FROM_EN_TITLE
.\}
.el .PRINT "\\*[$EN_TITLE]"
.\}
.\}
.ps \\n[#EN_PS]u
.nr #REF_EN_INDENT (u;\\*[$REF_EN_INDENT])
.if \\n[#PRINT_STYLE]=1 \{\
.TYPEWRITER
.if \\n[#EN_NUMBER]=1 .sp
.if \\n[#EN_MARKER_STYLE]=3 .ps -2
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.if \\n[#EN_NUMBER]=1 \
.if !'\\*[$EN_TITLE]'' .sp .5v
.if \\n[#EN_MARKER_STYLE]=1 \{\
.FAMILY  \\*[$EN_NUMBER_FAM]
.FT      \\*[$EN_NUMBER_FT]
.ps \\n[#EN_PS]u\\*[$EN_NUMBER_SIZE_CHANGE]
.\}
.if \\n[#EN_MARKER_STYLE]=2 \{\
.FAMILY  \\*[$EN_LN_FAM]
.FT      \\*[$EN_LN_FT]
.ps \\n[#EN_PS]u\\*[$EN_LN_SIZE_CHANGE]
.\}
.if \\n[#EN_MARKER_STYLE]=3 \{\
.FAMILY  \\*[$EN_NUMBER_FAM]
.FT      \\*[$EN_NUMBER_FT]
.ps \\n[#PT_SIZE_IN_UNITS]u*6u/10u
.\}
.\}
.if \\n[#EN_MARKER_STYLE]=2 \{\
.ie \\n[#EN_LN_BRACKETS]=1 \{\
.ds $EN_LINENUMBER \v'-.085m'\\*[$EN_OPEN_BRACKET]\v'.085m'
.ie \\n[#EN_MARK_2]=\\n[#EN_MARK] .as $EN_LINENUMBER \
\\n[#EN_MARK]\v'-.085m'\\*[$EN_CLOSE_BRACKET]\v'.085m'
.el .as $EN_LINENUMBER \
\\n[#EN_MARK]\v'-.1m'-\v'.1m'\\n[#EN_MARK_2]\v'-.085m'\
\\*[$EN_CLOSE_BRACKET]\v'.085m'
.\}
.el \{\
.ie \\n[#EN_MARK_2]=\\n[#EN_MARK] \
.ds $EN_LINENUMBER \
\\n[#EN_MARK]\\*[$EN_LN_SEP]
.el \
.ds $EN_LINENUMBER \
\\n[#EN_MARK]\v'-.1m'-\v'.1m'\\n[#EN_MARK_2]\\*[$EN_LN_SEP]
.\}
.nr #EN_MARK 0
.\}
.vpt 0
.ie \\n[#EN_NUMBERS_ALIGN_RIGHT] .RIGHT
.el .LEFT
.if \\n[#EN_MARKER_STYLE]=1 \
.nr #EN_NUMBER_L_LENGTH \w'\0'*\\n[#EN_NUMBER_PLACEHOLDERS]+\w'.'
.if \\n[#EN_MARKER_STYLE]=2 \{\
.ie \\n[#EN_LN_BRACKETS]=1 .nr #EN_NUMBER_L_LENGTH \
(\w'\0'*(\\n[#EN_NUMBER_PLACEHOLDERS]*2))+\w'-[]'
.el .nr #EN_NUMBER_L_LENGTH \
(\w'\0'*(\\n[#EN_NUMBER_PLACEHOLDERS]*2))+\w'-\\*[$EN_LN_SEP]'
.RIGHT
.\}
.if \\n[#EN_MARKER_STYLE]=3 \{\
.nr #EN_NUMBER_L_LENGTH \
\w'\0'*\\n[#EN_NUMBER_PLACEHOLDERS]+.15m
.RIGHT
.\}
.ie \\n[#REF]=1 \
.ll \\n[#EN_NUMBER_L_LENGTH]u+\\n[#REF_EN_INDENT]u
.el .ll \\n[#EN_NUMBER_L_LENGTH]u
.if \\n[#EN_MARKER_STYLE]=1 \{\
.if \\n[#REF]=1 .ti \\n[#REF_EN_INDENT]u
.nop \En[#EN_NUMBER].
.\}
.if \\n[#EN_MARKER_STYLE]=2 \{\
.nop \\*[$EN_LINENUMBER]
.rm $EN_LINENUMBER
.\}
.if \\n[#EN_MARKER_STYLE]=3 \{\
.ps
.ie \\n[#PRINT_STYLE]=1 \{\
.nop \
\s-2\v'-\\n[#DOC_LEAD]u/7u'\\n[#EN_NUMBER]\|\v'+\\n[#DOC_LEAD]u/7u'\s+2
.\}
.el .nop \E*[SUP]\\n[#EN_NUMBER]\E*[SUPX]\h'.15m'
.\}
.EOL
.ll
.nr #EN_FIGURE_SPACE \w'\0'
.if \\n[#EN_MARKER_STYLE]=1 \{\
.ie \\n[#REF]=1 .ti \
\\n[#EN_NUMBER_L_LENGTH]u+\\n[#REF_EN_INDENT]u+\\n[#EN_FIGURE_SPACE]u
.el .in \
\\n[#EN_NUMBER_L_LENGTH]u+\\n[#EN_FIGURE_SPACE]u
.\}
.if \\n[#EN_MARKER_STYLE]=2 \{\
.ie \\n[#REF]=1 .ti \
\\n[#EN_NUMBER_L_LENGTH]u+\\n[#REF_EN_INDENT]u+\\n[#EN_LN_GAP]u
.el .ti \
\\n[#EN_NUMBER_L_LENGTH]u+\\n[#EN_LN_GAP]u
.\}
.if \\n[#EN_MARKER_STYLE]=3 \{\
.ie \\n[#REF]=1 .ti \
\\n[#EN_NUMBER_L_LENGTH]u+\\n[#REF_EN_INDENT]u+\w'\|'u
.el .in \
\\n[#EN_NUMBER_L_LENGTH]u
.\}
.nr #EN_TEXT_INDENT \\n[.i]
.QUAD \\*[$EN_QUAD]
.vpt 1
.if \\n[#PRINT_STYLE]=1 .TYPEWRITER
.if \\n[#PRINT_STYLE]=2 \{\
.FAMILY  \\*[$EN_FAM]
.FT      \\*[$EN_FT]
.ps \\n[#EN_PS]u
.\}
.\}
.el \{\
\!.     ie \\n[#EN_NUMBER]=\\\\n[#LAST_EN] .vpt 0
\!.     el .br
.if \\n[#PRINT_STYLE]=2 .sp \\*[$EN_SPACE]
.in 0
.if \\n[#EN_MARKER_STYLE]=2 \{\
\!.        in 0
.\}
.da
.if \\n[#PRINT_STYLE]=2 \{\
.if d$RESTORE_SS_VAR .SS \\*[$RESTORE_SS_VAR]
.rm $RESTORE_SS_VAR
.\}
.ev
.nr #PP_STYLE \\n[#PP_STYLE_PREV]
.if !\\n[#INDENT_FIRSTS] .INDENT_FIRST_PARAS OFF
.rr #INDENT_FIRSTS
.rr #ENDNOTE
.if \\n[#UNDERLINE_WAS_ON] \{\
.rr #UNDERLINE_WAS_ON
.UNDERLINE
.\}
.if \\n[#SLANT_WAS_ON] \{\
.rr #SLANT_WAS_ON
\*[SLANT]\c
.\}
.\}
.if \\n[#NUM_ARGS]=2 \{\
.if '\\$2'BREAK' .BR
.if '\\$2'BR' .BR
.\}
.END
.MAC ENDNOTES END
.if \\n[defer] .NEWPAGE
.nr #LAST_EN \\n[#EN_NUMBER]
.nr #ENDNOTES 1
.nr #EN_FIRST_PAGE 1
.nr #HEADER_STATE \\n[#HEADERS_ON]
.ds $RESTORE_PAGENUM_STYLE \\*[$PAGENUM_STYLE]
.if \\n[#LINENUMBERS]=1 \{\
.NUMBER_LINES OFF
.nr #LINENUMBERS 2
.\}
.if \\n[#HEADERS_ON]=1 \
.if !\\n[#EN_ALLOWS_HEADERS_ALL] .HEADERS OFF
.if \\n[#HEADER_STATE]=1 \{\
.ie \\n[#EN_HDRFTR_CENTER]=1 .
.el .rm $HDRFTR_CENTER
.\}
.ie !\\n[#SUSPEND_PAGINATION] \{\
.if \\n[#PAGINATE]=1 \{\
.if \\n[#PAGE_NUM_V_POS]=1 \{\
.PAGENUM_STYLE \\*[$EN_PN_STYLE]
.if \\n[#EN_FIRST_PN] .PAGENUMBER \\n[#EN_FIRST_PN]-1
.if r #EN_NO_FIRST_PN .nr #PAGINATE 0
.\}
.\}
.\}
.el \{\
.ie \\n[#PAGE_NUM_V_POS]=2 .nr #PAGINATE 1
.el .nr #PAGINATE 0
.\}
.if \\n[#FOOTERS_ON]=1 \{\
.if !'\\*[$HDRFTR_CENTER_OLD]'' \
.ds $HDRFTR_CENTER \\*[$HDRFTR_CENTER_OLD]
.\}
.NEWPAGE
.if \\n[#FOOTERS_ON]=1 \{\
.ds $HDRFTR_CENTER \\*[$HDRFTR_CENTER_NEW]
.rm $HDRFTR_CENTER_OLD
.rm $HDRFTR_CENTER_NEW
.\}
.ie !\\n[#SUSPEND_PAGINATION] \{\
.if \\n[#PAGE_NUM_V_POS]=1 \{\
.if r #EN_NO_FIRST_PN \
.if \\n[#PAGINATION_STATE]=1 .nr #PAGINATE 1
.\}
.\}
.el \
.if \\n[#PAGE_NUM_V_POS]=2 .nr #PAGINATE 0
.rr #PAGINATION_STATE
.PAGENUM_STYLE \\*[$EN_PN_STYLE]
.if \\n[#EN_FIRST_PN] .PAGENUMBER \\n[#EN_FIRST_PN]
.if \\n[#HEADER_STATE]=1 \
.if \\n[#EN_ALLOWS_HEADERS] .HEADERS
.nr #TOC_ENTRY_PN \\n%+\\n[#PAGE_NUM_ADJ]
.af #TOC_ENTRY_PN \\g[#PAGENUMBER]
.ds $TOC_TITLE_ITEM \\*[$EN_STRING]\|
.PDF_BOOKMARK 1 \\*[$EN_STRING]
.TITLE_TO_TOC
.if \\n[#PRINT_STYLE]=1 .vs \\n[#EN_LEAD]u
.if \\n[#PRINT_STYLE]=2 \{\
.if \\n[#EN_NO_COLS] \{\
.if \\n[#COLUMNS] .nr #COLUMNS_WERE_ON 1
.nr #COLUMNS 0
.\}
.nr #RESTORE_DOC_LEAD \\n[#DOC_LEAD]
.ie \\n[#ADJ_EN_LEAD] .nr #DOC_LEAD \\n[#EN_LEAD]
.el .DOC_LEAD \\n[#EN_LEAD]u
.\}
.vpt 0
.ie r#EN_STRING_ADVANCE .sp |\\n[#EN_STRING_ADVANCE]u-1v
.el .sp |\\n[#T_MARGIN]u-1v
.vpt 1
.mk ec
.if \\n[#SLANT_ON] \{\
\*[SLANTX]\c
.\}
.sp
.if !'\\*[$EN_STRING]'' \{\
.if \\n[#PRINT_STYLE]=1 \{\
.TYPEWRITER
.vs \\n[#EN_LEAD]u
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.LL \\n[#DOC_L_LENGTH]u
.ta \\n[.l]u
.if \\n[#COLUMNS] \{\
.ie \\n[#EN_NO_COLS] .LL \\n[#DOC_L_LENGTH]u
.el .LL \\n[#COL_L_LENGTH]u
.ta \\n[.l]u
.\}
.FAMILY  \\*[$EN_STRING_FAM]
.FT      \\*[$EN_STRING_FT]
.ps \\n[#EN_PS]u\\*[$EN_STRING_SIZE_CHANGE]
.vs      \\n[#EN_LEAD]u
.if \\n[#ENDNOTE_STRING_COLOR]=1 \{\
.COLOR \\*[$ENDNOTE_STRING_COLOR]
.EOL
.\}
.\}
.if '\\*[$EN_STRING_QUAD]'L'      .LEFT
.if '\\*[$EN_STRING_QUAD]'LEFT'   .LEFT
.if '\\*[$EN_STRING_QUAD]'C'      .CENTER
.if '\\*[$EN_STRING_QUAD]'CENTER' .CENTER
.if '\\*[$EN_STRING_QUAD]'CENTRE' .CENTER
.if '\\*[$EN_STRING_QUAD]'R'      .RIGHT
.if '\\*[$EN_STRING_QUAD]'RIGHT'  .RIGHT
.EOL
.if \\n[#EN_STRING_CAPS] .CAPS
.ie \\n[#EN_STRING_UNDERLINE] \{\
.nr #FROM_EN_STRING 1
.ie \\n[#EN_STRING_UNDERLINE]=2 \
.UNDERSCORE2 \\*[$EN_UNDERLINE_GAP] \\*[$EN_RULE_GAP] "\\*[$EN_STRING]"
.el .UNDERSCORE "\\*[$EN_STRING]"
.rr #FROM_EN_STRING
.\}
.el .PRINT "\\*[$EN_STRING]
.\}
.CAPS OFF
.if \\n[#PRINT_STYLE]=1 \{\
.ie \\n[#SINGLE_SPACE]=1 .sp
.el \{\
.ie \\n[#EN_SINGLESPACE]=1 .sp
.el .
.\}
.\}
.if \\n[#PRINT_STYLE]=2 .ALD \\n[#EN_LEAD]u
.QUAD \\*[$EN_QUAD]
.chop END_NOTES
.nf
.END_NOTES
.rm END_NOTES
.ps \\n[#DOC_PT_SIZE]u
.if \\n[#PRINT_STYLE]=1 .vs \\n[#DOC_LEAD]u
.if \\n[#PRINT_STYLE]=2 \{\
.ie \\n[#ADJ_EN_LEAD] \
.nr #DOC_LEAD \\n[#RESTORE_DOC_LEAD]
.el .DOC_LEAD \\n[#RESTORE_DOC_LEAD]u
.rr #RESTORE_DOC_LEAD
.\}
.if \\n[#COLUMNS_WERE_ON] .nr #COLUMNS 1
.if \\n[#HEADER_STATE]=1 .HEADERS
.if \\n[#LINENUMBERS]=2 \{\
.NUMBER_LINES RESUME
.nr #LINENUMBERS 1
.\}
.PRINT_FOOTER
.rr #ENDNOTES
.END
.MAC BIBLIOGRAPHY_PT_SIZE END
.nr #BIB_PS (p;\\$1)
.END
.MAC BIBLIOGRAPHY_HDRFTR_CENTER END
.ie '\\$1'' .nr #BIB_HDRFTR_CENTER 1
.el .rr #BIB_HDRFTR_CENTER
.END
.MAC BIBLIOGRAPHY_STRING END
.ds $BIB_STRING \\$1
.END
.MAC BIBLIOGRAPHY_STRING_ADVANCE END
.nr #BIB_STRING_ADVANCE (\\$1)
.END
.MAC BIBLIOGRAPHY_STRING_CAPS END
.ie '\\$1'' .nr #BIB_STRING_CAPS 1
.el .nr #BIB_STRING_CAPS 0
.END
.MAC BIBLIOGRAPHY_NO_COLUMNS END
.ie '\\$1'' .nr #BIB_NO_COLS 1
.el .rr #BIB_NO_COLS
.END
.MAC BIBLIOGRAPHY_NO_FIRST_PAGENUM END
.ie '\\$1'' .nr #BIB_NO_FIRST_PN 1
.el .rr #BIB_NO_FIRST_PN
.END
.MAC BIBLIOGRAPHY_ALLOWS_HEADERS END
.ie '\\$1'' .nr #BIB_ALLOWS_HEADERS 1
.el \{\
.ie '\\$1'ALL' \{\
.nr #BIB_ALLOWS_HEADERS 1
.nr #BIB_ALLOWS_HEADERS_ALL 1
.\}
.el \{\
.rr #BIB_ALLOWS_HEADERS
.rr #BIB_ALLOWS_HEADERS_ALL
.\}
.\}
.END
.MAC BIBLIOGRAPHY_PAGENUM_STYLE END
.ds $BIB_PN_STYLE \\$1
.END
.MAC BIBLIOGRAPHY_FIRST_PAGENUMBER END
.nr #BIB_FIRST_PN \\$1
.END
.MAC SINGLESPACE_BIBLIOGRAPHY END
.if \\n[#PRINT_STYLE]=1 \{\
.ie \\n[#SINGLE_SPACE] \{\
.nr #BIB_SINGLESPACE 1
.rr #IGNORE
.if \\n[#OK_PROCESS_LEAD] \{\
.BIBLIOGRAPHY_LEAD 12 ADJUST
.nr #IGNORE 1
.\}
.\}
.el \{\
.ie '\\$1'' \{\
.nr #BIB_SINGLESPACE 1
.rr #IGNORE
.if \\n[#OK_PROCESS_LEAD] \{\
.BIBLIOGRAPHY_LEAD 12 ADJUST
.nr #IGNORE 1
.\}
.\}
.el \{\
.rr #BIB_SINGLESPACE
.rr #IGNORE
.if \\n[#OK_PROCESS_LEAD] \{\
.BIBLIOGRAPHY_LEAD 24 ADJUST
.nr #IGNORE 1
.\}
.\}
.\}
.\}
.END
.MAC BIBLIOGRAPHY_TYPE END
.ie '\\$1'LIST' \{\
.nr #BIB_LIST 1
.ie '\\$2'' \{\
.if '\\*[$BIB_LIST_SEPARATOR]'' .ds $BIB_LIST_SEPARATOR .
.\}
.el .ds $BIB_LIST_SEPARATOR \\$2
.ie '\\$3'' .ds $BIB_LIST_PREFIX
.el .ds $BIB_LIST_PREFIX \\$3
.\}
.el .nr #BIB_LIST 0
.END
.MAC BIBLIOGRAPHY_SPACING END
.ds $BIB_SPACE \\$1
.if \\n[#BIB_LEAD]=0 \{\
.nr #DEFER_BIB_SPACING 1
.return
.\}
.ds $EVAL_BIB_SPACE \\*[$BIB_SPACE]
.substring $EVAL_BIB_SPACE -1
.ie '\\*[$EVAL_BIB_SPACE]'v' \{\
.substring $BIB_SPACE 0 0
.nr #BIB_SPACE \\n[#BIB_LEAD]*\\*[$BIB_SPACE]
.\}
.el .nr #BIB_SPACE (\\$1)
.END
.MAC BIBLIOGRAPHY END
.ie '\\$1'' \{\
.rr #FN_REF
.rr #EN_REF
.nr #BIBLIOGRAPHY 1
.nr #BIB_FIRST_PAGE 1
.nr #HEADER_STATE \\n[#HEADERS_ON]
.ds $RESTORE_PAGENUM_STYLE \\*[$PAGENUM_STYLE]
.if \\n[#LINENUMBERS]=1 \{\
.NUMBER_LINES OFF
.nr #LINENUMBERS 2
.\}
.if \\n[#HEADERS_ON]=1 \
.if !\\n[#BIB_ALLOWS_HEADERS_ALL] .HEADERS OFF
.if \\n[#HEADER_STATE]=1 \{\
.ie \\n[#BIB_HDRFTR_CENTER]=1 .
.el .rm $HDRFTR_CENTER
.\}
.ie !\\n[#SUSPEND_PAGINATION] \{\
.if \\n[#PAGINATE]=1 \{\
.if \\n[#PAGE_NUM_V_POS]=1 \{\
.PAGENUM_STYLE \\*[$BIB_PN_STYLE]
.if \\n[#BIB_FIRST_PN] .PAGENUMBER \\n[#BIB_FIRST_PN]-1
.if r #BIB_NO_FIRST_PN .nr #PAGINATE 0
.\}
.\}
.\}
.el \{\
.ie \\n[#PAGE_NUM_V_POS]=2 .nr #PAGINATE 1
.el .nr #PAGINATE 0
.\}
.if \\n[#FOOTERS_ON]=1 \{\
.if !'\\*[$HDRFTR_CENTER_OLD]'' \
.ds $HDRFTR_CENTER \\*[$HDRFTR_CENTER_OLD]
.\}
.NEWPAGE
.if \\n[#FOOTERS_ON]=1 \{\
.ds $HDRFTR_CENTER \\*[$HDRFTR_CENTER_NEW]
.rm $HDRFTR_CENTER_OLD
.rm $HDRFTR_CENTER_NEW
.\}
.ie !\\n[#SUSPEND_PAGINATION] \{\
.if \\n[#PAGE_NUM_V_POS]=1 \{\
.if r #BIB_NO_FIRST_PN \{\
.if \\n[#PAGINATION_STATE]=1 .nr #PAGINATE 1
.\}
.\}
.\}
.el \
.if \\n[#PAGE_NUM_V_POS]=2 .nr #PAGINATE 0
.rr #PAGINATION_STATE
.PAGENUM_STYLE \\*[$BIB_PN_STYLE]
.if \\n[#BIB_FIRST_PN] .PAGENUMBER \\n[#BIB_FIRST_PN]
.if \\n[#HEADER_STATE]=1 \
.if \\n[#BIB_ALLOWS_HEADERS] .HEADERS
.nr #TOC_ENTRY_PN \\n%+\\n[#PAGE_NUM_ADJ]
.af #TOC_ENTRY_PN \\g[#PAGENUMBER]
.ds $TOC_TITLE_ITEM \\*[$BIB_STRING]\\|
.PDF_BOOKMARK 1 \\*[$BIB_STRING]
.TITLE_TO_TOC
.if \\n[#PRINT_STYLE]=1 .vs \\n[#BIB_LEAD]u
.if \\n[#PRINT_STYLE]=2 \{\
.if \\n[#BIB_NO_COLS] \{\
.if \\n[#COLUMNS] .nr #COLUMNS_WERE_ON 1
.nr #COLUMNS 0
.\}
.nr #RESTORE_DOC_LEAD \\n[#DOC_LEAD]
.ie \\n[#ADJ_BIB_LEAD] .nr #DOC_LEAD \\n[#BIB_LEAD]
.el .DOC_LEAD \\n[#BIB_LEAD]u
.\}
.vpt 0
.ie r#BIB_STRING_ADVANCE .sp |\\n[#BIB_STRING_ADVANCE]u-1v
.el .sp |\\n[#T_MARGIN]u-1v
.vpt 1
.mk bc
.if \\n[#SLANT_ON] \{\
\*[SLANTX]\c
.\}
.sp
.if !'\\*[$BIB_STRING]'' \{\
.if \\n[#PRINT_STYLE]=1 \{\
.TYPEWRITER
.vs \\n[#BIB_LEAD]u
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.LL \\n[#DOC_L_LENGTH]u
.ta \\n[.l]u
.if \\n[#COLUMNS] \{\
.ie \\n[#BIB_NO_COLS] .LL \\n[#DOC_L_LENGTH]u
.el .LL \\n[#COL_L_LENGTH]u
.ta \\n[.l]u
.\}
.FAMILY  \\*[$BIB_STRING_FAM]
.FT      \\*[$BIB_STRING_FT]
.ps \\n[#BIB_PS]u\\*[$BIB_STRING_SIZE_CHANGE]
.vs      \\n[#BIB_LEAD]u
.\}
.if '\\*[$BIB_STRING_QUAD]'LEFT'   .LEFT
.if '\\*[$BIB_STRING_QUAD]'C'      .CENTER
.if '\\*[$BIB_STRING_QUAD]'CENTER' .CENTER
.if '\\*[$BIB_STRING_QUAD]'CENTRE' .CENTER
.if '\\*[$BIB_STRING_QUAD]'R'      .RIGHT
.if '\\*[$BIB_STRING_QUAD]'RIGHT'  .RIGHT
.EOL
.if \\n[#BIB_STRING_CAPS] .CAPS
.ie \\n[#BIB_STRING_UNDERLINE] \{\
.nr #FROM_BIB_STRING 1
.ie \\n[#BIB_STRING_UNDERLINE]=2 \
.UNDERSCORE2 "\\*[$BIB_STRING]"
.el .UNDERSCORE "\\*[$BIB_STRING]"
.rr #FROM_BIB_STRING
.\}
.el .PRINT "\\*[$BIB_STRING]"
.\}
.CAPS OFF
.FAMILY \\*[$BIB_FAMILY]
.FT \\*[$BIB_FT]
.ps -\\*[$BIB_STRING_SIZE_CHANGE]
.if \\n[#PRINT_STYLE]=1 \{\
.ie \\n[#SINGLE_SPACE]=1 .ALD \\n[#BIB_LEAD]*3u
.el \{\
.ie \\n[#BIB_SINGLESPACE]=1 .ALD \\n[#BIB_LEAD]u*3u
.el .ALD \\n[#BIB_LEAD]u
.\}
.\}
.if \\n[#PRINT_STYLE]=2 .ALD \\n[#BIB_LEAD]u*2u
.QUAD \\*[$BIB_QUAD]
.if \\n[#PRINT_STYLE]=1 \{\
.ie \\n[#SINGLE_SPACE]=1 .vs \\n[#BIB_LEAD]u
.el \{\
.ie \\n[#BIB_SINGLESPACE]=1 .vs \\n[#BIB_LEAD]u
.el .vs \\n[#BIB_LEAD]u
.\}
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.ie \\n[#ADJ_BIB_LEAD] \
.nr #DOC_LEAD \\n[#RESTORE_DOC_LEAD]
.el .DOC_LEAD \\n[#RESTORE_DOC_LEAD]u
.rr #RESTORE_DOC_LEAD
.\}
.if \\n[#COLUMNS_WERE_ON] .nr #COLUMNS 1
.if \\n[#HEADER_STATE]=1 .HEADERS
.if \\n[#LINENUMBERS]=2 \{\
.NUMBER_LINES RESUME
.nr #LINENUMBERS 1
.\}
.di BIB
.\}
.el \{\
.br
.di
.nr num*refs \\n[ref*num*first-pass]
.nf
.chop BIB
.BIB
.\}
.END
.ds $TOC_PN \\*[ST102]\F[\\*[$TOC_PN_FAM]]\f[\\*[$TOC_PN_FT]]\
\s[\\n[#TOC_PS]u]^\\*[ST102X]\\*[ST103]\s[\\*[$TOC_PN_SIZE_CHANGE]]\
\|\|\|\h'\w'0'u*\\n[#TOC_PN_PADDING]u'\\*[ST103X]
.ds $TOC_PN_TYPEWRITE \\*[ST102]^\\*[ST102X]\\*[ST103]\
\h'\w'0'u*\\n[#TOC_PN_PADDING]u'\\*[ST103X]
.MAC TO_TOC END
.if !'\\n[.ev]'TOC_EV' .ev TOC_EV
.nr #TOC_CH_NUM_INDENT \w'\\*[$TOC_CH_NUM]'
.da TOC_ENTRIES
\!.  ie \\\\n[#SKIP_ENTRY]=1 \{\
.rr #SKIP_ENTRY
\!.  \}
\!.  el \{\
.br
.ie \\n[#PRINT_STYLE]=1 \{\
\!.        fam \\*[$TYPEWRITER_FAM]
\!.        ft  R
\!.        ps \\*[$TYPEWRITER_PS]
.ds _TYPEWRITE _TYPEWRITE
.\}
.el \{\
.ie '\\$0'HD_TO_TOC' \{\
\!.           ps \\n[#TOC_PS]u\\*[$TOC_HEAD_\\n[#LEVEL]_SIZE]
.\}
.el \{\
\!.           FAMILY  \\*[$TOC_TITLE_FAM]
\!.           FT      \\*[$TOC_TITLE_FT]
\!.           ps \\n[#TOC_PS]u\\*[$TOC_TITLE_SIZE]
.\}
.\}
.if \\n[#PRINT_STYLE]=2 \{\
.rm _TYPEWRITE
.if \\n[#SPACE_TOC_ITEMS] \{\
.if \\n[#POST_TOP]=1 \{\
.ie !\\n[#LEVEL]=\\n[#LAST_LEVEL] \{\
.ie \\n[#LEVEL]>\\n[#LAST_LEVEL] \!.sp .2v
.el \!.sp .4v
.\}
.el \{\
.if \\n[#COLLATED_DOC] \
.if '\\$0'TITLE_TO_TOC' \!.sp .4v
.\}
.\}
.\}
.\}
\!.     PAD_MARKER ^
.if !'\\$0'HD_TO_TOC' \{\
\!.        if \\n[#TOC_TITLE_CAPS]=1 .CAPS
.\}
.if '\\$0'HD_TO_TOC' \{\
.nr #POST_TOP 1
\!.        if \\n[#TOC_HEAD_\\n[#LEVEL]_CAPS]=1 .CAPS
.\}
\!.     vpt 0
.ie '\\$0'HD_TO_TOC' \{\
\!.        PAD \
"\\f[\\*[$TOC_HEAD_\\n[#LEVEL]_FAM]\
\\*[$TOC_HEAD_\\n[#LEVEL]_FT]]\
\h'\\\\n[#TOC_INDENT_ADJ]u'\h'\\n[#TOC_HEAD_\\n[#LEVEL]_INDENT]u'\
\\*[$TOC_HD_NUM]\\*[$TOC_HEAD_\\n[#LEVEL]_ITEM]\\*[$TOC_PN\\*[_TYPEWRITE]]" \
"\\*[PDFBOOKMARK.NAME]"
.\}
.el \{\
\!.        PAD \
"\\f[\\*[$TOC_TITLE_FAM]\\*[$TOC_TITLE_FT]]\
\h'\\n[#TOC_TITLE_INDENT]u'\\*[$TOC_TITLE_ITEM]\\*[$TOC_PN\\*[_TYPEWRITE]]" \
"\\*[PDFBOOKMARK.NAME]"
.\}
.if '\\$0'HD_TO_TOC' \{\
\!.        if \\n[#TOC_HEAD_\\n[#LEVEL]_CAPS]=1 .CAPS OFF
.\}
.if !'\\$0'HD_TO_TOC' \{\
\!.        if \\n[#TOC_TITLE_CAPS]=1 .CAPS OFF
.\}
\!.     PAD_MARKER #
\!.     EOL
\!.     ST 102 L
\!.     ST 103 R
.if \\n[#PRINT_STYLE]=2 \{\
\!.        FAMILY  \\*[$TOC_PN_FAM]
\!.        FT      \\*[$TOC_PN_FT]
\!.        ps \\n[#TOC_PS]u
.\}
\!.     TAB 102
\!.     PRINT \\*[LEADER]
\!.     TN
.if \\n[#PRINT_STYLE]=2 \{\
\!.        ps \\*[$TOC_PN_SIZE_CHANGE]u
.\}
\!.     PRINT \\n[#TOC_ENTRY_PN]
\!.     TQ
\!.     vpt
\!. \}
.da
.ev
.END
.ALIAS HD_TO_TOC  TO_TOC
.ALIAS TITLE_TO_TOC TO_TOC
.MAC TOC_TITLE_STYLE END
.nr #ARG_NUM 0 1
.nr #ATTRIB \\n[#NUM_ARGS]
.while \\n+[#ARG_NUM]<=\\n[#ATTRIB] \{\
.if '\\$1'FAMILY' \{\
.shift
.ds $TOC_TITLE_FAM  \\$1
.shift
.\}
.if '\\$1'FONT' \{\
.shift
.ds $TOC_TITLE_FT   \\$1
.shift
.\}
.if '\\$1'SIZE' \{\
.shift
.ds $TOC_TITLE_SIZE \\$1
.shift
.\}
.if '\\$1'CAPS' \{\
.nr #TOC_TITLE_CAPS 1
.shift
.\}
.if '\\$1'NO_CAPS' \{\
.rr #TOC_TITLE_CAPS
.shift
.\}
.if '\\$1'INDENT' \{\
.shift
.nr #TOC_TITLE_INDENT \\$1
.shift
.\}
.\}
.END
.MAC TOC_HEADER_STRING END
.ds $TOC_HEADER_STRING \\$1
.END
.MAC TOC_PT_SIZE END
.nr #TOC_PS (p;\\$1)
.END
.MAC TOC_PADDING END
.nr #TOC_PN_PADDING \\$1
.END
.MAC PAGINATE_TOC END
.ie '\\$1'' .nr #PAGINATE_TOC 1
.el .nr #PAGINATE_TOC 0
.END
.MAC TOC_FIRST_PAGENUM END
.nr #TOC_START_PAGENUM \\$1
.END
.MAC TOC_PAGENUM_STYLE END
.ds $TOC_PN_STYLE \\$1
.END
.MAC TOC_RV_SWITCH END
.ie '\\$1'' .nr #TOC_RV_SWITCH 1
.el .rr #TOC_RV_SWITCH
.END
.MAC SPACE_TOC_ITEMS END
.ie !'\\$1'' .rr #SPACE_TOC_ITEMS
.el .nr #SPACE_TOC_ITEMS 1
.END
.MAC TOC_ENTRY_NUMBERS END
.if '\\$1'TRUNCATE' .nr #TRUNC_TOC_HD_NUM 1
.if '\\$1'FULL'     .nr #TRUNC_TOC_HD_NUM 0
.if '\\$1'NONE'     .nr #TOC_NO_HD_NUM 1
.END
.MAC TOC_TITLE_ENTRY END
.nr #USER_SET_TITLE_ITEM 1
.ds $USER_SET_TITLE_ITEM \\$1
.END
.MAC TOC_APPENDS_AUTHOR END
.nr #TOC_AUTHORS 1
.if !'\\$1'' .ds $TOC_AUTHORS \\$1
.END
.MAC TOC END
.char \[leader] " .
.LEADER_CHARACTER \[leader]
.ie \\n[#COLLATED_DOC] \{\
.nr #TOC_INDENT_ADJ 1.5m
.if \\n[#PREFIX_CH_NUM] .nr #TOC_INDENT_ADJ \\n[#TOC_CH_NUM_INDENT]
.\}
.el \{\
.nr #SKIP_ENTRY 1
.nr #TOC_INDENT_ADJ 0
.\}
.nr #TOC 1
.nr TOC.RELOCATE 0
.if \\n[#LINENUMBERS]=1 \{\
.NUMBER_LINES OFF
.nr #LINENUMBERS 2
.\}
.if !r #PAGINATE_TOC .PAGINATE_TOC
.nr #TOC_FIRST_PAGE 1
.if \\n[#FINIS] \{\
.if \\n[#FOOTERS_WERE_ON] \
.FOOTERS
.\}
.if \\n[#FOOTERS_ON]=1 \{\
.if !'\\*[$HDRFTR_CENTER_OLD]'' .ds $HDRFTR_CENTER \\*[$HDRFTR_CENTER_OLD]
.ie \\n[#PAGINATE_TOC]=1 .PAGINATE
.el .PAGINATION OFF
.\}
.if \\n[#FOOTERS_WERE_ON] .FOOTERS OFF
.rr #COLUMNS
.COLLATE
.if \\n[#PRINT_STYLE]=1 \{\
.if \\n[#SINGLE_SPACE] .vs 24
.DOC_LEAD_ADJUST
.\}
.if \\n[#PRINT_STYLE]=2 .vs \\n[#TOC_LEAD]u
.if \\n[#FINIS] \{\
.if \\n[#FOOTERS_WERE_ON] .FOOTERS
.rr #FOOTERS_WERE_ON
.if \\n[#PAGINATION_WAS_ON] \{\
.nr #PAGINATE 1
.rr #PAGINATION_WAS_ON
.\}
.rr #FINIS
.\}
.ie \\n[#PAGINATE_TOC]=1 .PAGINATE
.el .PAGINATION OFF
.ds $HDRFTR_CENTER \\*[$HDRFTR_CENTER_NEW]
.rm $HDRFTR_CENTER_OLD
.rm $HDRFTR_CENTER_NEW
.rr #COLLATED_DOC
.DOCHEADER OFF \\n[#T_MARGIN]u-\\n[#DOC_LEAD]u
.if !r #TOC_START_PAGENUM .nr #TOC_START_PAGENUM 1
.PAGENUMBER \\n[#TOC_START_PAGENUM]
.if \\n[#LINENUMBERS]=2 .nr #LINENUMBERS 3
.L_MARGIN   \\n[#DOC_L_MARGIN]u
.LL         \\n[#DOC_L_LENGTH]u
.HEADER_CENTER "\\*[$TOC_HEADER_STRING]
.if \\n[#SLANT_ON] .nop \\*[SLANTX]
.START
.PAGENUM_STYLE \\*[$TOC_PN_STYLE]
.PDF_BOOKMARK 1 \\*[$TOC_HEADER_STRING]
.if \\n[#PRINT_STYLE]=1 .TYPEWRITER
.if \\n[#PRINT_STYLE]=2 \{\
.FAMILY  \\*[$TOC_HEADER_FAM]
.FT      \\*[$TOC_HEADER_FT]
.ps \\n[#TOC_PS]u\\*[$TOC_HEADER_SIZE_CHANGE]
.\}
.ie \\n[#PRINT_STYLE]=1 \{\
.CAPS
.UNDERSCORE 3p "\\*[$TOC_HEADER_STRING]"
.CAPS      OFF
.\}
.el .PRINT \\*[$TOC_HEADER_STRING]
.sp
.nf
.TOC_ENTRIES
.rr #TOC
.if \\n[#LINENUMBERS]=3 \{\
.NUMBER_LINES RESUME
.nr #LINENUMBERS 1
.nn 1
.\}
.rr #TOC
.pdfsync
.END
.MAC COLUMNS END
.if \\n[#IGNORE_COLUMNS]=1 .return
.nr #COLUMNS 1
.nr #NUM_COLS \\$1
.nr #GUTTER (\\$2)
.nr #COL_L_LENGTH \\n[#L_LENGTH]-(\\n[#GUTTER]*(\\n[#NUM_COLS]-1))/\\n[#NUM_COLS]
.nr #COL_TOTAL 0 \\n[#COL_L_LENGTH]+\\n[#GUTTER]
.nr #COL_NUM 0 1
.while !\\n[#COL_NUM]=\\n[#NUM_COLS] \{\
.nr #COL_\\n+[#COL_NUM]_L_MARGIN \\n[#L_MARGIN]+\\n[#COL_TOTAL]
.nr #COL_TOTAL \\n+[#COL_TOTAL]
.\}
.if \\n[#NUM_COLS]=1 \
.if !\\n[#COLLATE]=1 .MN_INIT
.rr #COL_TOTAL
.rr #COL_NUM
.END
.MAC COL_MARK END
.mk dc
.END
.MAC COL_NEXT END
.if \\n[#COLUMNS] \{\
.nr #COL_NEXT 1
.ie '\\$0'COL_NEXT' .br
.el \{\
.brp
.RLD 1v
.\}
.ie \\n[#COL_NUM]=\\n[#NUM_COLS] .bp
.el .FOOTER
.\}
.END
.MAC LIST END
.ds $1ST_LETTER \\$1
.if !'\\*[$1ST_LETTER]'' .substring $1ST_LETTER 0 0
.if '\\*[$1ST_LETTER]'r' .ds $1ST_LETTER R
.ie '\\*[$1ST_LETTER]'R' \{\
.ds $LAST_CHAR \\$1
.substring $LAST_CHAR -1
.if !\B'\\*[$LAST_CHAR]' \{\
.if !'\\$1'ROMAN' \{\
.LIST OFF
.return
.\}
.if !'\\$1'roman' \{\
.LIST OFF
.return
.\}
.tm1 "[mom]: You must append a number to the \\$1 argument to \\$0.
.tm1 "       The number should be the total number of items in this list.
.tm1 "       See the documentation.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.ds $ROMAN_WIDTH \\$1
.substring $ROMAN_WIDTH 1
.while !\B'\\*[$ROMAN_WIDTH]' \{\
.substring $ROMAN_WIDTH 1
.\}
.length #ROMAN_LENGTH \\*[$ROMAN_WIDTH]
.ds $LIST_ARG_1 \\$1
.substring $LIST_ARG_1 0 -(\\n[#ROMAN_LENGTH]+1)
.\}
.el .ds $LIST_ARG_1 \\$1
.if !r#DEPTH \{\
.nr #STORED_HL_INDENT \\n[#HL_INDENT]
.nr #STORED_T_INDENT  \\n[#T_INDENT]
.nr #CURRENT_L_LENGTH \\n[.l]
.nr #DEPTH 0 1
.if \\n[#INDENT_ACTIVE]=1 \{\
.if \\n[#INDENT_LEFT_ACTIVE]=1 \{\
.nr #STORED_L_INDENT \\n[#L_INDENT]
.nr #RESTORE_PREV_INDENT 1
.\}
.if \\n[#INDENT_BOTH_ACTIVE]=1 \{\
.nr #STORED_BL_INDENT \\n[#BL_INDENT]
.nr #STORED_BR_INDENT \\n[#BR_INDENT]
.IBX
.nr #ORIG_L_LENGTH \\n[.l]
.IB
.nr #RESTORE_PREV_INDENT 2
.\}
.if \\n[#INDENT_RIGHT_ACTIVE]=1 \{\
.nr #STORED_R_INDENT \\n[#R_INDENT]
.IRX
.nr #ORIG_L_LENGTH \\n[.l]
.IR
.nr #RESTORE_PREV_INDENT 3
.if \\n[#INDENT_LEFT_ACTIVE]=1 .nr #RESTORE_PREV_INDENT 4
.\}
.\}
.\}
.if \\n[#NUM_ARGS]=0 \{\
.nr #ARGS_TO_LIST 1
.ds $ENUMERATOR\\n+[#DEPTH] \[bu]
.ds $ENUMERATOR_TYPE\\n[#DEPTH] other
.ds $SEPARATOR
.\}
.if \\n[#NUM_ARGS]>0 \{\
.rr #ARGS_TO_LIST
.if '\\*[$LIST_ARG_1]'DASH' \{\
.nr #ARGS_TO_LIST 1
.ds $ENUMERATOR\\n+[#DEPTH] \[en]
.ds $ENUMERATOR_TYPE\\n[#DEPTH] other
.ds $SEPARATOR\\n[#DEPTH]
.\}
.if '\\*[$LIST_ARG_1]'BULLET' \{\
.nr #ARGS_TO_LIST 1
.ds $ENUMERATOR\\n+[#DEPTH] \[bu]
.ds $ENUMERATOR_TYPE\\n[#DEPTH] other
.ds $SEPARATOR\\n[#DEPTH]
.\}
.if '\\*[$LIST_ARG_1]'DIGIT' \{\
.nr #ARGS_TO_LIST 1
.nr #ENUMERATOR\\n+[#DEPTH] 0 1
.ds $ENUMERATOR_TYPE\\n[#DEPTH] register
.ds $SEPARATOR\\n[#DEPTH] .
.ds $PREFIX\\n[#DEPTH]
.if \\n[#NUM_ARGS]>=2 \{\
.ie '\\$2'NONE' .ds $SEPARATOR\\n[#DEPTH]
.el .ds $SEPARATOR\\n[#DEPTH] \\$2
.if \\n[#NUM_ARGS]=3 .ds $PREFIX\\n[#DEPTH] \\$3
.\}
.\}
.if '\\*[$LIST_ARG_1]'alpha' \{\
.nr #ARGS_TO_LIST 1
.nr #ENUMERATOR\\n+[#DEPTH] 0 1
.af #ENUMERATOR\\n[#DEPTH] a
.ds $ENUMERATOR_TYPE\\n[#DEPTH] register
.ds $SEPARATOR\\n[#DEPTH] )
.ds $PREFIX\\n[#DEPTH]
.if \\n[#NUM_ARGS]>=2 \{\
.ie '\\$2'NONE' .ds $SEPARATOR\\n[#DEPTH]
.el .ds $SEPARATOR\\n[#DEPTH] \\$2
.if \\n[#NUM_ARGS]=3 .ds $PREFIX\\n[#DEPTH] \\$3
.\}
.\}
.if '\\*[$LIST_ARG_1]'ALPHA' \{\
.nr #ARGS_TO_LIST 1
.nr #ENUMERATOR\\n+[#DEPTH] 0 1
.af #ENUMERATOR\\n[#DEPTH] A
.ds $ENUMERATOR_TYPE\\n[#DEPTH] register
.ds $SEPARATOR\\n[#DEPTH] )
.ds $PREFIX\\n[#DEPTH]
.if \\n[#NUM_ARGS]>=2 \{\
.ie '\\$2'NONE' .ds $SEPARATOR\\n[#DEPTH]
.el .ds $SEPARATOR\\n[#DEPTH] \\$2
.if \\n[#NUM_ARGS]=3 \{\
.ds $PREFIX\\n[#DEPTH] \\$3
.\}
.\}
.\}
.if '\\*[$1ST_LETTER]'R' \{\
.nr #ARGS_TO_LIST 1
.nr #ENUMERATOR\\n+[#DEPTH] 0 1
.if '\\*[$LIST_ARG_1]'roman' .af #ENUMERATOR\\n[#DEPTH] i
.if '\\*[$LIST_ARG_1]'ROMAN' .af #ENUMERATOR\\n[#DEPTH] I
.ds $ENUMERATOR_TYPE\\n[#DEPTH] roman
.ds $SEPARATOR\\n[#DEPTH] )
.ds $PREFIX\\n[#DEPTH]
.if \\n[#NUM_ARGS]>=2 \{\
.ie '\\$2'NONE' .ds $SEPARATOR\\n[#DEPTH]
.el .ds $SEPARATOR\\n[#DEPTH] \\$2
.if \\n[#NUM_ARGS]=3 .ds $PREFIX\\n[#DEPTH] \\$3
.\}
.\}
.if '\\*[$LIST_ARG_1]'USER' \{\
.nr #ARGS_TO_LIST 1
.ds $ENUMERATOR\\n+[#DEPTH] \\$2
.ds $ENUMERATOR_TYPE\\n[#DEPTH] other
.ds $SEPARATOR\\n[#DEPTH]
.ds $PREFIX\\n[#DEPTH]
.\}
.if \\n[#NUM_ARGS]=1 \{\
.if !r#ARGS_TO_LIST \{\
.ie \\n[#DEPTH]=1 \{\
.ie \\n[#NEXT_DEPTH_BACK]=0 \{\
.SET_LIST_INDENT
.if \\n[#QUIT]=1 \{\
.QUIT_LISTS
.return
.\}
.return
.\}
.el \{\
.QUIT_LISTS
.return
.\}
.\}
.el \{\
.SET_LIST_INDENT
.return
.\}
.\}
.\}
.\}
.nr #TOTAL_LISTS \\n[#DEPTH]
.if '\\*[$ENUMERATOR_TYPE\\n[#DEPTH]]'register' \{\
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]m\\*[$SEPARATOR\\n[#DEPTH]]\ '
.if '\\*[$LIST_ARG_1]'ALPHA' nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]M\\*[$SEPARATOR\\n[#DEPTH]]\ '
.\}
.if '\\*[$ENUMERATOR_TYPE\\n[#DEPTH]]'roman' \
.GET_ROMAN_INDENT
.if '\\*[$ENUMERATOR_TYPE\\n[#DEPTH]]'other' \
.nr #LIST_INDENT\\n[#DEPTH] \w'\\*[$ENUMERATOR\\n[#DEPTH]]\0'
.ll \\n[#CURRENT_L_LENGTH]u
.ie \\n[#DEPTH]=1 \{\
.ie \\n[#INDENT_ACTIVE]=1 \{\
.if \\n[#INDENT_LEFT_ACTIVE]=1 \{\
.nr #L_INDENT \\n[#L_INDENT]+\\n[#LIST_INDENT\\n[#DEPTH]]
.nr #HL_INDENT\\n[#DEPTH] \\n[#LIST_INDENT\\n[#DEPTH]]
.nr #LIST_INDENT\\n[#DEPTH] \\n[#L_INDENT]
.\}
.if \\n[#INDENT_BOTH_ACTIVE]=1 \{\
.nr #L_INDENT \\n[#BL_INDENT]+\\n[#LIST_INDENT\\n[#DEPTH]]
.nr #HL_INDENT\\n[#DEPTH] \\n[#LIST_INDENT\\n[#DEPTH]]
.nr #LIST_INDENT\\n[#DEPTH] \\n[#L_INDENT]
.\}
.if \\n[#INDENT_RIGHT_ACTIVE]=1 \{\
.ie \\n[#INDENT_LEFT_ACTIVE]=1 \{\
.\}
.el \{\
.nr #L_INDENT +\\n[#LIST_INDENT\\n[#DEPTH]]
.nr #HL_INDENT\\n[#DEPTH] \\n[#LIST_INDENT\\n[#DEPTH]]
.\}
.\}
.\}
.el \{\
.nr #L_INDENT +\\n[#LIST_INDENT\\n[#DEPTH]]
.nr #HL_INDENT\\n[#DEPTH] \\n[#LIST_INDENT\\n[#DEPTH]]
.\}
.\}
.el \{\
.nr #L_INDENT +\\n[#LIST_INDENT\\n[#DEPTH]]
.nr #HL_INDENT\\n[#DEPTH] \\n[#LIST_INDENT\\n[#DEPTH]]
.\}
.END
.MAC ITEM END
.if !r#DEPTH .return
.if \\n[#LINENUMBERS]=1 \{\
.NUMBER_LINES OFF
.nr #LINENUMBERS 2
.\}
.if \\n[#KERN]=1 \{\
.nr #KERN_WAS_ON 1
.KERN OFF
.\}
.rr #IN_ITEM
.IL
.nr #IN_ITEM 1
.ll \\n[#CURRENT_L_LENGTH]u
.TRAP OFF
.HI \\n[#HL_INDENT\\n[#DEPTH]]u
.if '\\*[$SEPARATOR\\n[#DEPTH]]')' .nr #SEP_TYPE 1
.if '\\*[$SEPARATOR\\n[#DEPTH]]']' .nr #SEP_TYPE 1
.if '\\*[$SEPARATOR\\n[#DEPTH]]'}' .nr #SEP_TYPE 1
.ie \\n[#IN_BIB_LIST]=1 \{\
.ie \\n[#ENUMERATOR\\n[#DEPTH]]<9 \{\
.ie \\n[#SEP_TYPE]=1 .PRINT \
\v'-.085m'\\*[$PREFIX\\n[#DEPTH]]\v'.085m'\
\\n+[#ENUMERATOR\\n[#DEPTH]]\v'-.085m'\\*[$SEPARATOR\\n[#DEPTH]]\v'.085m'
.el .PRINT \
\\*[$PREFIX\\n[#DEPTH]]\\n+[#ENUMERATOR\\n[#DEPTH]]\\*[$SEPARATOR\\n[#DEPTH]]
.\}
.el \{\
.ie \\n[#SEP_TYPE]=1 .PRINT \
\h'-\w'\0'u'\v'-.085m'\\*[$PREFIX\\n[#DEPTH]]\v'.085m'\
\\n+[#ENUMERATOR\\n[#DEPTH]]\v'-.085m'\\*[$SEPARATOR\\n[#DEPTH]]\v'.085m'
.el .PRINT \
\h'-\w'\0'u'\
\\*[$PREFIX\\n[#DEPTH]]\\n+[#ENUMERATOR\\n[#DEPTH]]\\*[$SEPARATOR\\n[#DEPTH]]
.\}
.\}
.el \{\
.ie '\\*[$ENUMERATOR_TYPE\\n[#DEPTH]]'register' \{\
.ie '\\g[#ENUMERATOR\\n[#DEPTH]]'0' \{\
.ie \\n[#PAD_LIST_DIGITS\\n[#DEPTH]]=1 \{\
.ie \\n[#ENUMERATOR\\n[#DEPTH]]<9 \{\
.ie \\n[#SEP_TYPE]=1 .PRINT \
\0\v'-.085m'\\*[$PREFIX\\n[#DEPTH]]\v'.085m'\\n+[#ENUMERATOR\\n[#DEPTH]]\
\v'-.085m'\\*[$SEPARATOR\\n[#DEPTH]]\v'.085m'
.el .PRINT \
\0\\*[$PREFIX\\n[#DEPTH]]\\n+[#ENUMERATOR\\n[#DEPTH]]\\*[$SEPARATOR\\n[#DEPTH]]
.\}
.el \{\
.ie \\n[#SEP_TYPE]=1 .PRINT \
\v'-.085m'\\*[$PREFIX\\n[#DEPTH]]\v'.085m'\\n+[#ENUMERATOR\\n[#DEPTH]]\
\v'-.085m'\\*[$SEPARATOR\\n[#DEPTH]]\v'.085m'
.el .PRINT \
\\*[$PREFIX\\n[#DEPTH]]\\n+[#ENUMERATOR\\n[#DEPTH]]\\*[$SEPARATOR\\n[#DEPTH]]
.\}
.\}
.el \{\
.ie \\n[#SEP_TYPE]=1 .PRINT \
\v'-.085m'\\*[$PREFIX\\n[#DEPTH]]\v'.085m'\\n+[#ENUMERATOR\\n[#DEPTH]]\
\v'-.085m'\\*[$SEPARATOR\\n[#DEPTH]]\v'.085m'
.el .PRINT \
\\*[$PREFIX\\n[#DEPTH]]\\n+[#ENUMERATOR\\n[#DEPTH]]\\*[$SEPARATOR\\n[#DEPTH]]
.\}
.\}
.el \{\
.ie '\\g[#ENUMERATOR\\n[#DEPTH]]'A' \{\
.ie \\n[#SEP_TYPE]=1 .PRINT \
\v'-.085m'\\*[$PREFIX\\n[#DEPTH]]\v'.085m'\\n+[#ENUMERATOR\\n[#DEPTH]]\
\v'-.085m'\\*[$SEPARATOR\\n[#DEPTH]]\v'.085m'
.el .PRINT \
\\*[$PREFIX\\n[#DEPTH]]\\n+[#ENUMERATOR\\n[#DEPTH]]\\*[$SEPARATOR\\n[#DEPTH]]
.\}
.el .PRINT \
\\*[$PREFIX\\n[#DEPTH]]\\n+[#ENUMERATOR\\n[#DEPTH]]\\*[$SEPARATOR\\n[#DEPTH]]
.\}
.\}
.if '\\*[$ENUMERATOR_TYPE\\n[#DEPTH]]'roman' \{\
.ie \\n[#PAD_LIST_DIGITS\\n[#DEPTH]]=1 \{\
.ie '\\g[#ENUMERATOR\\n[#DEPTH]]'I' \{\
.ie \\n[#SEP_TYPE]=1 .PRINT \
\h'\\n[#HL_INDENT\\n[#DEPTH]]u'\h'-\w'\\*[$PREFIX\\n[#DEPTH]]\
\\n+[#ENUMERATOR\\n[#DEPTH]]\\*[$SEPARATOR\\n[#DEPTH]]\0'u'\
\v'-.085m'\\*[$PREFIX\\n[#DEPTH]]\v'.085m'\\n[#ENUMERATOR\\n[#DEPTH]]\
\v'-.085m'\\*[$SEPARATOR\\n[#DEPTH]]\v'.085m'
.el .PRINT \
\h'\\n[#HL_INDENT\\n[#DEPTH]]u'\h'-\w'\\*[$PREFIX\\n[#DEPTH]]\
\\n+[#ENUMERATOR\\n[#DEPTH]]\\*[$SEPARATOR\\n[#DEPTH]]\
\0'u'\\*[$PREFIX\\n[#DEPTH]]\\n[#ENUMERATOR\\n[#DEPTH]]\
\\*[$SEPARATOR\\n[#DEPTH]]
.\}
.el .PRINT \
\h'\\n[#HL_INDENT\\n[#DEPTH]]u'\h'-\w'\\*[$PREFIX\\n[#DEPTH]]\
\\n+[#ENUMERATOR\\n[#DEPTH]]\\*[$SEPARATOR\\n[#DEPTH]]\0'u'\
\\*[$PREFIX\\n[#DEPTH]]\\n[#ENUMERATOR\\n[#DEPTH]]\\*[$SEPARATOR\\n[#DEPTH]]
.\}
.el \{\
.ie '\\g[#ENUMERATOR\\n[#DEPTH]]'I' \{\
.ie \\n[#SEP_TYPE]=1 .PRINT \
\v'-.085m'\\*[$PREFIX\\n[#DEPTH]]\v'.085m'\\n+[#ENUMERATOR\\n[#DEPTH]]\
\v'-.085m'\\*[$SEPARATOR\\n[#DEPTH]]\v'.085m'
.el .PRINT \
\\*[$PREFIX\\n[#DEPTH]]\\n+[#ENUMERATOR\\n[#DEPTH]]\\*[$SEPARATOR\\n[#DEPTH]]
.\}
.el .PRINT \
\\*[$PREFIX\\n[#DEPTH]]\\n+[#ENUMERATOR\\n[#DEPTH]]\\*[$SEPARATOR\\n[#DEPTH]]
.\}
.\}
.if '\\*[$ENUMERATOR_TYPE\\n[#DEPTH]]'other' \
.PRINT \\*[$ENUMERATOR\\n[#DEPTH]]\\*[$SEPARATOR\\n[#DEPTH]]
.\}
.rr #SEP_TYPE
.EOL
.if \\n[#REF]=1 \{\
.IL +\\n[#REF_BIB_INDENT]u
.ti \\n[#L_INDENT]u-\\n[#REF_BIB_INDENT]u
.\}
.TRAP
.if \\n[#KERN_WAS_ON]=1 \{\
.KERN
.rr #KERN_WAS_ON
.\}
.if \\n[#LINENUMBERS]=2 \{\
.NUMBER_LINES RESUME
.nr #LINENUMBERS 1
.\}
.END
.MAC GET_ROMAN_INDENT END
.if '\\*[$LIST_ARG_1]'roman' \{\
.if '\\*[$ROMAN_WIDTH]'1' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 1
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]i\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'2' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 2
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]ii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'3' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 3
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]iii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'4' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 4
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]iii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'5' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 5
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]iii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'6' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 6
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]iii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'7' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 7
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]vii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'8' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 8
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]viii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'9' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 9
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]viii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'10' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 10
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]viii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'11' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 11
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]viii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'12' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 12
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]viii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'13' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 13
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]xiii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'14' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 14
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]xiii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'15' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 15
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]xiii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'16' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 16
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]xiii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'17' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 17
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]xvii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'18' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 18
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]xviii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'19' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 19
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]xviii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'20' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 20
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]xviii\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.\}
.if '\\*[$LIST_ARG_1]'ROMAN' \{\
.if '\\*[$ROMAN_WIDTH]'1' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 1
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]I\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'2' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 2
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]II\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'3' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 3
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]III\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'4' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 4
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]IV\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'5' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 5
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]IV\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'6' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 6
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]IV\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'7' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 7
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]VII\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'8' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 8
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]VIII\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'9' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 9
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]VIII\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'10' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 10
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]VIII\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'11' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 11
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]VIII\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'12' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 12
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]VIII\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'13' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 13
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]XIII\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'14' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 14
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]XIV\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'15' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 15
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]XIV\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'16' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 16
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]XIV\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'17' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 17
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]XVII\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'18' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 18
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]XVIII\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'19' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 19
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]XVIII\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.if '\\*[$ROMAN_WIDTH]'20' \{\
.ds $ROMAN_WIDTH\\n[#DEPTH] 20
.nr #LIST_INDENT\\n[#DEPTH] \
\w'\\*[$PREFIX\\n[#DEPTH]]XVIII\\*[$SEPARATOR\\n[#DEPTH]]\0'
.\}
.\}
.END
.MAC SHIFT_LIST END
.nr #SHIFT_LIST\\n[#DEPTH] (\\$1)
.nr #L_INDENT +\\n[#SHIFT_LIST\\n[#DEPTH]]
.END
.MAC PAD_LIST_DIGITS END
.if '\\g[#ENUMERATOR\\n[#DEPTH]]'0' \{\
.nr #LIST_INDENT\\n[#DEPTH] +\\w'\\0'
.nr #L_INDENT \\n[#LIST_INDENT\\n[#DEPTH]]+\\n[#LIST_INDENT\\n-[#DEPTH]]
.nr #HL_INDENT\\n+[#DEPTH] +\\w'\\n[#ENUMERATOR\\n[#DEPTH]]'
.if '\\$1'LEFT' .nr #PAD_LIST_DIGITS\\n[#DEPTH] 1
.\}
.if '\\g[#ENUMERATOR\\n[#DEPTH]]'i' \
.if '\\$1'LEFT' .nr #PAD_LIST_DIGITS\\n[#DEPTH] 1
.if '\\g[#ENUMERATOR\\n[#DEPTH]]'I' \
.if '\\$1'LEFT' .nr #PAD_LIST_DIGITS\\n[#DEPTH] 1
.END
.MAC RESET_LIST END
.ie '\\$1'' .nr #ENUMERATOR\\n[#DEPTH] 0 1
.el .nr #ENUMERATOR\\n[#DEPTH] \\$1-1 1
.END
.MAC QUIT_LISTS END
.IQ CLEAR
.nr #HL_INDENT \\n[#STORED_HL_INDENT]
.nr #T_INDENT  \\n[#STORED_T_INDENT]
.rr #STORED_HL_INDENT
.if \\n[#RESTORE_PREV_INDENT]=1 \{\
.nr #L_INDENT  \\n[#STORED_L_INDENT]
.IL
.rr #STORED_L_INDENT
.\}
.if \\n[#RESTORE_PREV_INDENT]=2 \{\
.nr #BL_INDENT \\n[#STORED_BL_INDENT]
.nr #BR_INDENT \\n[#STORED_BR_INDENT]
.ll \\n[#ORIG_L_LENGTH]u
.IB
.rr #STORED_BL_INDENT
.rr #STORED_BR_INDENT
.\}
.if \\n[#RESTORE_PREV_INDENT]=3 \{\
.nr #R_INDENT \\n[#STORED_R_INDENT]
.ll \\n[#ORIG_L_LENGTH]u
.IR
.rr #STORED_R_INDENT
.\}
.if \\n[#RESTORE_PREV_INDENT]=4 \{\
.nr #R_INDENT \\n[#STORED_R_INDENT]
.nr #L_INDENT \\n[#STORED_L_INDENT]
.ll \\n[#ORIG_L_LENGTH]u
.IR
.IL
.rr #STORED_R_INDENT
.rr #STORED_L_INDENT
.\}
.nr #REMOVE 0 1
.while \\n+[#REMOVE]<=\\n[#TOTAL_LISTS] \{\
.rr #LIST_INDENT\\n[#REMOVE]
.rr #ENUMERATOR\\n[#REMOVE]
.rm $ENUMERATOR\\n[#REMOVE]
.rm $SEPARATOR\\n[#REMOVE]
.rm $ENUMERATOR_TYPE\\n[#REMOVE]
.rr #PAD_LIST_DIGITS\\n[#REMOVE]
.\}
.rr #REMOVE
.rr #TOTAL_LISTS
.rr #QUIT
.rr #DEPTH
.rr #NEXT_DEPTH_BACK
.rr #RESTORE_PREV_INDENT
.rr #ORIG_L_LENGTH
.rr #CURRENT_L_LENGTH
.rr #IN_ITEM
.rr #IN_ITEM_L_INDENT
.END
.MAC SET_LIST_INDENT END
.nr #NEXT_DEPTH_BACK \\n[#DEPTH]-1
.if \\n[#NEXT_DEPTH_BACK]=0 \{\
.nr #QUIT 1
.return
.\}
.nr #L_INDENT -\\n[#LIST_INDENT\\n[#DEPTH]]+\\n[#SHIFT_LIST\\n[#DEPTH]]
.nr #HL_INDENT \\n[#HL_INDENT\\n-[#DEPTH]]
.END
.MAC COLLATE END
.if \\n[defer] \
.DO_FOOTER
.EOL
.nr #COLLATED_DOC 1
.if ( (\\n[.t]-1) <= \\n[.v] ) .nr #NO_BREAK 1
.ds $SAVED_DOC_FAM \\*[$DOC_FAM]
.ds $SAVED_PP_FT   \\*[$PP_FT]
.nr #COLLATE 1
.nr #PRE_COLLATE 1
.nr #HEADER_STATE \\n[#HEADERS_ON]
.nr #POST_TOP 1
.nr #ARG_NUM 0 1
.nr #LOOP \\n[#ACTIVE_LEVELS]
.nr #HEAD_1_NUM 0 1
.nr eqn*label-width     (\\n[eqn*label-num] >? \\n[eqn*label-width])
.nr pdf-img*label-width (\\n[pdf-img*label-num] >? \\n[pdf-img*label-width])
.nr pic*label-width     (\\n[pic*label-num] >? \\n[pic*label-width])
.nr tbl*label-width     (\\n[tbl*label-num] >? \\n[tbl*label-width])
.nr fig*label-width     (\\n[pdf-img*label-width] >? \\n[pic*label-width])
.if \\n[eqn*label-with-chapter]=1     .nr eqn*label-num     0 1
.if \\n[pdf-img*label-with-chapter]=1 .nr pdf-img*label-num 0 1
.if \\n[pic*label-with-chapter]=1     .nr pic*label-num     0 1
.if \\n[tbl*label-with-chapter]=1     .nr tbl*label-num     0 1
.if (\\n[defer]=0)&(\\n[float*defer]=0) .HEADERS OFF
.if \\n[#DOC_HEADER]=2 .nr #DOC_HEADER 1
.if \\n[#PAGE_NUM_V_POS]=1 \{\
.nr #PAGINATION_STATE \\n[#PAGINATE]
.PAGINATION OFF
.\}
.IQ CLEAR
.TQ
.LL \\n[#DOC_L_LENGTH]u
.QUAD \\*[$DOC_QUAD]
.nr #SAVED_DOC_LEAD \\n[#DOC_LEAD]
.vs \\n[#DOC_LEAD]u
\*[SLANTX]
\*[CONDX]
\*[EXTX]
.if \\n[#TOC] \{\
.if \\n[TOC_BH]=1 .pdfswitchtopage before MOM:TOC
.if \\n[TOC_BH]=2 .pdfswitchtopage after MOM:TOC
.\}
.if !\\n[#NO_NEWPAGE] .NEWPAGE
.rr #NO_NEWPAGE
.ch RR_@TOP
.rr @TOP
.if \\n[.ns] \{\
.rs
.nop \&
.\}
.if '\\n[.ev]'PAGE_TRANSITION' .ev
.if \\n[#DEFER_PAGINATION] .PAGINATE
.if !'\\*[$RESTORE_PAGENUM_STYLE]'' \{\
.PAGENUM_STYLE \\*[$RESTORE_PAGENUM_STYLE]
.rm $RESTORE_PAGENUM_STYLE
.\}
.if \\n[#CH_NUM] \
.if \\n[#TOC]=0 .nr #CH_NUM +1
.rm $EN_TITLE
.COVERTITLE
.DOCCOVERTITLE
.MISC
.TITLE
.SUBTITLE
.CHAPTER
.CHAPTER_TITLE
.rr #PAGENUM_STYLE_SET
.rr #DOC_COVER
.rr #COVER
.rr #LAST_LEVEL
.rr #LEVEL
.if \\n[#RESTORE_PN_V_POS] \{\
.nr #PAGE_NUM_V_POS \\n[#RESTORE_PN_V_POS]
.rr #RESTORE_PN_V_POS
.\}
.END
.MAC NUMBER_LINES END
.br
.if \\n[#QUOTE] \{\
.if \\n[#QUOTE]=1 .ds macro QUOTE
.if \\n[#QUOTE]=2 .ds macro BLOCKQUOTE
.tm1 "[mom]: \\$0 at line \\n[.c] may not be used inside \\*[macro].
.tm1 "       Please set NUMBER_LINES before \\*[macro], followed by
.tm1 "       NUMBER_\\*[macro]_LINES.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.if '\\n[.z]'EPI_TEXT' .return
.if '\\$1'' \{\
.tm1 "[mom]: NUMBER_LINES at line \\n[.c] has no argument.
.tm1 "       Most likely, you have forgotten to give it a starting line number.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.if !\\n[#LINENUMBERS]=2 .nr #LINENUMBERS 1
.if \B'\\$1' \{\
.nr #LN \\$1
.ds $LN_NUM \\$1
.if !'\\n[.z]'' .nr #RESTORE_LN_NUM 1
.ie '\\$2'' \
.if '\\*[$LN_INC]'' .ds $LN_INC 1
.el .ds $LN_INC \\$2
.ie '\\$3'' \
.if !\\n[#LN_GUTTER] .nr #LN_GUTTER 2
.el .nr #LN_GUTTER \\$3
.\}
.ie !\\n[#LN] \{\
.rr #LN
.ie '\\$1'RESUME' \{\
.LN_PARAMS
.nm \\*[$LN_NUM]
.RESTORE_PARAMS
.\}
.el \{\
.nm
.ds $LN_NUM \\n[ln]
.if !\\n[#QUOTE] .nr ln 0
.if !\\n[#LINENUMBERS]=2 .rr #LINENUMBERS
.\}
.\}
.el \{\
.LN_PARAMS
.nm \\*[$LN_NUM] \\*[$LN_INC] \\n[#LN_GUTTER] -3-\\n[#LN_GUTTER]
.RESTORE_PARAMS
.if !'\\n[.z]'' .nr #DIVER_LN_OFF 1
.\}
.rr #LN
.END
.MAC LN_PARAMS END
.ie d$LN_FAM .fam \\*[$LN_FAM]
.el .fam \\n[.fam]
.ie d$LN_FT .ft \\*[$LN_FT]
.el .ft \\n[.sty]
.ie d$LN_SIZE_CHANGE .ps \\*[$LN_SIZE_CHANGE]
.el .ps \\n[.s]
.ie d$LN_COLOR .gcolor \\*[$LN_COLOR]
.el .gcolor \\n[.m]
.END
.MAC RESTORE_PARAMS END
.fam
.ft
.ps
.gcolor
.END
.MAC NUMBER_QUOTE_LINES END
.ie \\n[#NUM_ARGS]=0 .nr #QUOTE_LN 1
.el \{\
.ie \B'\\$1' \{\
.nr #QUOTE_LN 1
.nr #Q_LN_GUTTER \\$1
.\}
.el \{\
.ie '\\$1'SILENT' .nr #SILENT_QUOTE_LN 1
.el \{\
.rr #QUOTE_LN
.rr #SILENT_QUOTE_LN
.\}
.\}
.\}
.END
.MAC NUMBER_BLOCKQUOTE_LINES END
.ie \\n[#NUM_ARGS]=0 .nr #BQUOTE_LN 1
.el \{\
.ie \B'\\$1' \{\
.nr #BQUOTE_LN 1
.nr #BQ_LN_GUTTER \\$1
.\}
.el \{\
.ie '\\$1'SILENT' .nr #SILENT_BQUOTE_LN 1
.el \{\
.rr #BQUOTE_LN
.rr #SILENT_BQUOTE_LN
.\}
.\}
.\}
.END
.MAC BLANKPAGE END
.nr #HOW_MANY \\$1
.nr #PAGES 0 1
.if \\n[#LINENUMBERS] \{\
.nr #LINENUMBERS_WERE_ON 1
.NUMBER_LINES OFF
.\}
.while \\n+[#PAGES]<=\\n[#HOW_MANY] \{\
.if \\n[#HEADERS_ON]=1 \{\
.nr #HEADERS_WERE_ON 1
.HEADERS OFF
.\}
.if \\n[#PAGE_NUM_V_POS]=1 \{\
.if \\n[#PAGINATE]=1 .nr #PAGINATE_WAS_ON 1
.PAGINATION OFF
.\}
.NEWPAGE
.PRINT \&
.if \\n[#FOOTERS_ON]=1 \{\
.nr #FOOTERS_WERE_ON 1
.FOOTERS OFF
.\}
.if \\n[#PAGE_NUM_V_POS]=2 \{\
.if \\n[#PAGINATE]=1 .nr #PAGINATE_WAS_ON 1
.nr #RESTORE_PN_V_POS \\n[#PAGE_NUM_V_POS]
.PAGINATION OFF
.\}
.if \\n[#HEADERS_WERE_ON] .HEADERS
.if \\n[#PAGE_NUM_V_POS]=1 \
.if \\n[#PAGINATE_WAS_ON] .PAGINATE
.\}
.shift
.ie '\\$1'DIVIDER' \{\
.if \\n[#FOOTERS_WERE_ON] .FOOTERS
.if \\n[#RESTORE_PN_V_POS]=2 \{\
.if \\n[#PAGINATE_WAS_ON] .nr #RESTORE_PAGINATION 1
.\}
.shift
.if '\\$1'NULL' .nr #PAGE_NUM_ADJ -\\n[#HOW_MANY]
.\}
.el \{\
.if '\\$1'' \{\
.NEWPAGE
.if \\n[#FOOTERS_WERE_ON] .FOOTERS
.if \\n[#PAGE_NUM_V_POS]=2 \
.if \\n[#PAGINATE_WAS_ON] .PAGINATE
.\}
.if '\\$1'NULL' \{\
.NEWPAGE
.if \\n[#FOOTERS_WERE_ON] .FOOTERS
.if \\n[#PAGE_NUM_V_POS]=2 \
.if \\n[#PAGINATE_WAS_ON] .PAGINATE
.\}
.\}
.if \\n[#PAGINATE]=1 \
.if '\\$1'NULL' .nr #PAGE_NUM_ADJ -\\n[#HOW_MANY]
.if \\n[#LINENUMBERS_WERE_ON] .NUMBER_LINES RESUME
.rr #HOW_MANY
.rr #HEADERS_WERE_ON
.rr #FOOTERS_WERE_ON
.rr #PAGINATE_WAS_ON
.END
.am PSPIC
.vpt 0
\h'(\\n[ps-offset]u + \\n[ps-deswid]u)'
.sp -1
.vpt 1
..
.MAC PROCESS_FLOATS END
.if (\\n[float*defer]>0):(\\n[defer]=0) \{\
.if !\\n[tbl*no-top-hook] .tbl@top-hook
.rr tbl*no-top-hook
.\}
.if \\n[defer] \{\
.ev protect
.evc FLOAT
.nf
.rs
.nop \&
.sp |\\n[#T_MARGIN]u-\\n[#DOC_LEAD]u
.if '\\*[float*type:1]'boxed-tbl' \{\
.ch RR_@TOP
.if (\\n[.t] >= 1)&(\\n[float-depth:1] > \\n[.t]) \
.tbl*float-warning
.if \\n[#MLA] .sp \\n[tbl*label-lead-diff]u
.if (\\n[tbl*have-caption]=1)&(\\n[tbl*caption-after-label]=0) \
.sp \\n[tbl*caption-lead-diff]u
.if \\n[tbl*caption-after-label] .sp 1n+(\\n[tbl*caption-lead-diff]u*2u)
.\}
.if \\n[float*pic] \{\
.if (\\n[pic*have-caption]=1)&(\\n[pic*caption-after-label]=0) \{\
.ie \\n[#COLUMNS] \{\
.sp |\\n[dc]u-.5v
.\}
.el \
.sp |\\n[#T_MARGIN]u-\\n[#DOC_LEAD]u-.5v
.\}
.rr pic*caption-lead-diff
.rr pic*top-lead-diff
.rr float*pic
.\}
.if \\n[float*img] \{\
.ie \\n[#COLUMNS] \
.sp |\\n[dc]u
.el \
.sp |\\n[#T_MARGIN]u-\\n[#DOC_LEAD]u
.\}
.nr defer-count \\n[defer]
.nr loop-count  0 1
.nr new-defer   0 1
.while \\n+[loop-count]<=\\n[defer-count] \{\
.nr tbl*no-top-hook 1
.if \\n[defer] .rnn defer float*defer
.vpt
.ch RR_@TOP
.rr @TOP
.if \\n[pdf-img*have-caption] \{\
.if !\\n[pdf-img*caption-after-label] .sp -.5v
.\}
.rr pdf-img*have-caption
.rr pic*have-caption
.if '\\*[float*type:\\n[loop-count]]'table' \{\
.ch FOOTER \\n[#VARIABLE_FOOTER_POS]u+\\n[#DOC_LEAD]u
.ch FN_OVERFLOW_TRAP -\\n[#FN_OVERFLOW_TRAP_POS]u+\\n[#DOC_LEAD]u
.\}
.ie !\\n[float-span:\\n[loop-count]] \{\
.ie ((\\n[float-depth:\\n[loop-count]]-\\n[.v])>\\n[.t]):(\\n[D-float:\\n[loop-count]]>\\n[.t]) \{\
.rn FLOAT*DIV:\\n[loop-count] NEW*FLOAT*DIV:\\n+[new-defer]
.rnn float-depth:\\n[loop-count] new-float-depth:\\n[new-defer]
.rnn D-float:\\n[loop-count] new-D-float:\\n[new-defer]
.\}
.el \{\
.output-float
.\}
.\}
.el \{\
.rr tbl*no-top-hook
.output-float
.\}
.\}
.rm FLOAT*DIV:\\n[loop-count]
.rr float-depth:\\n[loop-count]
.rm tbl*header-div:\\n[loop-count]
.rm float*type:\\n[loop-count]
.nr loop-count 0 1
.rnn new-defer defer
.while \\n+[loop-count]<=\\n[defer] \{\
.rn NEW*FLOAT*DIV:\\n[loop-count] FLOAT*DIV:\\n[loop-count]
.rnn new-float-depth:\\n[loop-count] float-depth:\\n[loop-count]
.rnn new-D-float:\\n[loop-count] D-float:\\n[loop-count]
.\}
.rr float*defer
.ch FOOTER \\n[#VARIABLE_FOOTER_POS]u
.ch FN_OVERFLOW_TRAP -\\n[#FN_OVERFLOW_TRAP_POS]u
.ev
.SHIM
.if \\n[#SHIM]>(\\n[#DOC_LEAD]-(\\n[#DOC_LEAD]/4)) 'sp -\\n[#DOC_LEAD]u
.nr tbl*have-header 0
.rr loop-count
.rr defer-count
.rr float*before-shim
.rr float*after-shim
.rm float-adj
.rm float-adj:top
.rm float-adj:bottom
.if \\n[#NEWPAGE] \{\
.vpt
'          bp
.rr #NEWPAGE
.\}
.\}
.rr float*img
.rr float*eqn
.rr float*tbl
.rr float*pic
.END
.MAC output-float END
.vpt 0
.nop \&
.sp -1
.if \\n[no-top-space] \{\
.ie !\\n[#COLUMNS] \{\
.sp |\\n[#T_MARGIN]u-\\n[#DOC_LEAD]u
.ns
.\}
.el .sp |\\n[dc]u
.if \\n[float*tbl] \{\
.rs
.if \\n[tbl*caption-top-lead-diff] \{\
.sp \\n[tbl*caption-top-lead-diff]u
.rr tbl*caption-top-lead-diff
.\}
.rr float*tbl
.\}
.\}
.if \\n[float*pic] \{\
.nr pic*top-space-adj \\n[#DOC_LEAD]-\\n[pic@text-lead]
.if (\\n[pic*have-caption]=0):(\\n[pic*caption-after-label]=1) \{\
.sp \\n[pic*top-space-adj]u
.\}
.if \\n[#COLUMNS] \{\
.if !'\\*[pic*space-adj]'' .sp \\*[pic*space-adj]
.\}
.rr float*pic
.\}
.if \\n[float*eqn] \{\
.sp -.5v
.rr float*eqn
.\}
.FLOAT*DIV:\\n[loop-count]
.if \\n[no-top-space] \{\
.rs
.nop \&
.sp -1
.rr no-top-space
.\}
.if \\n[#COLUMNS] \
.if !'\\*[pic*space-adj]'' .sp -\\*[pic*space-adj]
.rm pic*space-adj
.if \\n[D-float:\\n[loop-count]] \{\
.sp \
-\\n[float-depth:\\n[loop-count]]u+\\n[D-float:\\n[loop-count]]u+\\n[#DOC_LEAD]u
.rr D-float:\\n[loop-count]
.\}
.END
.MAC FLOAT END
.nr pagenum \\n%+\\n[#PAGE_NUM_ADJ]
.br
.if \\n[nl]=\\n[#PAGE_TOP] \{\
.vpt 0
.sp -1v
.sp
.ch RR_@TOP
.rr @TOP
.vpt
.\}
.if \\n[#NUM_ARGS]>0 \{\
.nr loop-count 0 1
.nr loop-counter \\n[#NUM_ARGS]
.while \\n+[loop-count]<=\\n[loop-counter] \{\
.if '\\$1'FORCE' \{\
.nr #FORCE 1
.shift
.\}
.if '\\$1'SPAN' \{\
.nr float-span 1
.shift
.\}
.if '\\$1'ADJUST' \{\
.shift
.ds float-adj \\$1
.shift
.\}
.if '\\$1'NO_SHIM' \{\
.nr float*no-shim 1
.shift
.\}
.\}
.\}
.ie '\\$1'' \{\
.ev FLOAT
.evc 0
.nf
.di FLOAT*DIV
.\}
.el \{\
.br
.di
.if \\n[float*table] \
.if !\\n[tbl*have-header] .ev
.ev
.if \\n[tbl*boxed] \{\
.ie !\\n[#MLA] \{\
.ie (\\n[tbl@label]=1):(\\n[tbl@source]=1) .nr dn -.65v
.el .nr dn +.65v
.\}
.el \{\
.if !\\n[tbl@source] .nr dn -1.65v
.\}
.\}
.if (\\n[dn]>\\n[.t]):(\\n[D-float]>\\n[.t]) \{\
.ie \\n[@TOP] \
.if \\n[tbl*boxed] .rs
.el \{\
.if !\\n[defer] .nr defer 0 1
.rn FLOAT*DIV FLOAT*DIV:\\n+[defer]
.if \\n[float-span] \
.if !\\n[tbl*boxed] .rnn float-span float-span:\\n[defer]
.if \\n[float*tbl] \{\
.if \\n[defer]=1 .nr no-top-space 1
.ie \\n[tbl*boxed] \{\
.ds float*type:\\n[defer] boxed-tbl
.rr float-span
.\}
.el .ds float*type:\\n[defer] table
.if \\n[tbl*center] .nr float*tbl-center:\\n[defer] 1
.rn tbl*header-div tbl*header-div:\\n[defer]
.rr tbl*center
.\}
.if \\n[float*eqn] \{\
.if \\n[defer]=1 .nr no-top-space 1
.ds float*type:\\n[defer] eqn
.\}
.if \\n[float*pic] \{\
.ds float*type:\\n[defer] pic
.\}
.if \\n[float*img] \{\
.ds float*type:\\n[defer] img
.\}
.if \\n[D-float] .nr D-float:\\n[defer] \\n[D-float]
.nr float-depth:\\n[defer] \\n[dn]
.if \\n[#FORCE] \{\
.bp
.rr #FORCE
.\}
.return
.\}
.\}
.if !'\\*[float-adj]'' .sp \\*[float-adj]
.if \\n[.u] .nr fill 1
.if \\n[@TOP] \{\
.nr no-adjust 1
.rr @TOP
.\}
.nf
.if \\n[float*tbl] \
.if (\\n[#MLA]=1)&(\\n[tbl@source]=0) \
.chop FLOAT*DIV
.if \\n[nl]=\\n[#PAGE_TOP] \{\
.if \\n[tbl*have-caption] \{\
.ie !\\n[#MLA] .sp \\n[tbl*caption-lead-diff]u
.el \{\
.ch RR_@TOP
.sp \\n[tbl*label-lead-diff]u-.5v
.\}
.\}
.\}
.FLOAT*DIV
.if \\n[float*tbl] \{\
.ie \\n[tbl*boxed] \{\
.if \\n[dn]=\\n[bx-tbl-depth] .sp .35v
.if \\n[tbl*plain-boxed] .sp .5v
.ch FOOTER \\n[#VARIABLE_FOOTER_POS]u
.ch FN_OVERFLOW_TRAP -\\n[#FN_OVERFLOW_TRAP_POS]u
.rr tbl*boxed
.rr bx-tbl-depth
.\}
.el \{\
.if '\\*[tbl*label]'' \
.if \\n[tbl*autolabel]=0 .sp
.\}
.rr float*tbl
.rr tbl*center
.rm tbl*header-div
.rr tbl*have-caption
.rr tbl*have-label
.rr tbl*have-source
.rm tbl*caption
.rm tbl*label
.rm tbl*source
.\}
.if \\n[D-float] \
.sp -\\n[dn]u+\\n[#DOC_LEAD]u+\\n[D-float]u
.if \\n[fill] \{\
.fi
.rr fill
.\}
.rm FLOAT*DIV
.if !'\\*[float-adj]'' \
.if !\\n[no-adjust] .sp -\\*[float-adj]
.if !\\n[float*no-shim] .SHIM
.rm float-adj
.rm no-adjust
.rm float-adj:top
.rm float-adj:bottom
.rr D-float
.rr float*no-shim
.rr #FORCE
.\}
.END
.MAC RR_@TOP END
.rr @TOP
.if \\n[.ns] \{\
.vpt 0
.rs
.if \\n[.u] .nr fill 1
.nf
.nop \&
.sp -1
.if \\n[fill] .fi
.\}
.if \\n[.vpt]=0 .vpt
.END
.MAC TRAPS END
.if !\\n[#UNADJUSTED_DOC_LEAD]  .nr #UNADJUSTED_DOC_LEAD \\n[#DOC@LEAD]
.if !\\n[#NO_TRAP_RESET] \{\
.ch DO_T_MARGIN
.ch DO_B_MARGIN
.ch HEADER
.ch FOOTER
.ch FN_OVERFLOW_TRAP
.wh 0 HEADER
.\}
.nr #LINES_PER_PAGE 0 1
.nr #DOC_LEAD_ADJ 0 1
.nr #DEPTH_TO_B_MARGIN \\n[#PAGE_LENGTH]-\\n[#ORIGINAL_B_MARGIN]-\\n[#DOC_LEAD]
.while \\n[#T_MARGIN]+(\\n[#DOC_LEAD]*\\n+[#LINES_PER_PAGE])<\\n[#DEPTH_TO_B_MARGIN] \{\
.\}
.nr #LINES_PER_PAGE -1
.while \\n[#T_MARGIN]+(\\n[#DOC_LEAD]+\\n+[#DOC_LEAD_ADJ]*\\n[#LINES_PER_PAGE])<=\\n[#DEPTH_TO_B_MARGIN] \{\
.\}
.DOC_LEAD \\n[#DOC_LEAD]u+\\n[#DOC_LEAD_ADJ]u
.nr #VISUAL_B_MARGIN \\n[#T_MARGIN]+(\\n[#LINES_PER_PAGE]*\\n[#DOC_LEAD])
.nr #FOOTER_DIFF (\\n[#PAGE_LENGTH]-\\n[#B_MARGIN])-\\n[#VISUAL_B_MARGIN]
.nr #B_MARGIN \\n[#B_MARGIN]+(\\n[#FOOTER_DIFF]-1)
.nr #FN_OVERFLOW_TRAP_POS \\n[#B_MARGIN]-\\n[#FN_LEAD]
.if \\n[#PRINT_STYLE]=1 .nr #FN_OVERFLOW_TRAP_POS \\n[#ORIGINAL_B_MARGIN]u
.if !\\n[#NO_TRAP_RESET] \{\
.nr #FN_COUNT 0 1
.nr #SPACE_REMAINING 0
.nr #FN_DEPTH 0
.nr #VARIABLE_FOOTER_POS 0-\\n[#B_MARGIN]u
.wh \\n[.p]u FOOTER
.wh -(\\n[#FN_OVERFLOW_TRAP_POS]u) FN_OVERFLOW_TRAP
.ch FOOTER -\\n[#B_MARGIN]u
.\}
.END
.MAC CHECK_INDENT END
.if \\n[#INDENT_LEFT_ACTIVE] \{\
.in \\n[#L_INDENT]u
.if \\n[#QUOTE] \{\
.in -\\n[#L_INDENT]u
.ll -\\n[#L_INDENT]u
.ta \\n[.l]u
.\}
.if \\n[#EPIGRAPH] \{\
.in -\\n[#L_INDENT]u
.ll -\\n[#L_INDENT]u
.ta \\n[.l]u
.\}
.\}
.if \\n[#INDENT_RIGHT_ACTIVE] \{\
.ll -\\n[#R_INDENT]u
.ta \\n[.l]u
.\}
.if \\n[#INDENT_BOTH_ACTIVE] \{\
.in \\n[#BL_INDENT]u
.ll -\\n[#BR_INDENT]u
.ta \\n[.l]u
.if \\n[#QUOTE] \{\
.in -\\n[#BL_INDENT]u
.ie \\n[#BR_INDENT]=\\n[#BL_INDENT] \{\
.ll -\\n[#BR_INDENT]u
.ta \\n[.l]u
.\}
.el \{\
.ll -(\\n[#BR_INDENT]u/2u)
.ta \\n[.l]u
.\}
.\}
.if \\n[#EPIGRAPH] \{\
.in -\\n[#BL_INDENT]u
.ie \\n[#BR_INDENT]=\\n[#BL_INDENT] \{\
.ll -\\n[#BR_INDENT]u
.ta \\n[.l]u
.\}
.el \{\
.ll -(\\n[#BR_INDENT]u/2u)
.ta \\n[.l]u
.\}
.\}
.\}
.END
.MAC REMOVE_INDENT END
.in 0
.ll \\n[#L_LENGTH]u
.ta \\n[.l]u
.END
.MAC TERMINATE END
.ie \\n[#FN_DEPTH] \{\
.ie \\n[#FN_DEFER] \{\
.br
.nr #TERMINATE 1
.FOOTNOTE
.nf
.FOOTNOTE OFF
.\}
.el \{\
.br
.ch FN_OVERFLOW_TRAP
.DO_FOOTER
.\}
.\}
.el \{\
.ch FN_OVERFLOW_TRAP
.DO_FOOTER
.\}
.END
.MAC ALL_DONE END
.ch FOOTER
.ch HEADER
.br
.if \\n[#DOC_TYPE]=4 \{\
.if !'\\n[.z]'' \{\
.br
.ALD \\*[$SIG_SPACE]
.di
.\}
.IQ CLEAR
.TQ
.LEFT
.ie !'\\*[$CLOSE_INDENT]'' .IL \\*[$CLOSE_INDENT]
.el .IL \\n[#DOC_L_LENGTH]u/2u
.SP
.if \\n[#CLOSING] \{\
.CLOSING_TEXT
.br
.\}
.PRINT \\*[$AUTHOR_1]
.\}
.END
.PAPER LETTER
.ALIAS   BREAK_BLOCKQUOTE    BREAK_QUOTE
.ALIAS   BREAK_CITATION      BREAK_QUOTE
.ALIAS   BREAK_CITE          BREAK_QUOTE
.ALIAS   BLOCKQUOTE_INDENT   QUOTE_INDENT
.ALIAS   CITATION            BLOCKQUOTE
.ALIAS   CITATION_FAMILY     BLOCKQUOTE_FAMILY
.ALIAS   CITATION_FONT       BLOCKQUOTE_FONT
.ALIAS   CITATION_SIZE       BLOCKQUOTE_SIZE
.ALIAS   CITATION_COLOR      BLOCKQUOTE_COLOR
.ALIAS   CITATION_QUAD       BLOCKQUOTE_QUAD
.ALIAS   CITE                BLOCKQUOTE
.ALIAS   CITE_FAMILY         BLOCKQUOTE_FAMILY
.ALIAS   CITE_FONT           BLOCKQUOTE_FONT
.ALIAS   CITE_SIZE           BLOCKQUOTE_SIZE
.ALIAS   CITE_COLOR          BLOCKQUOTE_COLOR
.ALIAS   CITE_QUAD           BLOCKQUOTE_QUAD
.ALIAS   DOC_R_MARGIN        DOC_RIGHT_MARGIN
.ALIAS   DOC_L_MARGIN        DOC_LEFT_MARGIN
.ALIAS   DOC_L_LENGTH        DOC_LINE_LENGTH
.ALIAS   DOC_RMARGIN         DOC_RIGHT_MARGIN
.ALIAS   DOC_LMARGIN         DOC_LEFT_MARGIN
.ALIAS   DOC_LLENGTH         DOC_LINE_LENGTH
.ALIAS   DOC_FAM             DOC_FAMILY
.ALIAS   DOC_LS              DOC_LEAD
.ALIAS   DOC_PS              DOC_PT_SIZE
.ALIAS   FILL                QUAD
.ALIAS   PAGENUM             PAGENUMBER
.ALIAS   PAGINATION          PAGINATE
.ALIAS   PP_FT               PP_FONT
.ALIAS   REF_INDENT          INDENT_REFS
.ALIAS   TOC_PS              TOC_PT_SIZE
.MAC FOOTER_CENTER_COLOR END
.HDRFTR_CENTER_COLOR \\$1
.END
.MAC FOOTER_CENTER_COLOUR END
.HDRFTR_CENTER_COLOR \\$1
.END
.MAC FOOTER_CENTER_FAM END
.HDRFTR_CENTER_FAMILY \\$1
.END
.MAC FOOTER_CENTER_FAMILY END
.HDRFTR_CENTER_FAMILY \\$1
.END
.MAC FOOTER_CENTER_FONT END
.HDRFTR_CENTER_FONT \\$1
.END
.MAC FOOTER_CENTER_FT END
.HDRFTR_CENTER_FONT \\$1
.END
.MAC FOOTER_CENTER_PS END
.HDRFTR_CENTER_SIZE \\$1
.END
.MAC FOOTER_CENTER_SIZE END
.HDRFTR_CENTER_SIZE \\$1
.END
.MAC FOOTER_CENTRE_CAPS END
.HDRFTR_CENTER_CAPS \\$1
.END
.MAC FOOTER_CENTRE_COLOR END
.HDRFTR_CENTRE_COLOR \\$1
.END
.MAC FOOTER_CENTRE_COLOUR END
.HDRFTR_CENTRE_COLOR \\$1
.END
.MAC FOOTER_CENTRE_FAM END
.HDRFTR_CENTER_FAMILY \\$1
.END
.MAC FOOTER_CENTRE_FAMILY END
.HDRFTR_CENTER_FAMILY \\$1
.END
.MAC FOOTER_CENTRE_FONT END
.HDRFTR_CENTER_FONT \\$1
.END
.MAC FOOTER_CENTRE_FT END
.HDRFTR_CENTER_FONT \\$1
.END
.MAC FOOTER_CENTRE_PS END
.HDRFTR_CENTER_SIZE \\$1
.END
.MAC FOOTER_CENTRE_SIZE END
.HDRFTR_CENTER_SIZE \\$1
.END
.MAC FOOTER_COLOR END
.HDRFTR_COLOR \\$1
.END
.MAC FOOTER_COLOUR END
.HDRFTR_COLOR \\$1
.END
.MAC FOOTER_FAM END
.HDRFTR_FAMILY \\$1
.END
.MAC FOOTER_FAMILY END
.HDRFTR_FAMILY \\$1
.END
.MAC FOOTER_LEFT_COLOR END
.HDRFTR_LEFT_COLOR \\$1
.END
.MAC FOOTER_LEFT_COLOUR END
.HDRFTR_LEFT_COLOR \\$1
.END
.MAC FOOTER_LEFT_FAM END
.HDRFTR_LEFT_FAMILY \\$1
.END
.MAC FOOTER_LEFT_FAMILY END
.HDRFTR_LEFT_FAMILY \\$1
.END
.MAC FOOTER_LEFT_FONT END
.HDRFTR_LEFT_FONT \\$1
.END
.MAC FOOTER_LEFT_FT END
.HDRFTR_LEFT_FONT \\$1
.END
.MAC FOOTER_LEFT_PS END
.HDRFTR_LEFT_SIZE \\$1
.END
.MAC FOOTER_LEFT_SIZE END
.HDRFTR_LEFT_SIZE \\$1
.END
.MAC FOOTER_RIGHT_COLOR END
.HDRFTR_RIGHT_COLOR \\$1
.END
.MAC FOOTER_RIGHT_COLOUR END
.HDRFTR_RIGHT_COLOR \\$1
.END
.MAC FOOTER_RIGHT_FAM END
.HDRFTR_RIGHT_FAMILY \\$1
.END
.MAC FOOTER_RIGHT_FAMILY END
.HDRFTR_RIGHT_FAMILY \\$1
.END
.MAC FOOTER_RIGHT_FONT END
.HDRFTR_RIGHT_FONT \\$1
.END
.MAC FOOTER_RIGHT_FT END
.HDRFTR_RIGHT_FONT \\$1
.END
.MAC FOOTER_RIGHT_PS END
.HDRFTR_RIGHT_SIZE \\$1
.END
.MAC FOOTER_RIGHT_SIZE END
.HDRFTR_RIGHT_SIZE \\$1
.END
.MAC FOOTER_RULE_COLOR END
.HDRFTR_RULE_COLOR \\$1
.END
.MAC FOOTER_SIZE END
.HDRFTR_SIZE \\$1
.END
.MAC HEADER_CENTER_COLOR END
.HDRFTR_CENTER_COLOR \\$1
.END
.MAC HEADER_CENTER_COLOUR END
.HDRFTR_CENTER_COLOR \\$1
.END
.MAC HEADER_CENTER_FAM END
.HDRFTR_CENTER_FAMILY \\$1
.END
.MAC HEADER_CENTER_FAMILY END
.HDRFTR_CENTER_FAMILY \\$1
.END
.MAC HEADER_CENTER_FONT END
.HDRFTR_CENTER_FONT \\$1
.END
.MAC HEADER_CENTER_FT END
.HDRFTR_CENTER_FONT \\$1
.END
.MAC HEADER_CENTER_PS END
.HDRFTR_CENTER_SIZE \\$1
.END
.MAC HEADER_CENTER_SIZE END
.HDRFTR_CENTER_SIZE \\$1
.END
.MAC HEADER_CENTRE_COLOR END
.HDRFTR_CENTRE_COLOR \\$1
.END
.MAC HEADER_CENTRE_COLOUR END
.HDRFTR_CENTRE_COLOR \\$1
.END
.MAC HEADER_CENTRE_FAM END
.HDRFTR_CENTER_FAMILY \\$1
.END
.MAC HEADER_CENTRE_FAMILY END
.HDRFTR_CENTER_FAMILY \\$1
.END
.MAC HEADER_CENTRE_FONT END
.HDRFTR_CENTER_FONT \\$1
.END
.MAC HEADER_CENTRE_FT END
.HDRFTR_CENTER_FONT \\$1
.END
.MAC HEADER_CENTRE_PS END
.HDRFTR_CENTER_SIZE \\$1
.END
.MAC HEADER_CENTRE_SIZE END
.HDRFTR_CENTER_SIZE \\$1
.END
.MAC HEADER_COLOR END
.HDRFTR_COLOR \\$1
.END
.MAC HEADER_COLOUR END
.HDRFTR_COLOR \\$1
.END
.MAC HEADER_FAM END
.HDRFTR_FAMILY \\$1
.END
.MAC HEADER_FAMILY END
.HDRFTR_FAMILY \\$1
.END
.MAC HEADER_LEFT_COLOR END
.HDRFTR_LEFT_COLOR \\$1
.END
.MAC HEADER_LEFT_COLOUR END
.HDRFTR_LEFT_COLOR \\$1
.END
.MAC HEADER_LEFT_FAM END
.HDRFTR_LEFT_FAMILY \\$1
.END
.MAC HEADER_LEFT_FAMILY END
.HDRFTR_LEFT_FAMILY \\$1
.END
.MAC HEADER_LEFT_FONT END
.HDRFTR_LEFT_FONT \\$1
.END
.MAC HEADER_LEFT_FT END
.HDRFTR_LEFT_FONT \\$1
.END
.MAC HEADER_LEFT_PS END
.HDRFTR_LEFT_SIZE \\$1
.END
.MAC HEADER_LEFT_SIZE END
.HDRFTR_LEFT_SIZE \\$1
.END
.MAC HEADER_RIGHT_COLOR END
.HDRFTR_RIGHT_COLOR \\$1
.END
.MAC HEADER_RIGHT_COLOUR END
.HDRFTR_RIGHT_COLOR \\$1
.END
.MAC HEADER_RIGHT_FAM END
.HDRFTR_RIGHT_FAMILY \\$1
.END
.MAC HEADER_RIGHT_FAMILY END
.HDRFTR_RIGHT_FAMILY \\$1
.END
.MAC HEADER_RIGHT_FONT END
.HDRFTR_RIGHT_FONT \\$1
.END
.MAC HEADER_RIGHT_FT END
.HDRFTR_RIGHT_FONT \\$1
.END
.MAC HEADER_RIGHT_PS END
.HDRFTR_RIGHT_SIZE \\$1
.END
.MAC HEADER_RIGHT_SIZE END
.HDRFTR_RIGHT_SIZE \\$1
.END
.MAC HEADER_RULE_COLOR END
.HDRFTR_RULE_COLOR \\$1
.END
.MAC HEADER_SIZE END
.HDRFTR_SIZE \\$1
.END
.ALIAS   BIBLIOGRAPHY_FOOTER_CENTER    BIBLIOGRAPHY_HDRFTR_CENTER
.ALIAS   BIBLIOGRAPHY_FOOTER_CENTRE    BIBLIOGRAPHY_HDRFTR_CENTRE
.ALIAS   BIBLIOGRAPHY_HEADER_CENTER    BIBLIOGRAPHY_HDRFTR_CENTER
.ALIAS   BIBLIOGRAPHY_HEADER_CENTRE    BIBLIOGRAPHY_HDRFTR_CENTRE
.ALIAS   ENDNOTES_FOOTER_CENTER    ENDNOTES_HDRFTR_CENTER
.ALIAS   ENDNOTES_FOOTER_CENTRE    ENDNOTES_HDRFTR_CENTRE
.ALIAS   ENDNOTES_HEADER_CENTER    ENDNOTES_HDRFTR_CENTER
.ALIAS   ENDNOTES_HEADER_CENTRE    ENDNOTES_HDRFTR_CENTRE
.ALIAS   FOOTER_CENTER_CAPS        HDRFTR_CENTER_CAPS
.ALIAS   FOOTER_CENTER             HDRFTR_CENTER
.ALIAS   FOOTER_CENTER_PAD         HDRFTR_CENTER_PAD
.ALIAS   FOOTER_CENTRE             HDRFTR_CENTER
.ALIAS   FOOTER_CENTRE_PAD         HDRFTR_CENTER_PAD
.ALIAS   FOOTER_LEFT_CAPS          HDRFTR_LEFT_CAPS
.ALIAS   FOOTER_LEFT               HDRFTR_LEFT
.ALIAS   FOOTER_PLAIN              HDRFTR_PLAIN
.ALIAS   FOOTER_RECTO              HDRFTR_RECTO
.ALIAS   FOOTER_RIGHT_CAPS         HDRFTR_RIGHT_CAPS
.ALIAS   FOOTER_RIGHT              HDRFTR_RIGHT
.ALIAS   FOOTER_RULE_GAP           HDRFTR_RULE_GAP
.ALIAS   FOOTER_RULE               HDRFTR_RULE
.ALIAS   FOOTER_VERSO              HDRFTR_VERSO
.ALIAS   HEADER_CENTER_CAPS        HDRFTR_CENTER_CAPS
.ALIAS   HEADER_CENTER             HDRFTR_CENTER
.ALIAS   HEADER_CENTER_PAD         HDRFTR_CENTER_PAD
.ALIAS   HEADER_CENTRE_CAPS        HDRFTR_CENTER_CAPS
.ALIAS   HEADER_CENTRE             HDRFTR_CENTER
.ALIAS   HEADER_CENTRE_PAD         HDRFTR_CENTER_PAD
.ALIAS   HEADER_LEFT_CAPS          HDRFTR_LEFT_CAPS
.ALIAS   HEADER_LEFT               HDRFTR_LEFT
.ALIAS   HEADER_PLAIN              HDRFTR_PLAIN
.ALIAS   HEADER_RECTO              HDRFTR_RECTO
.ALIAS   HEADER_RIGHT_CAPS         HDRFTR_RIGHT_CAPS
.ALIAS   HEADER_RIGHT              HDRFTR_RIGHT
.ALIAS   HEADER_RULE_GAP           HDRFTR_RULE_GAP
.ALIAS   HEADER_RULE               HDRFTR_RULE
.ALIAS   HEADER_VERSO              HDRFTR_VERSO
.ALIAS   SWITCH_FOOTERS            SWITCH_HDRFTR
.ALIAS   SWITCH_HEADERS            SWITCH_HDRFTR
.ALIAS   AUTHOR_FAMILY                    _FAMILY
.ALIAS   BIBLIOGRAPHY_FAMILY              _FAMILY
.ALIAS   BIBLIOGRAPHY_STRING_FAMILY       _FAMILY
.ALIAS   BLOCKQUOTE_FAMILY                _FAMILY
.ALIAS   CHAPTER_TITLE_FAMILY             _FAMILY
.ALIAS   COVER_AUTHOR_FAMILY              _FAMILY
.ALIAS   COVER_CHAPTER_TITLE_FAMILY       _FAMILY
.ALIAS   COVER_COPYRIGHT_FAMILY           _FAMILY
.ALIAS   COVER_DOCTYPE_FAMILY             _FAMILY
.ALIAS   COVER_FAMILY                     _FAMILY
.ALIAS   COVER_MISC_FAMILY                _FAMILY
.ALIAS   COVER_SUBTITLE_FAMILY            _FAMILY
.ALIAS   COVER_TITLE_FAMILY               _FAMILY
.ALIAS   DOC_COVER_AUTHOR_FAMILY          _FAMILY
.ALIAS   DOC_COVER_CHAPTER_TITLE_FAMILY   _FAMILY
.ALIAS   DOC_COVER_COPYRIGHT_FAMILY       _FAMILY
.ALIAS   DOC_COVER_DOCTYPE_FAMILY         _FAMILY
.ALIAS   DOC_COVER_FAMILY                 _FAMILY
.ALIAS   DOC_COVER_MISC_FAMILY            _FAMILY
.ALIAS   DOC_COVER_SUBTITLE_FAMILY        _FAMILY
.ALIAS   DOC_COVER_TITLE_FAMILY           _FAMILY
.ALIAS   DOCHEADER_FAMILY                 _FAMILY
.ALIAS   DOCTYPE_FAMILY                   _FAMILY
.ALIAS   ENDNOTE_FAMILY                   _FAMILY
.ALIAS   ENDNOTE_NUMBER_FAMILY            _FAMILY
.ALIAS   ENDNOTE_LINENUMBER_FAMILY        _FAMILY
.ALIAS   ENDNOTE_STRING_FAMILY            _FAMILY
.ALIAS   ENDNOTE_TITLE_FAMILY             _FAMILY
.ALIAS   EPIGRAPH_FAMILY                  _FAMILY
.ALIAS   FOOTNOTE_FAMILY                  _FAMILY
.ALIAS   HDRFTR_CENTER_FAMILY             _FAMILY
.ALIAS   HDRFTR_FAMILY                    _FAMILY
.ALIAS   HDRFTR_LEFT_FAMILY               _FAMILY
.ALIAS   HDRFTR_RIGHT_FAMILY              _FAMILY
.ALIAS   LINENUMBER_FAMILY                _FAMILY
.ALIAS   PAGENUM_FAMILY                   _FAMILY
.ALIAS   QUOTE_FAMILY                     _FAMILY
.ALIAS   SUBTITLE_FAMILY                  _FAMILY
.ALIAS   TITLE_FAMILY                     _FAMILY
.ALIAS   TOC_FAM                          _FAMILY
.ALIAS   TOC_FAMILY                       _FAMILY
.ALIAS   TOC_HEADER_FAMILY                _FAMILY
.ALIAS   TOC_PN_FAMILY                    _FAMILY
.ALIAS   AUTHOR_FONT                    _FONT
.ALIAS   BIBLIOGRAPHY_STRING_FONT       _FONT
.ALIAS   BIBLIOGRAPHY_FONT              _FONT
.ALIAS   BLOCKQUOTE_FONT                _FONT
.ALIAS   CHAPTER_TITLE_FONT             _FONT
.ALIAS   COVER_AUTHOR_FONT              _FONT
.ALIAS   COVER_CHAPTER_TITLE_FONT       _FONT
.ALIAS   COVER_COPYRIGHT_FONT           _FONT
.ALIAS   COVER_DOCTYPE_FONT             _FONT
.ALIAS   COVER_MISC_FONT                _FONT
.ALIAS   COVER_SUBTITLE_FONT            _FONT
.ALIAS   COVER_TITLE_FONT               _FONT
.ALIAS   DOC_COVER_AUTHOR_FONT          _FONT
.ALIAS   DOC_COVER_CHAPTER_TITLE_FONT   _FONT
.ALIAS   DOC_COVER_COPYRIGHT_FONT       _FONT
.ALIAS   DOC_COVER_DOCTYPE_FONT         _FONT
.ALIAS   DOC_COVER_MISC_FONT            _FONT
.ALIAS   DOC_COVER_SUBTITLE_FONT        _FONT
.ALIAS   DOC_COVER_TITLE_FONT           _FONT
.ALIAS   DOCTYPE_FONT                   _FONT
.ALIAS   ENDNOTE_FONT                   _FONT
.ALIAS   ENDNOTE_NUMBER_FONT            _FONT
.ALIAS   ENDNOTE_LINENUMBER_FONT        _FONT
.ALIAS   ENDNOTE_STRING_FONT            _FONT
.ALIAS   ENDNOTE_TITLE_FONT             _FONT
.ALIAS   EPIGRAPH_FONT                  _FONT
.ALIAS   FOOTNOTE_FONT                  _FONT
.ALIAS   HDRFTR_CENTER_FONT             _FONT
.ALIAS   HDRFTR_LEFT_FONT               _FONT
.ALIAS   HDRFTR_RIGHT_FONT              _FONT
.ALIAS   LINENUMBER_FONT                _FONT
.ALIAS   PAGENUM_FONT                   _FONT
.ALIAS   QUOTE_FONT                     _FONT
.ALIAS   SUBTITLE_FONT                  _FONT
.ALIAS   TITLE_FONT                     _FONT
.ALIAS   TOC_HEADER_FONT                _FONT
.ALIAS   TOC_PN_FONT                    _FONT
.ALIAS   AUTHOR_SIZE                    _SIZE
.ALIAS   BIBLIOGRAPHY_STRING_SIZE       _SIZE
.ALIAS   BLOCKQUOTE_SIZE                _SIZE
.ALIAS   CHAPTER_TITLE_SIZE             _SIZE
.ALIAS   COVER_AUTHOR_SIZE              _SIZE
.ALIAS   COVER_CHAPTER_TITLE_SIZE       _SIZE
.ALIAS   COVER_COPYRIGHT_SIZE           _SIZE
.ALIAS   COVER_DOCTYPE_SIZE             _SIZE
.ALIAS   COVER_MISC_SIZE                _SIZE
.ALIAS   COVER_SUBTITLE_SIZE            _SIZE
.ALIAS   COVER_TITLE_SIZE               _SIZE
.ALIAS   DOC_COVER_AUTHOR_SIZE          _SIZE
.ALIAS   DOC_COVER_CHAPTER_TITLE_SIZE   _SIZE
.ALIAS   DOC_COVER_COPYRIGHT_SIZE       _SIZE
.ALIAS   DOC_COVER_DOCTYPE_SIZE         _SIZE
.ALIAS   DOC_COVER_MISC_SIZE            _SIZE
.ALIAS   DOC_COVER_SUBTITLE_SIZE        _SIZE
.ALIAS   DOC_COVER_TITLE_SIZE           _SIZE
.ALIAS   DOCTYPE_SIZE                   _SIZE
.ALIAS   ENDNOTE_NUMBER_SIZE            _SIZE
.ALIAS   ENDNOTE_LINENUMBER_SIZE        _SIZE
.ALIAS   ENDNOTE_STRING_SIZE            _SIZE
.ALIAS   ENDNOTE_TITLE_SIZE             _SIZE
.ALIAS   EPIGRAPH_SIZE                  _SIZE
.ALIAS   FOOTNOTE_SIZE                  _SIZE
.ALIAS   HDRFTR_CENTER_SIZE             _SIZE
.ALIAS   HDRFTR_LEFT_SIZE               _SIZE
.ALIAS   HDRFTR_RIGHT_SIZE              _SIZE
.ALIAS   HDRFTR_SIZE                    _SIZE
.ALIAS   LINENUMBER_SIZE                _SIZE
.ALIAS   PAGENUM_SIZE                   _SIZE
.ALIAS   QUOTE_SIZE                     _SIZE
.ALIAS   SUBTITLE_SIZE                  _SIZE
.ALIAS   TITLE_SIZE                     _SIZE
.ALIAS   TOC_HEADER_SIZE                _SIZE
.ALIAS   TOC_PN_SIZE                    _SIZE
.ALIAS   ATTRIBUTE_COLOR                 _COLOR
.ALIAS   AUTHOR_COLOR                    _COLOR
.ALIAS   BLOCKQUOTE_COLOR                _COLOR
.ALIAS   CHAPTER_TITLE_COLOR             _COLOR
.ALIAS   CODE_COLOR                      _COLOR
.ALIAS   COVER_ATTRIBUTE_COLOR           _COLOR
.ALIAS   COVER_AUTHOR_COLOR              _COLOR
.ALIAS   COVER_CHAPTER_TITLE_COLOR       _COLOR
.ALIAS   COVER_COLOR                     _COLOR
.ALIAS   COVER_COPYRIGHT_COLOR           _COLOR
.ALIAS   COVER_DOCTYPE_COLOR             _COLOR
.ALIAS   COVER_MISC_COLOR                _COLOR
.ALIAS   COVER_SUBTITLE_COLOR            _COLOR
.ALIAS   COVER_TITLE_COLOR               _COLOR
.ALIAS   DOC_COVER_ATTRIBUTE_COLOR       _COLOR
.ALIAS   DOC_COVER_AUTHOR_COLOR          _COLOR
.ALIAS   DOC_COVER_CHAPTER_TITLE_COLOR   _COLOR
.ALIAS   DOC_COVER_COLOR                 _COLOR
.ALIAS   DOC_COVER_COPYRIGHT_COLOR       _COLOR
.ALIAS   DOC_COVER_DOCTYPE_COLOR         _COLOR
.ALIAS   DOC_COVER_MISC_COLOR            _COLOR
.ALIAS   DOC_COVER_SUBTITLE_COLOR        _COLOR
.ALIAS   DOC_COVER_TITLE_COLOR           _COLOR
.ALIAS   DOCHEADER_COLOR                 _COLOR
.ALIAS   DOCTYPE_COLOR                   _COLOR
.ALIAS   ENDNOTE_STRING_COLOR            _COLOR
.ALIAS   EPIGRAPH_COLOR                  _COLOR
.ALIAS   FINIS_COLOR                     _COLOR
.ALIAS   FOOTNOTE_COLOR                  _COLOR
.ALIAS   HDRFTR_CENTER_COLOR             _COLOR
.ALIAS   HDRFTR_COLOR                    _COLOR
.ALIAS   HDRFTR_LEFT_COLOR               _COLOR
.ALIAS   HDRFTR_RIGHT_COLOR              _COLOR
.ALIAS   HDRFTR_RULE_COLOR               _COLOR
.ALIAS   LINEBREAK_COLOR                 _COLOR
.ALIAS   LINENUMBER_COLOR                _COLOR
.ALIAS   PAGENUM_COLOR                   _COLOR
.ALIAS   QUOTE_COLOR                     _COLOR
.ALIAS   SECTION_COLOR                   _COLOR
.ALIAS   SUBTITLE_COLOR                  _COLOR
.ALIAS   TITLE_COLOR                     _COLOR
.ALIAS   BIBLIOGRAPHY_QUAD          _QUAD
.ALIAS   BIBLIOGRAPHY_STRING_QUAD   _QUAD
.ALIAS   BLOCKQUOTE_QUAD            _QUAD
.ALIAS   COVER_COPYRIGHT_QUAD       _QUAD
.ALIAS   COVER_MISC_QUAD            _QUAD
.ALIAS   COVER_QUAD                 _QUAD
.ALIAS   DOC_COVER_COPYRIGHT_QUAD   _QUAD
.ALIAS   DOC_COVER_MISC_QUAD        _QUAD
.ALIAS   DOC_COVER_QUAD             _QUAD
.ALIAS   DOCHEADER_QUAD             _QUAD
.ALIAS   DOC_QUAD                   _QUAD
.ALIAS   ENDNOTE_QUAD               _QUAD
.ALIAS   ENDNOTE_STRING_QUAD        _QUAD
.ALIAS   ENDNOTE_TITLE_QUAD         _QUAD
.ALIAS   EPIGRAPH_QUAD              _QUAD
.ALIAS   FOOTNOTE_QUAD              _QUAD
.ALIAS   TOC_HEADER_QUAD            _QUAD
.ALIAS   COL_BREAK               COL_NEXT
.ALIAS   DOC_COVER_ADVANCE       COVER_ADVANCE
.ALIAS   DOC_COVER               COVER
.ALIAS   DOC_COVER_COUNTS_PAGES  COVER_COUNTS_PAGES
.ALIAS   DOC_COVERS              COVERS
.ALIAS   DOC_COVER_LEAD          COVER_LEAD
.ALIAS   DOC_COVERTITLE          COVERTITLE
.ALIAS   DO_DOC_COVER            DO_COVER
.ALIAS   PRINT_FOOTNOTE_RULE     FOOTNOTE_RULE
.ALIAS   SECTION        LINEBREAK
.ALIAS   SECTION_CHAR   LINEBREAK_CHAR
.MAC EOL END
.if \\n[.vpt] \{\
.vpt 0
.nr #RESTORE_TRAP 1
.\}
.br
.sp -1v
.if \\n[#RESTORE_TRAP] \{\
.vpt
.rr #RESTORE_TRAP
.\}
.END
.nr lists*target 0 1
.MAC get-label-type END
.if \\n[all]=1 .ds label-type eqn
.if \\n[all]=2 .ds label-type pdf-img
.if \\n[all]=3 .ds label-type pic
.if \\n[all]=4 .ds label-type tbl
.END
.MAC set-defaults END
.if '\\*[\\*[label-type]*\\*[spec-type]-family]'' \
.ds \\*[label-type]*\\*[spec-type]-family \\*[$DOC_FAM]
.if '\\*[\\*[label-type]*\\*[spec-type]-font]'' \
.ds \\*[label-type]*\\*[spec-type]-font R
.if '\\*[\\*[label-type]*\\*[spec-type]-size-change]'' \
.ds \\*[label-type]*\\*[spec-type]-size-change +0
.if !r \\*[label-type]*\\*[spec-type]-autolead \
.nr \\*[label-type]*\\*[spec-type]-autolead 2
.if '\\*[\\*[label-type]*\\*[spec-type]-color]'' \
.ds \\*[label-type]*\\*[spec-type]-color black
.if '\\*[\\*[label-type]*\\*[spec-type]-quad]'' \{\
.ie '\\*[label-type]'eqn' \{\
.if '\\*[spec-type]'caption' \
.ds \\*[label-type]*\\*[spec-type]-quad C
.\}
.el .ds \\*[label-type]*\\*[spec-type]-quad L
.\}
.if '\\n[\\*[label-type]*\\*[spec-type]-quad-on-ll]'' \
.nr \\*[label-type]*\\*[spec-type]-quad-on-ll 1
.if '\\*[spec-type]'caption' \{\
.nr default-left 1
.\}
.END
.MAC set-inline-specs END
.ds \\*[label-type]*\\*[spec-type]-specs \
\f[\\*[\\*[label-type]*\\*[spec-type]-family]\\*[\\*[label-type]*\\*[spec-type]-font]]\
\s[\\*[\\*[label-type]*\\*[spec-type]-size-change]]\
\m[\\*[\\*[label-type]*\\*[spec-type]-color]]
.END
.MAC SET_QUAD END
.ds label-type \\$0
.substring label-type 0 2
.if '\\*[label-type]'PDF'  .ds label-type pdf-img
.if '\\*[label-type]'TBL'  .ds label-type tbl
.if '\\*[label-type]'PIC'  .ds label-type pic
.if '\\*[label-type]'EQN'  .ds label-type eqn
.ds spec-type \\$0
.substring spec-type -6 -10
.if '\\*[spec-type]'PTION' .ds spec-type caption
.if '\\*[spec-type]'LABEL' .ds spec-type label
.if '\\*[spec-type]'OURCE' .ds spec-type source
.QUAD \\$1
.ds \\*[label-type]*\\*[spec-type]-quad \\$1
.substring \\*[label-type]*\\*[spec-type]-quad 0 0
.if '\\*[label-type]'pdf-img' \{\
.if '\\*[\\*[label-type]*\\*[spec-type]-quad]'L' \{\
.if !\\n[pdf-img*\\*[spec-type]-quad-on-ll] \{\
.ie !'\\*[pdf-img:pos]'-R' \
.ll \\n[pdf-img:ind]u+\\n[pdf-img:width]u+\\n[pdf-img:frame-inset]u
.el .ll -\\n[ind-pre-img]u
.if '\\*[pdf-img:pos]'-C' \
.in \\n[pdf-img:ind]u-\\n[pdf-img:frame-inset]u
.if '\\*[pdf-img:pos]'-R' \
.in \\n[.l]u-(\\n[pdf-img:width]u+(\\n[pdf-img:frame-inset]u*2u))
.if '\\*[pdf-img:pos]'-I' \
.in \\n[pdf-img:ind]u
.\}
.\}
.if '\\*[\\*[label-type]*\\*[spec-type]-quad]'C' \{\
.if !\\n[pdf-img*\\*[spec-type]-quad-on-ll] \{\
.if '\\*[pdf-img:pos]'-L' \
.ll \\n[pdf-img:width]u+(\\n[pdf-img:frame-inset]u*2u)
.if '\\*[pdf-img:pos]'-C' \{\
.ll (\\n[ll-pre-img]u-\\n[pdf-img:width]u/2u+(\\n[pdf-img:frame-inset]u))+\\n[pdf-img:width]u
.in \\n[.l]u-(\\n[pdf-img:width]u+(\\n[pdf-img:frame-inset]u*2u))
.\}
.if '\\*[pdf-img:pos]'-R' \{\
.ll -\\n[ind-pre-img]u
.in \\n[.l]u-(\\n[pdf-img:width]u+(\\n[pdf-img:frame-inset]u*2u))
.\}
.if '\\*[pdf-img:pos]'-I' \{\
.ll \\n[pdf-img:ind]u+\\n[pdf-img:width]u+(\\n[pdf-img:frame-inset]u*2u)
.in \\n[pdf-img:ind]u
.\}
.\}
.\}
.if '\\*[\\*[label-type]*\\*[spec-type]-quad]'R' \{\
.if !\\n[pdf-img*\\*[spec-type]-quad-on-ll] \{\
.if '\\*[pdf-img:pos]'-L' \
.ll \\n[pdf-img:width]u+(\\n[pdf-img:frame-inset]u*2u]
.if '\\*[pdf-img:pos]'-C' \{\
.ll (\\n[.l]u-\\n[ind-pre-img]u-\\n[pdf-img:width]u/2u)+\\n[pdf-img:width]u+\\n[pdf-img:frame-inset]u
.in \\n[pdf-img:ind]u
.\}
.if '\\*[pdf-img:pos]'-R' \{\
.ll -\\n[ind-pre-img]u
.in \\n[.l]u-\\n[pdf-img:width]u
.\}
.if '\\*[pdf-img:pos]'-I' \{\
.ll \\n[pdf-img:ind]u+\\n[pdf-img:width]u+(\\n[pdf-img:frame-inset]u*2u)
.in \\n[pdf-img:ind]u
.\}   
.\}
.\}
.\}
.if '\\*[label-type]'pic' \{\
.if !\\n[pic*\\*[spec-type]-quad-on-ll] \{\
.ie \\n[pic*left] .ll \\n[pic*div-width]u
.el \{\
.ll \\n[pic*div-width]u
\!.           in \\n[ll-pre-pic]u-\\n[pic*div-width]u/2u
.\}
.\}
.\}
.if '\\*[label-type]'tbl' \{\
.if !\\n[tbl*\\*[spec-type]-quad-on-ll] \{\
.ie \\n[tbl*center] \{\
.ie '\\*[spec-type]'label' \{\
.ll \\n[ll-pre-tbl]u-\\n[TW]u/2u+\\n[TW]u
\!.                in \\n[ll-pre-tbl]u-\\n[TW]u/2u
.\}
.el \{\
.ll \\n[TW]u
\!.              in \\n[ll-pre-tbl]u-\\n[TW]u/2u
.\}
.\}
.el .ll \\n[TW]u
.\}
.\}
.END
.ALIAS TBL*SET_CAPTION_QUAD     SET_QUAD
.ALIAS TBL*SET_LABEL_QUAD       SET_QUAD
.ALIAS TBL*SET_SOURCE_QUAD      SET_QUAD
.ALIAS PDF_IMG*SET_CAPTION_QUAD SET_QUAD
.ALIAS PDF_IMG*SET_LABEL_QUAD   SET_QUAD
.ALIAS PIC*SET_CAPTION_QUAD     SET_QUAD
.ALIAS PIC*SET_LABEL_QUAD       SET_QUAD
.MAC style END
.ds label-type \\$0
.substring label-type 0 2
.if '\\*[label-type]'img' .ds label-type pdf-img
.if '\\*[label-type]'tbl' .ds label-type tbl
.if '\\*[label-type]'pic' .ds label-type pic
.ds spec-type \\$0
.substring spec-type 4 6
.if '\\*[spec-type]'cap' .ds spec-type caption
.if '\\*[spec-type]'lab' .ds spec-type label
.if '\\*[spec-type]'sou' .ds spec-type source
.fam \\*[\\*[label-type]*\\*[spec-type]-family]
.ft \\*[\\*[label-type]*\\*[spec-type]-font]
.ps \\n[#DOC_PT_SIZE]u\\*[\\*[label-type]*\\*[spec-type]-size-change]
.gcolor \\*[\\*[label-type]*\\*[spec-type]-color]
.END
.ALIAS tbl*caption-style style
.ALIAS tbl*label-style   style
.ALIAS tbl*source-style  style
.ALIAS img*caption-style style
.ALIAS img*label-style   style
.ALIAS img*source-style  style
.ALIAS pic*caption-style style
.ALIAS pic*label-style   style
.ALIAS pic*source-style  style
.MAC CAPTION_LABEL_SPECS END
.if '\\$0'CAPTIONS' .ds spec-type caption
.if '\\$0'LABELS'   .ds spec-type label
.if '\\$0'SOURCES'  .ds spec-type source
.if '\\$1'EQN' .ds label-type eqn
.if '\\$1'IMG' .ds label-type pdf-img
.if '\\$1'PIC' .ds label-type pic
.if '\\$1'TBL' .ds label-type tbl
.if '\\$1'ALL' .nr all 1
.shift
.nr loop-counter \\n[#NUM_ARGS]
.nr loop-count 0 1
.while \\n+[loop-count]<=\\n[loop-counter] \{\
.if '\\$1'FAMILY' \{\
.shift
.ie r all \{\
.nr all 0 1
.while \\n+[all]<=4 \{\
.get-label-type
.ds \\*[label-type]*\\*[spec-type]-family \\$1
.\}
.\}
.el .ds \\*[label-type]*\\*[spec-type]-family \\$1
.if \\n[#PRINT_STYLE]=1 \
.ds \\*[label-type]*\\*[spec-type]-family \\*[$TYPEWRITER_FAM]
.shift
.\}
.if '\\$1'FONT' \{\
.shift
.ie r all \{\
.nr all 0 1
.while \\n+[all]<=4 \{\
.get-label-type
.ds \\*[label-type]*\\*[spec-type]-font \\$1
.\}
.\}
.el .ds \\*[label-type]*\\*[spec-type]-font \\$1
.if \\n[#PRINT_STYLE]=1 \
.ds \\*[label-type]*\\*[spec-type]-font R
.shift
.\}
.if '\\$1'SIZE' \{\
.shift
.ie r all \{\
.nr all 0 1
.while \\n+[all]<=4 \{\
.get-label-type
.ds \\*[label-type]*\\*[spec-type]-size-change \\$1
.\}
.\}
.el .ds \\*[label-type]*\\*[spec-type]-size-change \\$1
.if \\n[#PRINT_STYLE]=1 \
.ds \\*[label-type]*\\*[spec-type]-size-change +0
.shift
.\}
.if '\\$1'AUTOLEAD' \{\
.shift
.ie r all \{\
.nr all 0 1
.while \\n+[all]<=4 \{\
.get-label-type
.nr \\*[label-type]*\\*[spec-type]-autolead (p;\\$1)
.\}
.\}
.el .nr \\*[label-type]*\\*[spec-type]-autolead (p;\\$1)
.shift
.\}
.if '\\$1'QUAD' \{\
.shift
.ie r all \{\
.nr all 0 1
.while \\n+[all]<=4 \{\
.get-label-type
.ds \\*[label-type]*\\*[spec-type]-quad \\$1
.substring \\*[label-type]*\\*[spec-type]-quad 0 0
.\}
.\}
.el \{\
.ds \\*[label-type]*\\*[spec-type]-quad \\$1
.substring \\*[label-type]*\\*[spec-type]-quad 0 0
.if \\n[\\*[label-type]*\\*[spec-type]-quad-on-ll] \
.rr \\*[label-type]*\\*[spec-type]-quad-on-ll 
.\}
.shift
.if '\\$1'ON_LL' \{\
.nr \\*[label-type]*\\*[spec-type]-quad-on-ll 1
.shift
.\}
.\}
.if '\\$1'COLOR' \{\
.shift
.ie r all \{\
.nr all 0 1
.while \\n+[all]<=4 \{\
.get-label-type
.ds \\*[label-type]*\\*[spec-type]-color \\$1
.\}
.\}
.el .ds \\*[label-type]*\\*[spec-type]-color \\$1
.if \\n[#PRINT_STYLE]=1 \
.ds \\*[label-type]*\\*[spec-type]-color black
.shift
.\}
.if '\\$1'ADJUST' \{\
.shift
.ie r all \{\
.nr all 0 1
.while \\n+[all]<=4 \{\
.get-label-type
.ds \\*[label-type]*\\*[spec-type]-space \\$1
.\}
.\}
.el .ds \\*[label-type]*\\*[spec-type]-space \\$1
.if \\n[#PRINT_STYLE]=1 \
.ds \\*[label-type]*\\*[spec-type]-space +0
.shift
.\}
.\}
.ie r all \{\
.nr all 0 1
.while \\n+[all]<=4 \{\
.get-label-type
.set-defaults
.set-inline-specs
.\}
.\}
.el \{\
.set-defaults
.set-inline-specs
.\}
.ds revert-specs \f[]\s[0]\m[]
.rr all
.END
.ALIAS CAPTIONS CAPTION_LABEL_SPECS
.ALIAS LABELS   CAPTION_LABEL_SPECS
.ALIAS SOURCES  CAPTION_LABEL_SPECS
.MAC CAPTION_AFTER_LABEL END
.if '\\$1'IMG' .ds type pdf-img
.if '\\$1'PIC' .ds type pic
.if '\\$1'TBL' .ds type tbl
.if !\\n[#MLA] \{\
.nr \\*[type]*caption-after-label 1
.if '\\$1'ALL' \{\
.if '\\$1'IMG' .nr pdf-img*caption-after-label 1
.if '\\$1'TBL' .nr tbl*caption-after-label 1
.if '\\$1'PIC' .nr pic*caption-after-label 1
.\}
.if !'\\$2'' \{\
.ie !'\\$1'ALL' .rr \\*[type]*caption-after-label
.el \{\
.rr pdf-img*caption-after-label
.rr tbl*caption-after-label
.rr pic*caption-after-label
.\}
.\}
.\}
.END
.MAC AUTOLABEL END
.if '\\$0'AUTOLABEL_EQUATIONS' .ds label-type eqn
.if '\\$0'AUTOLABEL_IMAGES'    .ds label-type pdf-img
.if '\\$0'AUTOLABEL_PIC'       .ds label-type pic
.if '\\$0'AUTOLABEL_TABLES'    .ds label-type tbl
.if !'\\$1'' \{\
.ds \\*[label-type]-label-args \\$1
.substring \\*[label-type]-label-args -1 -3
.\}
.if '\\*[\\*[label-type]-label-args]'FIX' .nr \\*[label-type]-label-args 1
.if '\\*[\\*[label-type]-label-args]'TER' .nr \\*[label-type]-label-args 1
.if !\\n[\\*[label-type]*label-num] \
.nr \\*[label-type]*label-num 0 1
.if '\\*[label-type]'pdf-img' .nr fig*label-num 0 1
.if '\\*[label-type]'pic'     .nr fig*label-num 0 1
.nr \\*[label-type]*autolabel 1
.nr loop-counter 0 1
.nr loop-count \\n[#NUM_ARGS]
.while \\n+[loop-counter]<=\\n[loop-count] \{\
.if '\\$1'PREFIX' \{\
.ds \\*[label-type]*label-prfx \\$2
.nr \\*[label-type]*label-prfx-set 1
.shift 2
.\}
.if '\\$1'SUFFIX' \{\
.ds \\*[label-type]*label-sffx \\$2
.nr \\*[label-type]*label-sffx-set 1
.shift 2
.\}
.if '\\$1'PREFIX_CHAPTER' \{\
.nr \\*[label-type]*label-with-chapter 1
.ie !'\\$2'' \{\
.ie \B'\\$2' .nr #CH_NUM \\$2
.el .autolabel@error
.\}
.el \{\
.ie \\n[#CHAPTER_CALLED] \
.ie \B'\\*[$CHAPTER]' .nr #CH_NUM \\*[$CHAPTER]
.el .autolabel@error \\$0
.el .autolabel@error \\$0
.\}
.shift 2
.\}
.\}
.if '\\*[\\*[label-type]*label-prfx]'' \{\
.if '\\*[label-type]'eqn' \
.if !\\n[\\*[label-type]*label-prfx-set] \
.ds \\*[label-type]*label-prfx (
.if '\\*[label-type]'pic' \
.if !\\n[\\*[label-type]*label-prfx-set] \
.ds \\*[label-type]*label-prfx Fig. 
.if '\\*[label-type]'pdf-img' \
.if !\\n[\\*[label-type]*label-prfx-set] \
.ds \\*[label-type]*label-prfx Fig. 
.if '\\*[label-type]'tbl' \
.if !\\n[\\*[label-type]*label-prfx-set] \
.ds \\*[label-type]*label-prfx Table 
.\}
.if '\\*[\\*[label-type]*label-sffx]'' \{\
.if '\\*[label-type]'eqn' \
.if !\\n[\\*[label-type]*label-sffx-set] \
.ds \\*[label-type]*label-sffx )
.if '\\*[label-type]'pic' \
.if !\\n[\\*[label-type]*label-sffx-set] \
.ds \\*[label-type]*label-sffx .
.if '\\*[label-type]'pdf-img' \
.if !\\n[\\*[label-type]*label-sffx-set] \
.ds \\*[label-type]*label-sffx .
.if '\\*[label-type]'tbl' \
.if !\\n[\\*[label-type]*label-sffx-set] \
.ds \\*[label-type]*label-sffx .
.\}
.ie \\n[args]>0 \{\
.if \\n[\\*[label-type]*label-prfx-set]+\\n[\\*[label-type]*label-sffx-set]=1 \{\
.ie (\\n[\\*[label-type]*label-prfx-set]=1)&(\\n[\\*[label-type]*label-sffx-set]=0) \
.ds missing-arg SUFFIX
.el .ds missing-arg PREFIX
.tm1 "[mom]: You must supply a \\*[missing-arg] argument to \\$0.
.tm1 "       If you wish the \\*[missing-arg] to be blank, use \\*[missing-arg] "".
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.if !\\n[\\*[label-type]-label-args] \{\
.rr \\*[label-type]*autolabel
.rr \\*[label-type]*label-prfx-set
.rr \\*[label-type]*label-suffx-set
.rr \\*[label-type]-label-args
.\}
.\}
.rr \\*[label-type]-label-args
.END
.ALIAS AUTOLABEL_EQUATIONS AUTOLABEL
.ALIAS AUTOLABEL_IMAGES    AUTOLABEL
.ALIAS AUTOLABEL_PIC       AUTOLABEL
.ALIAS AUTOLABEL_TABLES    AUTOLABEL
.MAC autolabel@error END
.tm1 "[mom]: \\$1 cannot determine a chapter number.
.tm1 "       Enter the current chapter number as a digit after the
.tm1 "       PREFIX_CHAPTER argument at line \\n[.c].
.ab Aborting '\\n[.F]', line \\n[.c]. 
.END
.MAC MLA END
.ie '\\$1'' \{\
.nr #MLA 1
.nr pdf-img*caption-after-label 1
.nr pic*caption-after-label 1
.rr tbl*caption-after-label
.\}
.el \{\
.rr #MLA
.\}
.END
.MAC mla@error END
.tm1 "[mom]: MLA style enabled, but \\$1 has no corresponding \\$2.
.ab Aborting '\\$3' at \\$4, line \\$5.
.END
.MAC LISTS_OF END
.ds $LIST_TYPE \\$0
.substring $LIST_TYPE -1 -4
.if '\\*[$LIST_TYPE]'URES' \{\
.ds $LIST_TYPE FIGURES
.ds \\*[$LIST_TYPE]_TITLE_STRING "List of Figures
.\}
.if '\\*[$LIST_TYPE]'BLES' \{\
.ds $LIST_TYPE TABLES
.ds \\*[$LIST_TYPE]_TITLE_STRING "List of Tables
.\}
.if '\\*[$LIST_TYPE]'IONS' \{\
.ds $LIST_TYPE EQUATIONS
.ds \\*[$LIST_TYPE]_TITLE_STRING "List of Equations
.\}
.nr #LIST_OF_\\*[$LIST_TYPE] 1
.nr loop-count 0 1
.nr loop-counter \\n[#NUM_ARGS]
.while \\n+[loop-count]<=\\n[loop-counter] \{\
.if '\\$1'TITLE_STRING' \{\
.ds \\*[$LIST_TYPE]_TITLE_STRING \\$2
.shift 2
.\}
.if '\\$1'START_PAGENUM' \{\
.nr #\\*[$LIST_TYPE]_START_PAGENUM \\$2
.shift 2
.\}
.\}
.char \[leader] " .
.LEADER_CHARACTER \[leader]
.if \\n[#LINENUMBERS]=1 \{\
.NUMBER_LINES OFF
.nr #LINENUMBERS 2
.\}
.if \\n[#FINIS] \{\
.if \\n[#FOOTERS_WERE_ON] \
.FOOTERS
.\}
.if \\n[#FOOTERS_ON]=1 \{\
.if !'\\*[$HDRFTR_CENTER_OLD]'' .ds $HDRFTR_CENTER \\*[$HDRFTR_CENTER_OLD]
.ie \\n[#LISTS_NO_PAGENUM]=1 .PAGINATION off
.el .PAGINATE
.\}
.if \\n[#FOOTERS_WERE_ON] .FOOTERS OFF
.rr #COLUMNS
.COLLATE
.if \\n[#PRINT_STYLE]=1 \{\
.if \\n[#SINGLE_SPACE] .LS 24
.DOC_LEAD_ADJUST
.\}
.if \\n[#FINIS] \{\
.if \\n[#FOOTERS_WERE_ON] .FOOTERS
.rr #FOOTERS_WERE_ON
.if \\n[#PAGINATION_WAS_ON] \{\
.nr #PAGINATE 1
.rr #PAGINATION_WAS_ON
.\}
.rr #FINIS
.\}
.ds $HDRFTR_CENTER \\*[$HDRFTR_CENTER_NEW]
.rm $HDRFTR_CENTER_OLD
.rm $HDRFTR_CENTER_NEW
.rr #COLLATED_DOC
.DOCTYPE DEFAULT
.DOCHEADER
.TITLE "\\*[\\*[$LIST_TYPE]_TITLE_STRING]
.AUTHOR ""
.L_MARGIN \\n[#DOC_L_MARGIN]u
.LL       \\n[#DOC_L_LENGTH]u
.if '\\*[$LISTS_FAM]'' \
.ds $LISTS_FAM \\*[$TOC_FAM]
.if '\\*[$LISTS_FT]'' \
.ds $LISTS_FT \\*[$TOC_TITLE_FT]
.if !\\n[#LISTS_PS] \
.nr #LISTS_PS \\n[#TOC_PS]
.ps \\n[#LISTS_PS]u
.if !\\n[#LISTS_LEAD] \
.nr #LISTS_LEAD \\n[#TOC_LEAD]
.if \\n[#PRINT_STYLE]=2 \{\
.ie \\n[#LISTS_LEAD_ADJUST]=1 \{\
.vs \\n[#LISTS_LEAD]u
.DOC_LEAD_ADJUST
.\}
.el \{\
.vs \\n[#LISTS_LEAD]u
.DOC_LEAD_ADJUST OFF
.\}
.\}
.ie !'\\*[$LISTS_TITLE_QUAD]'' \
.DOCHEADER_QUAD \\*[$LISTS_TITLE_QUAD]
.el .DOCHEADER_QUAD \\*[$TOC_HEADER_QUAD]
.if '\\*[$LISTS_TITLE_QUAD]'' \
.ds $LISTS_TITLE_QUAD \\*[$TOC_HEADER_QUAD]
.if !'\\*[$LISTS_TITLE_FAM]'' \
.TITLE_FAMILY \\*[$LISTS_TITLE_FAM]
.if !'\\*[$LISTS_TITLE_FT]'' \
.TITLE_FONT  \\*[$LISTS_TITLE_FT]
.if !'\\*[$LISTS_TITLE_SIZE]'' \
.TITLE_SIZE \\*[$LISTS_TITLE_SIZE]
.if !'\\*[$LISTS_TITLE_COLOR]'' \
.TITLE_COLOR \\*[$LISTS_TITLE_COLOR]
.if '\\*[$LISTS_PN_FAM]'' \
.ds $LISTS_PN_FAM \\*[$TOC_PN_FAM]
.if '\\*[$LISTS_PN_FT]'' \
.ds $LISTS_PN_FT \\*[$TOC_PN_FT]
.if '\\*[$LISTS_PN_SIZE_CHANGE]'' \
.ds $LISTS_PN_SIZE_CHANGE \\*[$TOC_PN_SIZE_CHANGE]
.if !\\n[#EQN_PN_PADDING] \
.nr #EQN_PN_PADDING \\n[#TOC_PN_PADDING]
.if !\\n[#FIG_PN_PADDING] \
.nr #FIG_PN_PADDING \\n[#TOC_PN_PADDING]
.if !\\n[#TBL_PN_PADDING] \
.nr #TBL_PN_PADDING \\n[#TOC_PN_PADDING]
.ie '\\*[$LISTS_PAGENUM_STYLE]'' \
.PAGENUM_STYLE \\*[$TOC_PAGENUM_STYLE]
.el \
.PAGENUM_STYLE \\*[$LISTS_PAGENUM_STYLE]
.if r #\\*[$LIST_TYPE]_START_PAGENUM  \
.PAGENUMBER \\n[#\\*[$LIST_TYPE]_START_PAGENUM]
.if r #LISTS_NO_PAGENUM .PAGINATION off
.HEADER_LEFT "\\*[$HDRFTR_LEFT]
.HEADER_RIGHT "\\*[$HDRFTR_RIGHT]
.HEADER_CENTER "\\*[\\*[$LIST_TYPE]_TITLE_STRING]
.if \\n[#LINENUMBERS]=2 .nr #LINENUMBERS 3
.if \\n[\\*[list-type]*autolabel] \{\
.if \\n[#CH_NUM]<1000 .nr chapno-width 3
.if \\n[#CH_NUM]<100  .nr chapno-width 2
.if \\n[#CH_NUM]<10   .nr chapno-width 1
.if \\n[\\*[list-type]*label-width]<1000 .nr label-width 3
.if \\n[\\*[list-type]*label-width]<100  .nr label-width 2
.if \\n[\\*[list-type]*label-width]<10   .nr label-width 1
.nr label-width \w'\0'*(\\n[chapno-width]+\\n[label-width])+\w'.'
.\}
.if \\n[#SLANT_ON] .nop \\*[SLANTX]
.if \\n[#COLUMNS]=1 .nr #COLUMNS 0
.START
.if \\n[#PRINT_STYLE]=2 .sp -1
.if '\\*[$LIST_TYPE]'FIGURES'   .LIST_OF_FIG
.if '\\*[$LIST_TYPE]'TABLES'    .LIST_OF_TBL
.if '\\*[$LIST_TYPE]'EQUATIONS' .LIST_OF_EQN
.if \\n[#LINENUMBERS]=3 \{\
.NUMBER_LINES RESUME
.nr #LINENUMBERS 1
.nn 1
.\}
.pdfsync
.END
.ALIAS LIST_OF_EQUATIONS LISTS_OF
.ALIAS LIST_OF_FIGURES   LISTS_OF
.ALIAS LIST_OF_TABLES    LISTS_OF
.MAC LISTS_STYLE END
.nr loop-count 0 1
.nr loop-counter \\n[#NUM_ARGS]
.while \\n+[loop-count]<=\\n[loop-counter] \{\
.if '\\$1'FAMILY' \{\
.ds $LISTS_FAM \\$2
.shift 2
.\}
.if '\\$1'FONT' \{\
.ds $LISTS_FT \\$2
.shift 2
.\}
.if '\\$1'TITLE_FAMILY' \{\
.ds $LISTS_TITLE_FAM \\$2
.shift 2
.\}
.if '\\$1'TITLE_FONT' \{\
.ds $LISTS_TITLE_FT \\$2
.shift 2
.\}
.if '\\$1'TITLE_SIZE' \{\
.ds $LISTS_TITLE_SIZE \\$2
.shift 2
.\}
.if '\\$1'TITLE_QUAD' \{\
.ds $LISTS_TITLE_QUAD \\$2
.shift 2
.\}
.if '\\$1'TITLE_COLOR' \{\
.ds $LISTS_TITLE_COLOR \\$2
.shift 2
.\}
.if '\\$1'PT_SIZE' \{\
.nr #LISTS_PS (p;\\$2)
.shift 2
.\}
.if '\\$1'LEAD' \{\
.nr #LISTS_LEAD (p;\\$2)
.ie !'\\$3'ADJUST' \{\
.nr #LISTS_LEAD_ADJUST 0
.shift 2
.\}
.el \{\
.nr #LISTS_LEAD_ADJUST 1
.shift 3
.\}
.\}
.if '\\$1'NO_PAGINATION' \{\
.nr #LISTS_NO_PAGENUM 1
.shift 1
.\}
.if '\\$1'PAGENUM_STYLE' \{\
.ds $LISTS_PAGENUM_STYLE \\$2
.shift 2
.\}
.if '\\$1'PN_FAMILY' \{\
.ds $LISTS_PN_FAM \\$2
.shift 2
.\}
.if '\\$1'PN_FONT' \{\
.ds $LISTS_PN_FT \\$2
.shift 2
.\}
.if '\\$1'PN_SIZE' \{\
.ds $LISTS_PN_SIZE_CHANGE \\$2
.shift 2
.\}
.if '\\$1'EQN_PN_PADDING' \{\
.nr #EQN_PN_PADDING \\$2
.shift 2
.\}
.if '\\$1'FIG_PN_PADDING' \{\
.nr #FIG_PN_PADDING \\$2
.shift 2
.\}
.if '\\$1'TBL_PN_PADDING' \{\
.nr #TBL_PN_PADDING \\$2
.shift 2
.\}
.\}
.END
.ds $LISTS_PN \\*[ST102]\F[\\*[$LISTS_PN_FAM]]\f[\\*[$LISTS_PN_FT]]\
\s[\\n[#LISTS_PS]u]^\\*[ST102X]\\*[ST103]\s[\\\\*[$LISTS_PN_SIZE_CHANGE]]\
\|\|\|\h'\w'0'u*\\\\n[#LISTS_PN_PADDING]u'\\*[ST103X]
.ds $LISTS_PN_TYPEWRITE \\*[ST102]^\\*[ST102X]\\*[ST103]\|\
\h'\w'0'u*\\\\n[#LISTS_PN_PADDING]u'\\*[ST103X]
.MAC LISTS_COLLECTOR END
.if '\\$0'TO_EQUATIONS' \{\
.ds list-type eqn
.da LIST_OF_EQN
\!.       nr #LISTS_PN_PADDING \\\\n[#EQN_PN_PADDING]
.nr label-width \w'\\$1'
.\}
.if '\\$0'TO_FIGURES' \{\
.ds list-type fig
.da LIST_OF_FIG
\!.       nr #LISTS_PN_PADDING \\\\n[#FIG_PN_PADDING]
.nr label-width \w'\\$1'
.\}
.if '\\$0'TO_TABLES' \{\
.ds list-type tbl
.da LIST_OF_TBL
\!.       nr #LISTS_PN_PADDING \\\\n[#TBL_PN_PADDING]
.nr label-width \w'\\$1'
.\}
.br
.nr #LISTS_ENTRY_PN \\n%+\\n[#PAGE_NUM_ADJ]
.ie \\n[#PRINT_STYLE]=1 \{\
\!.     fam \\*[$TYPEWRITER_FAM]
\!.     ft  R
\!.     ps \\*[$TYPEWRITER_PS]
.ds _TYPEWRITE _TYPEWRITE
.\}
.el \{\
\!.     FAMILY \\\\*[$LISTS_FAM]
\!.     FONT \\\\*[$LISTS_FT]
\!.     ps \\\\n[#LISTS_PS]u
.\}
.if \\n[#PRINT_STYLE]=2 .rm _TYPEWRITE
\!.  PAD_MARKER ^
\!.  vpt 0
\!.  PAD \
"\\*[ST100]\h'\\n[label-width]u'\\*[ST100X]\0\\*[ST101]\h'\w'\\$2'u'\\*[ST101X]\\\\*[$LISTS_PN\\*[_TYPEWRITE]]" \
"\\*[PDFBOOKMARK.NAME]"
\!.  PAD_MARKER #
\!.  EOL
.ie !\\n[\\*[label-type]*autolabel] \
\!.     ST 100 L
.el \
\!.     ST 100 R
\!.  ST 101 L
\!.  ST 102 L
\!.  ST 103 R
.if \\n[#PRINT_STYLE]=2 \{\
\!.     FAMILY  \\\\*[$LISTS_FAM]
\!.     FT      \\\\*[$LISTS_FT]
\!.     ps \\\\n[#LISTS_PS]u
.\}
\!.  TAB 100
\!.  PDF_LINK \\*[list-type]:\\n[lists*target] "\\$1"
\!.  TN
\!.  PDF_LINK \\*[list-type]:\\n[lists*target] "\\$2"
\!.  TN
\!.  PRINT \\*[LEADER]
\!.  TN
.if \\n[#PRINT_STYLE]=2 \{\
\!.     FAMILY  \\\\*[$LISTS_PN_FAM]
\!.     FT      \\\\*[$LISTS_PN_FT]
\!.     ps \\\\*[$LISTS_PN_SIZE_CHANGE]u
.\}
\!.  PRINT \\n[#LISTS_ENTRY_PN]
\!.  TQ
\!.  vpt
.da
.END
.ALIAS TO_EQUATIONS LISTS_COLLECTOR
.ALIAS TO_FIGURES   LISTS_COLLECTOR
.ALIAS TO_TABLES    LISTS_COLLECTOR
.nr tbl*have-header 0
.ds T&
.MAC TS END
.di NULL
\D't 500'
.di
.br
.if !\\n[@TOP] \
.if \\n[.t]=1 .sp \\n[.t]u
.rr tbl*have-header
.rr float*tbl
.if '\\n[.z]'FLOAT*DIV' .nr float*tbl 1
.if !'\\n[.z]'FLOAT*DIV' \{\
.if \\n[.t]=1 \{\
.if !\\n[@TOP] \{\
.if \\n[#COL_NUM]=\\n[#NUM_COLS] \
.NEWPAGE
.\}
.\}
.\}
.rr tbl*boxed
.rm tbl*label
.rm tbl*caption
.nr loop-count 0 1
.nr loop-counter \\n[#NUM_ARGS]
.while \\n+[loop-count]<=\\n[loop-counter] \{\
.if '\\$1'H' \{\
.nr tbl*have-header 1
.shift
.if \\n[#NUM_ARGS]=0 .nr tbl*plain 1
.\}
.if '\\$1'BOXED' \{\
.nr tbl*boxed 1
.shift
.\}
.if '\\$1'CENTER' \{\
.nr tbl*center 1
.shift
.\}
.if '\\$1'NEEDS' \{\
.nr tbl*needs \\$2
.shift 2
.\}
.if '\\$1'NO_SHIM' \{\
.nr tbl*no-shim 1
.shift
.\}
.if '\\$1'ADJUST' \{\
.ds tbl*space-adj \\$2
.shift 2
.\}
.if '\\$1'CAPTION' \{\
.nr tbl*have-caption 1
.ds tbl*caption \\$2
.shift 2
.\}
.if '\\$1'SHORT_CAPTION' \{\
.ds tbl*caption-short \\$2
.shift 2
.\}
.if '\\$1'LABEL' \{\
.nr tbl*have-label 1
.ds tbl*label \\$2
.ds label-type tbl
.shift 2
.\}
.\}
.if \\n[tbl*boxed]=1 \{\
.if (\\n[tbl*have-label]=0)&(\\n[tbl*have-caption]=0)&\
(\\n[tbl*autolabel]=0)&(\\n[tbl*have-source]=0) \
.nr tbl*plain-boxed 1
.\}
.if !\\n[tbl*needs] .nr tbl*needs 1
.if !\\n[tbl*have-header] .nr tbl*no-header 1
.ds tbl*label-sffx-tmp \\*[tbl*label-sffx]
.substring tbl*label-sffx-tmp -1
.if '\\*[tbl*label-sffx-tmp]'.' \
.if (\\n[tbl*caption-after-label]=0):(\\n[#MLA]=1) .chop tbl*label-sffx
.if \\n[tbl*caption-after-label] \{\
.if !'\\*[tbl*label-sffx]'' \
.if '\\*[tbl*caption]'' .chop tbl*label-sffx
.\}
.ie \\n[@TOP] \{\
.if !'\\n[.z]'FLOAT*DIV' \{\
.vpt 0
.rr @TOP
.ch RR_@TOP
.rs
.nop \&
.if \\n[#COLUMNS] \
.if !'\\*[tbl*space-adj]'' \
.sp \\*[tbl*space-adj]-1v
.nr tbl*boxed 2
.vpt
.\}
.\}
.el \
.if !'\\*[tbl*space-adj]'' .sp \\*[tbl*space-adj]u
.if !\\n[#MLA] \{\
.if (\\n[tbl*have-caption]=0):(\\n[tbl*caption-after-label]=1) \{\
.ie !'\\n[.z]'FLOAT*DIV' \{\
.sp .5v
.if \\n[tbl*boxed] .sp .25v
.\}
.el .sp 1n
.\}
.\}
.if '\\n[.z]'FLOAT*DIV' \{\
.if \\n[defer]>0 .sp .5v
.\}
.ds ev-current   \\n[.ev]
.nr ll-pre-tbl   \\n[.l]
.nr lead-pre-tbl \\n[.v]
.nr ind-pre-tbl  \\n[.i]
.ll \\n[.l]u-\\n[.i]u
.if (\\n[nl]=\\n[#PAGE_TOP]):(\\n[nl]=\\n[dc]) \
.nr tbl*caption-lead-diff-adj 1
.if \\n[#MLA] \
.if \\n[tbl*have-label]+\\n[tbl*have-caption]=0 \
.sp .5v
.if \\n[tbl*boxed]=2 \{\
.if \\n[#MLA]=0 \
.if (\\n[tbl*caption-after-label]=1):(\\n[tbl*have-caption]=0) \
.sp 1n
.\}
.if \\n[tbl*have-header] \{\
.ev table-header
.evc \\*[ev-current]
.di tbl*header-div
.if !\\n[float-span] \!.in 0
.\}
.END
.MAC TH END
.ie '\\n[.z]'tbl*header-div' \{\
.nr T. 0
.T#
.di
.ev
.PDF_TARGET tbl:\\n+[lists*target]
.if !'\\n[.z]'FLOAT*DIV' \{\
.ie !\\n[tbl*boxed] \{\
.nr th*needs (u;\\n[dn]+\\n[tbl*needs]v)
.if \\n[th*needs]>\\n[.t] \{\
.ne \\n[dn]u+\\n[tbl*needs]
.nr tbl@needs 1
.\}
.\}
.el \{\
.nr th*needs (u;\\n[dn]+2p+\\n[tbl*needs]v)
.if \\n[th*needs]>\\n[.t] \{\
.ne \\n[dn]u+2p+\\n[tbl*needs]
.if \\n[#COLUMNS] \
.if !\\n[#COL_NUM]=\\n[#NUM_COLS] .nr tbl*no-top-hook 1
.nr tbl@needs 1
.\}
.\}
.if \\n[defer] .nr tbl*interrupted 1
.\}
.ie (\\n[dn]-\\n[.v])>\\n[.t] \{\
.if !\\n[@TOP] .@error ridiculously long table header
.if \\n[tbl@needs] \{\
.if \\n[tbl*boxed] \{\
.rs
.nop \&
.sp -1n
.\}
.rr tbl@needs
.\}
.if \\n[tbl*have-caption] .TBL*CAPTION
.tbl*print-header
.\}
.el \{\
.nr tbl*header-ht \\n[dn]
.if \\n[tbl@needs] \{\
.if \\n[tbl*boxed] \{\
.rs
.nop \&
.sp -1n
.\}
.rr tbl@needs
.\}
.if \\n[tbl*have-caption] .TBL*CAPTION
.vs
.tbl*print-header
.\}
.\}
.el \{\
.if \\n[tbl*have-caption] \{\
.TBL*CAPTION
.nr skip-th-warning 1
.\}
.if !\\n[skip-th-warning] .@error .TH without .TS H
.rr skip-th-warning
.\}
.if '\\n[.z]'FLOAT*DIV' \{\
.if \\n[tbl*center] \{\
.nr float*ll \\n[.l]
.ll 0
.in \\n[float*ll]u-\\n[TW]u/2u
.\}
.\}
.END
.MAC TE END
.ev tbl*end
.evc \\*[ev-current] 
.nh
.nf
.rr tbl*no-header
.if !'\\n[.z]'FLOAT*DIV' \{\
.ie \\n[.t]<(\\n[.v]+(\\n[.v]/2u)) \{\
.rm tbl*header-div
.nr tbl*no-top-hook 1
.nr pgnum \\n%+\\n[#PAGE_NUM_ADJ]
.tm1 "[mom]: '\\n[.F]', macro \\$0, line \\n[.c]:
.tm1 "        Insufficient room for label, caption, and/or source after
.tm1 "        table on page \\n[pgnum].  Omitting, but continuing to process.
.NEWPAGE
.nr tbl*skip-source 1
.nr tbl*skip-label 1
.ch FN_OVERFLOW_TRAP -\\n[#FN_OVERFLOW_TRAP_POS]u
.\}
.el \{\
.ch FOOTER 0+\\n[pre-tbl-vfp]u
.ch FN_OVERFLOW_TRAP -\\n[#FN_OVERFLOW_TRAP_POS]u
.\}
.\}
.if !'\\$1'' \{\
.if '\\$1'SOURCE' \{\
.nr tbl*have-source 1
.shift
.\}
.\}
.if !\\n[#MLA] \{\
.if (\\n[tbl*have-label]=1):(\\n[tbl*autolabel]=1):(\\n[tbl*caption-after-label]=1) \{\
.ev label
.evc tbl*end
.ie \\n[#PRINT_STYLE]=1 .TYPEWRITER
.el \{\
.tbl*label-style
.vs \\n[.ps]u+\\n[tbl*label-autolead]u
.\}
.SIZESPECS
.if \\n[tbl*label-with-chapter] \
.ds chapno \\n[#CH_NUM].
.TBL*SET_LABEL_QUAD \\*[tbl*label-quad]
.di tbl*label-div
\!.        in -\\n[ind-pre-tbl]u
.ie \\n[tbl*boxed] .sp \\n[#CAP_HEIGHT]u
.el .sp \\n[#DOC_LEAD]u/4u
.if (\\n[tbl*have-label]=1):(\\n[tbl*autolabel]=1) \{\
.if !'\\*[tbl*label-space]'' .sp \\*[tbl*label-space]
.ie \\n[tbl*autolabel] \{\
.ie !\\n[tbl*caption-after-label] .nop \
\\*[tbl*label-prfx]\\*[chapno]\\n+[tbl*label-num]\\*[tbl*label-sffx]
.el \{\
.nop \\*[tbl*label-prfx]\\*[chapno]\\n+[tbl*label-num]\\*[tbl*label-sffx]\|
.tbl*caption-style
.vs \\n[.ps]u+\\n[tbl*caption-autolead]u
.ds tbl*caption " \\*[tbl*caption]
.nop \\*[tbl*caption]
.\}
.\}
.el \{\
.if !'\\*[tbl*label]'' \{\
.ie !\\n[tbl*caption-after-label] .nop \\*[tbl*label]
.el \{\
.nop \\*[tbl*label]\ \|\c
.tbl*caption-style
.vs \\n[.ps]u+\\n[tbl*caption-autolead]u
.ds tbl*caption " \\*[tbl*caption]
.nop \\*[tbl*caption]
.\}
.\}
.\}
.if \\n[tbl*autolabel] \
.ds tbl*label \\*[chapno]\\n[tbl*label-num]
.br
.\}
.di
.ev
.nr pgnum \\n%+\\n[#PAGE_NUM_ADJ]
.ie !'\\n[.z]'FLOAT*DIV' \{\
.ie \\n[dn]>\\n[.t] \{\
.tm1 "[mom]: '\\n[.F]', macro \\$0, line \\n[.c]:
.tm1 "        Insufficient room for label, caption, and/or source after
.tm1 "        table on page \\n[pgnum].  Omitting, but continuing to process.
.if d tbl*header-div .rm tbl*header-div
.rr tbl*caption-top-lead-diff
.rr tbl*have-header
.nr tbl*skip-source 1
.nr tbl*skip-label 1
.NEWPAGE
.\}
.el .print-label
.\}
.el .print-label
.\}
.\}
.if !'\\*[tbl*caption-short]'' .ds short -short
.ie !'\\*[tbl*label]'' \
.TO_TABLES "\\*[tbl*label]" "\\*[tbl*caption\\*[short]]"
.el .TO_TABLES "\\*[tbl*caption]\\*[short]]"
.if !\\n[tbl*skip-source] \{\
.if \\n[tbl*have-source] \{\
.ds tbl*source \\$1
.SIZESPECS
.ev source
.nh
.ie \\n[#PRINT_STYLE]=1 \{\
.TYPEWRITER
.sp
.\}
.el \{\
.tbl*source-style
.vs \\n[.ps]u+\\n[tbl*source-autolead]u
.\}
.di tbl*source-div
.TBL*SET_SOURCE_QUAD \\*[tbl*source-quad]
.if \\n[#MLA] \{\
.if '\\*[tbl*source-quad]'L' \{\
.in \\n[ind-pre-tbl]u+\\n[tmp-ind]u
.ti -\\n[tmp-ind]u
.\}
.\}
.if (\\n[tbl*have-label]=0)&(\\n[#MLA]=0) \
.if !\\n[tbl*autolabel] .sp \\n[#CAP_HEIGHT]u
.if \\n[#MLA] \
.sp \\n[#CAP_HEIGHT]u
.if !'\\*[tbl*source-space]'' .sp \\*[tbl*source-space]
.nop \\*[tbl*source]
.br
.if \\n[#MLA] .in
.di
.nf
.tbl*source-div
.ev
.\}
.\}
.if '\\n[.z]'FLOAT*DIV' .nr bx-tbl-depth \\n[.d]-1v
.if '\\n[.z]'tbl*header-div' \{\
.@error .TS with 'H' flag but no corresponding .TH
.ab Aborting.
.\}
.ev
.if !\\n[tbl*plain] \{\
.ie \\n[tbl*plain-boxed] .sp 1
.el .sp .5v
.\}
.ll \\n[ll-pre-tbl]u
.if !'\\*[tbl*space-adj]'' .sp -\\*[tbl*space-adj]u
.if !\\n[tbl*no-shim] .SHIM
.TBL*CLEANUP
.END
.MAC TBL*CAPTION END
.if \\n[tbl*have-caption] \{\
.vs \\n[.ps]u+\\n[tbl*caption-autolead]u
.nr tbl*caption-lead-diff \\n[lead-pre-tbl]-\\n[.v]
.nr tbl*caption-top-lead-diff \\n[tbl*caption-lead-diff]
.ie !\\n[#MLA] \{\
.if !\\n[tbl*caption-after-label] \{\
.ie !'\\n[.z]'FLOAT*DIV' \{\
.ie (\\n[nl]=\\n[#PAGE_TOP]):(\\n[nl]=\\n[dc]) \{\
.ie \\n[#COLUMNS] .sp |\\n[dc]u
.el .sp |\\n[#T_MARGIN]u-\\n[#DOC_LEAD]u
.sp \\n[tbl*caption-lead-diff]u
.\}
.el .sp .5v
.\}
.el .sp .5v
.\}
.ev caption
.evc \\*[ev-current]
.nh
.\}
.el \{\
.if !\\n[tbl*autolabel] \{\
.ie !\\n[tbl*have-label] \
.mla@error caption label \\n[.F] \\$0 \\n[.c]
.el .ev label
.\}
.\}
.ie \\n[#PRINT_STYLE]=1 .nr tmp-ind 2m
.el .nr tmp-ind 1.25m
.ie \\n[#PRINT_STYLE]=1 .TYPEWRITER
.el \{\
.if !\\n[#MLA] \{\
.tbl*caption-style
.nr lead-current \\n[.v]
.\}
.\}
.ie !\\n[#MLA] \{\
.ie !\\n[tbl*caption-after-label] \{\
.di tbl*caption-div
\!.           in -\\n[ind-pre-tbl]u
.TBL*SET_CAPTION_QUAD \\*[tbl*caption-quad]
.nop \\*[tbl*caption]
.br
.di
.if !'\\n[.z]'FLOAT*DIV' \{\
.nr caption-needs 2
.if (\\n[dn]+(\\n[#DOC_LEAD]*(\\n[tbl*needs]*2)))>\\n[.t] \{\
.nr pgnum \\n%+\\n[#PAGE_NUM_ADJ] 1
.ie \\n[#COL_NUM]=\\n[#NUM_COLS] \{\
.tm1 "[mom]: Table with caption at line \\n[.c] does not fit on page \\n[pgnum].
.tm1 "       Shifting table to page \\n+[pgnum].
.rr tbl*no-header
.NEWPAGE
.\}
.el \{\
.sp \\n[.t]u
.sp |\\n[#PAGE_TOP]u+\\n[tbl*caption-lead-diff]u
.\}
.\}
.\}
.if \\n[.u] .nr fill 1
.nf
.if \\n[.ns] .RESTORE_SPACE
.tbl*caption-div
.if \\n[#PRINT_STYLE]=1 .sp .5v
.if !'\\*[tbl*caption-space]'' \
.sp \\*[tbl*caption-space]
.if \\n[tbl*caption-lead-diff-adj] \{\
.sp -\\n[tbl*caption-lead-diff]u
.rr tbl*label-lead-diff-adj
.\}
.if \\n[fill] .fi
.rr fill
.\}
.el \{\
.if (\\n[tbl*have-label]=0) \{\
.if !\\n[tbl*autolabel] \{\
.tm1 "[mom]: CAPTION_AFTER_LABEL enabled, but no label given
.tm1 "       for table at line \\n[.c].
.tm1 "       Skipping caption but continuing to process.
.\}
.\}
.\}
.\}
.el \{\
.if (\\n[tbl*have-label]=1):(\\n[tbl*autolabel]=1) \{\
.ie !\\n[tbl*have-caption] \
.mla@error label caption \\n[.F] \\$0 \\n[.c]
.el \{\
.ie !'\\n[.z]'FLOAT*DIV' \{\
.ie (\\n[nl]=\\n[#PAGE_TOP]):(\\n[nl]=\\n[dc]) \{\
.ie !\\n[#COLUMNS] .sp |\\n[#PAGE_TOP]u+\\n[tbl*caption-lead-diff]u
.el .sp |\\n[dc]u+\\n[tbl*caption-lead-diff]u
.\}
.el .sp .5v
.\}
.el .sp .5v
.\}
.ev label
.evc \\*[ev-current]
.nh
.ie \\n[#PRINT_STYLE]=1 .TYPEWRITER
.el \{\
.tbl*label-style
.vs \\n[.ps]u+\\n[tbl*label-autolead]u
.nr tbl*label-lead-diff \\n[lead-pre-tbl]-\\n[.v]
.\}
.if \\n[tbl*label-with-chapter] \
.ds chapno \\n[#CH_NUM].
.TBL*SET_LABEL_QUAD \\*[tbl*label-quad]
.di tbl*mla-label-caption
.ie '\\*[tbl*label-quad]'L' \{\
\!.              in -\\n[ind-pre-tbl]u
\!.              in \\n[tmp-ind]u
\!.              ti -\\n[tmp-ind]u
.\}
.el \{\
.if \\n[tbl*label-quad-on-ll] \{\
.if '\\n[tbl*label-quad]'L' \
\!.                 in
.\}
.\}
.ie \\n[tbl*autolabel] \
.nop \
\\*[tbl*label-prfx]\\*[chapno]\\n+[tbl*label-num]\\*[tbl*label-sffx]
.el .if !'\\*[tbl*label]'' .nop \\*[tbl*label]
.if \\n[tbl*autolabel] \
.ds tbl*label \\*[chapno]\\n[tbl*label-num]
.br
.di
.\}
.da tbl*mla-label-caption
.ie \\n[#PRINT_STYLE]=1 .TYPEWRITER
.el .tbl*caption-style
.if '\\*[tbl*caption-quad]'L' \{\
\!.           ti -\\n[tmp-ind]u
\!.           fi
.\}
.nop \\*[tbl*caption]
.br
\!.        in
.da
.\}
.if !'\\n[.z]'FLOAT*DIV' \{\
.ie \\n[#MLA] .nr caption-needs 3
.el .nr caption-needs 2
.if (\\n[dn]+(\\n[#DOC_LEAD]*(\\n[tbl*needs]+\\n[caption-needs])))>\\n[.t] \{\
.nr pgnum \\n%+\\n[#PAGE_NUM_ADJ] 1
.ie \\n[#COL_NUM]=\\n[#NUM_COLS] \{\
.tm1 "[mom]: Table with caption at line \\n[.c] does not fit on page \\n[pgnum].
.tm1 "       Shifting table to page \\n+[pgnum].
.rr tbl*no-header
.if \\n[defer] .nr skip-th-warning 1
.NEWPAGE
.\}
.el \{\
.nr tbl*no-top-hook 1
.sp \\n[.t]u
.if (\\n[tbl*caption-after-label]=1):(\\n[tbl*plain]) \
.sp 1n-2p
.\}
.\}
.\}
.nf
.if (\\n[nl]=\\n[#PAGE_TOP]):(\\n[nl]=\\n[dc]) \
.nr tbl*label-lead-diff-adj 1
.ie (\\n[.t]>1)&(\\n[@TOP]=0) \{\
.sp \\n[tbl*label-lead-diff]u
.\}
.el \{\
.if \\n[.t]=1 .sp \\n[.t]u
.ie \\n[#COL_NUM]>1 \
.ie (\\n[nl]=\\n[#PAGE_TOP]):(\\n[nl]=\\n[dc]) \
.sp |\\n[dc]u+\\n[tbl*label-lead-diff]u
.el .sp .5v
.\}
.tbl*mla-label-caption
.ie \\n[#PRINT_STYLE]=1 .sp .5v
.el .sp .5n
.if \\n[tbl*label-lead-diff-adj] \{\
.sp -\\n[tbl*label-lead-diff]u
.rr tbl*label-lead-diff-adj
.\}
.br
.if !'\\*[tbl*caption-space]'' .sp \\*[tbl*caption-space]
.\}
.if !'\\n[.ev]'0' .ev
.END
.MAC TBL*CLEANUP END
.if !'\\n[.z]'FLOAT*DIV' \{\
.rr tbl*center
.rm tbl*header-div
.rr tbl*caption-top-lead-diff
.\}
.rr tbl*have-header
.if !'\\n[.z]'FLOAT*DIV' \{\
.rr tbl*have-caption
.rr tbl*have-label
.\}
.rr tbl*label-warning
.rr tbl*no-shim
.rr tbl*skip-source
.if !'\\n[.z]'FLOAT*DIV' \{\
.rm short
.rm tbl*caption
.rm tbl*caption-short
.rm tbl*label
.\}
.rm tbl*space-adj
.rnn tbl*have-label tbl@label
.rnn tbl*have-source tbl@source
.rr tbl*have-label
.rr tbl*plain
.if '\\*[tbl*label-sffx-tmp]'.' .ds tbl*label-sffx .
.END
.MAC print-label END
.if \\n[.u] .nr fill 1
.nf
.if !\\n[tbl*skip-label] \{\
.tbl*label-div
.\}
.if \\n[fill] .fi
.rr fill
.END
.MAC tbl@top-hook END
.if \\n[tbl*have-header] \{\
.nf
.rr @TOP
.ch RR_@TOP
.ev top-hook
.evc 0
.rs
.nop \&
.ie !\\n[tbl*boxed] .sp -1
.el .sp -1n
.tbl*print-header
.ev
.\}
.END
.MAC tbl*print-header END
.if \\n[.u]=1 \{\
.nf
.nr fill 1
.\}
.if \\n[#COL_NUM]>1 \
.sp 2p
.ie d tbl*header-div:\\n[loop-count] \
.tbl*header-div:\\n[loop-count]
.el .tbl*header-div
.if '\\n[.z]'FLOAT*DIV' \
.if \\n[tbl*center] .ce 1000
.mk #T
.if !'\\n[.z]'FLOAT*DIV' \{\
.nr pre-tbl-vfp 0+\\n[#VARIABLE_FOOTER_POS]
.ch FOOTER \\n[#VARIABLE_FOOTER_POS]u+\\n[#DOC_LEAD]u
.ch FN_OVERFLOW_TRAP -\\n[#FN_OVERFLOW_TRAP_POS]u+\\n[#DOC_LEAD]u
.\}
.END
.MAC tbl@bottom-hook END
.if \\n[.ns] .rs
.rr #DIVERTED
.rr @TOP
.ch RR_@TOP
.END
.MAC tbl*float-warning END
.tm1 "[mom]: Table in FLOAT, output page \\n[#PAGENUMBER], exceeds page vertical limits.
.tm1 "       Multipage boxed tables cannot be contained within floats.
.ab Aborting '\\n[.F]'.
.END
.MAC ds@need END 
.if '\\n(.z'' \{\
.while \\n[.t]<=(\\$1)&(\\n[nl]>\\n[#PAGE_TOP]) \{\
.rs
'          sp \\n[.t]u
.\}
.\}
.END
.MAC EQ END
.if \\n[eqn*copy-in]=1 \{\
.if !\\n[eqn-linenum] .nr eqn-linenum \\n[.c]
.if !\\n[pgnum] .nr pgnum \\n%+\\n[#PAGE_NUM_ADJ]
.br
.if \\n[.u] .nr fill 1
.rr float*eqn
.if '\\n[.z]'FLOAT*DIV' .nr float*eqn 1
.nr eqn*restore-adj \\n[.j]
.if !\\n[continued] \{\
.PDF_TARGET eqn:\\n+[lists*target]
.rr eqn*type
.nr loop-counter \\n[#NUM_ARGS]
.nr loop-count 0 1
.while \\n+[loop-count]<=\\n[loop-counter] \{\
.if '\\$1'-L' \{\
.nr eqn*left 1
.nr eqn*type 1
.shift
.\}
.if '\\$1'-I' \{\
.nr eqn*ind  1
.nr eqn*type 2
.shift
.ds DI \\$1
.ds DI@cont \\*[DI]
.shift
.\}
.if '\\$1'-C' \{\
.nr eqn*center 1
.nr eqn*type   3
.shift
.\}
.if '\\$1'ADJUST' \{\
.ds eqn*space-adj \\$2
.shift 2
.\}
.if '\\$1'NO_SHIM' \{\
.nr eqn*no-shim 1
.shift 1
.\}
.if '\\$1'LABEL' \{\
.ds eqn*label \\$2
.ds label-type eqn
.shift 2
.\}
.if '\\$1'SHIFT_LABEL' \{\
.ds eqn*shift-label \\$2
.shift 2
.\}
.if '\\$1'CAPTION' \{\
.ds eqn*caption \\$2
.shift 2
.\}
.if '\\$1'SHORT_CAPTION' \{\
.ds eqn*caption-short \\$2
.shift 2
.\}
.\}
.\}
.if '\\*[eqn*shift-label]'' .ds eqn*shift-label 0
.if !\\n[eqn*type] \{\
.nr eqn*center 1
.nr eqn*type   3
.shift
.\}
.if !'\\*[eqn*caption]'' \{\
.if '\\*[caption-quad]'L' \{\
.if \\n[default-left] .ds caption-quad R
.rr default-left
.\}
.\}
.if \\n[continued] \{\
.rm continued
.rr continued
.\}
.if \\n[eqn@left*cont] .nr eqn*type 1
.if \\n[eqn@ind*cont]  \{\
.nr eqn*type 2
.ds DI \\*[DI@cont]
.\}
.\}
.if \\n[eqn@center*cont] .nr eqn*type 3
.ev EQN
.evc 0
.di eqn*div
.in 0
.nf
.END
.MAC EN END
.if !'\\n(.z'eqn*div' \{\
.@error mismatched EN
.return
.\}
.br
.di
.ev
.if !'\\*[eqn*label]''   .nr eqn*have-label   1
.if !'\\*[eqn*caption]'' .nr eqn*have-caption 1
.if !'\\$1'' \{\
.ie '\\$1'...' .ds continued CONT
.el .ds continued \\$1
.substring continued 0 3
.ie '\\*[continued]'CONT' \{\
.nr continued 1
.rm continued
.if \\n[eqn*ind]    .nr eqn@ind*cont    1
.if \\n[eqn*left]   .nr eqn@left*cont   1
.if \\n[eqn*center] .nr eqn@center*cont 1
.\}
.el \{\
.tm1 "[mom]: Invalid argument \\$1 to \\$0.
.tm1 "       Must be 'CONTINUED', 'CONT', or '...'
.ab Aborting '\\n[.F]' at line \\n[.c].
.\}
.\}
.if \\n[dl]:\\n[eqn*have-label] \{\
.ds eqn*tabs \\n[.tabs]
.if \\n[eqn*label-with-chapter] \
.ds chapno \\n[#CH_NUM].
.nf
.ie \\n[dl] \{\
.if !'\\n[.z]'FLOAT*DIV' \{\
.ie \\n[eqn*have-caption] .ne \\n[dn]u-\\n[.V]
.el .ne \\n[dn]u-1v-\\n[.V]
.\}
.chop eqn*div
.if '\\*[DD]'' \{\
.ds DD .5v
.if !\\n[@TOP] \{\
.sp \\*[DD]
.if !'\\*[eqn*space-adj]'' .sp \\*[eqn*space-adj]u
.\}
.\}
.if \\n[cutaround] .ll \\n[eqn*cutaround-width]u
.ie \\n[eqn*type]=1 \{\
.ta (u;\\n[.l]-\\n[.i])R
.ie \\n[continued] .nop \\*[eqn*div]
.el \{\
.ie \\n[eqn*autolabel] \
.nop \
\\*[eqn*div]\
\\*[eqn*label-specs]\
\t\v'+\\*[eqn*shift-label]'\
\\*[eqn*label-prfx]\\*[chapno]\\n+[eqn*label-num]\\*[eqn*label-sffx]\
\v'-\\*[eqn*shift-label]'\
\\*[revert-specs]
.el \
.nop \
\\*[eqn*div]\
\\*[eqn*label-specs]\
\t\v'+\\*[eqn*shift-label]'\
\\*[eqn*label]\
\v'-\\*[eqn*shift-label]'\
\\*[revert-specs]
.\}
.if \\n[eqn-cutaround] .ll
.if !\\n[continued] \{\
.if \\n[eqn*have-caption] \
.ADD_CAPTION
.\}
.\}
.el \{\
.ie \\n[eqn*type]=2 \{\
.ie '\\*[eqn*label-quad]'L' \{\
.ta \\*[DI]
.ie \\n[continued] .nop \t\\*[eqn*div]
.el \{\
.ie \\n[eqn*autolabel] \
.nop \
\\*[eqn*label-specs]\
\v'+\\*[eqn*shift-label]'\
\\*[eqn*label-prfx]\\*[chapno]\\n+[eqn*label-num]\\*[eqn*label-sffx]\
\v'-\\*[eqn*shift-label]'\
\t\\*[eqn*div]\
\\*[revert-specs]
.el \
.nop \
\\*[eqn*label-specs]\
\v'+\\*[eqn*shift-label]'\
\\*[eqn*label]\
\v'-\\*[eqn*shift-label]'\
\\*[revert-specs]\
\t\\*[eqn*div]
.\}
.\}
.el \{\
.ta \\*[DI] (u;\\n[.l]-\\n[.i])R
.ie \\n[continued] .nop \t\\*[eqn*div]
.el \{\
.ie \\n[eqn*autolabel] \
.nop \
\t\\*[eqn*div]\
\\*[eqn*label-specs]\
\t\v'+\\*[eqn*shift-label]'\
\\*[eqn*label-prfx]\\*[chapno]\\n+[eqn*label-num]\\*[eqn*label-sffx]\
\v'-\\*[eqn*shift-label]'\
\\*[revert-specs]
.el \
.nop \
\t\\*[eqn*div]\
\\*[eqn*label-specs]\
\t\v'+\\*[eqn*shift-label]'\
\\*[eqn*label]\
\v'-\\*[eqn*shift-label]'\
\\*[revert-specs]
.\}
.\}
.if !\\n[continued] \{\
.if \\n[eqn*have-caption] \
.ADD_CAPTION
.\}
.\}
.el \{\
.ie '\\*[eqn*label-quad]'L' \{\
.ta (u;\\n[.l]-\\n[.i]/2)C
.ie \\n[continued] .nop \t\\*[eqn*div]
.el \{\
.ie \\n[eqn*autolabel] \
.nop \
\\*[eqn*label-specs]\
\v'+\\*[eqn*shift-label]'\
\\*[eqn*label-prfx]\\*[chapno]\\n+[eqn*label-num]\\*[eqn*label-sffx]\
\v'-\\*[eqn*shift-label]'\
\t\\*[eqn*div]\
\\*[revert-specs]
.el \
.nop \
\\*[eqn*label-specs]\
\v'+\\*[eqn*shift-label]'\
\\*[eqn*label]\
\v'-\\*[eqn*shift-label]'\
\\*[revert-specs]\
\t\\*[eqn*div]
.\}
.\}
.el \{\
.ta (u;\\n[.l]-\\n[.i]/2)C (u;\\n[.l]-\\n[.i])R
.ie \\n[continued] .nop \t\\*[eqn*div]
.el \{\
.ie \\n[eqn*autolabel] \
.nop \
\t\\*[eqn*div]\
\\*[eqn*label-specs]\
\t\v'+\\*[eqn*shift-label]'\
\\*[eqn*label-prfx]\\*[chapno]\\n+[eqn*label-num]\\*[eqn*label-sffx]\
\v'-\\*[eqn*shift-label]'\
\\*[revert-specs]
.el \
.nop \
\t\\*[eqn*div]\
\\*[eqn*label-specs]\
\t\v'+\\*[eqn*shift-label]'\
\\*[eqn*label]\
\v'-\\*[eqn*shift-label]'\
\\*[revert-specs]
.\}
.\}
.if !\\n[continued] \{\
.if \\n[eqn*have-caption] \
.ADD_CAPTION
.\}
.\}
.\}
.\}
.el \{\
.ta (u;\\n[.l]-\\n[.i])R
.nop \
\\*[eqn*label-specs]\
\t\v'+\\*[eqn*shift-label]'\
\t\\*[eqn*label]\
\v'-\\*[eqn*shift-label]'\
\\*[revert-specs]
.\}
.ta \\*[eqn*tabs]
.if !\\n[continued] \{\
.sp \\*[DD]
.if !'\\*[eqn*space-adj]'' .sp -\\*[eqn*space-adj]u
.if !'\\n[.z]'FLOAT*DIV' \{\
.if !\\n[eqn*no-shim] .SHIM
.\}
.if !'\\*[eqn*caption-short]'' .ds short -short
.if \\n[eqn*autolabel] \
.ds eqn*label \\*[chapno]\\n[eqn*label-num]
.ie !'\\*[eqn*label]'' \
.TO_EQUATIONS "\\*[eqn*label]" "\\*[eqn*caption\\*[short]]"
.el .TO_EQUATIONS "\\*[eqn*caption\\*[short]]"
.rm DD
.rm eqn*caption
.rm eqn*caption-short
.rm eqn*label
.rm short
.rr eqn*copy-in
.\}
.rm DI@cont
.rr eqn*center
.rr eqn@center*cont
.rr eqn*have-label
.rr eqn*ind
.rr eqn@ind*cont
.rr eqn*left
.rr eqn@left*cont
.if !\\n[eqn-cutaround] .rm eqn*space-adj
.\}
.nr eqn*copy-in 1
.if \\n[fill] .fi
.ad \\n[eqn*restore-adj]
.rr fill
.END
.MAC ADD_CAPTION END
.ie \\n[.t]<\\n[.v] \{\
.if !'\\n[.z]'FLOAT*DIV' \{\
.if \\n[#COL_NUM]=\\n[#NUM_COLS] \{\
.tm1 "[mom]: '\\n[.F]', macro EQ, line \\n[eqn-linenum]: Insufficient room for
.tm1 "        equation caption on page \\n[pgnum].
.tm1 "        Skipping caption, but continuing to process.
.if !\\n[@TOP] \{\
.if \\n[#COL_NUM]=\\n[#NUM_COLS] \
.NEWPAGE
.\}
.rr eqn-linenum
.rr pgnum
.\}
.\}
.\}
.el \{\
.if \\n[#PRINT_STYLE]=2 \{\
.ps \\*[eqn*caption-size-change]
.nr lead-curr \\n[.v]
.sp .5v
.vs \\n[.ps]u+\\n[eqn*caption-autolead]u
.nr eqn*caption-lead-diff \\n[lead-curr]-\\n[.v]
.sp \\n[eqn*caption-lead-diff]u
.ps
.if !'\\*[eqn*caption-space]'' \
.sp \\*[eqn*caption-space]
.\}
.if '\\*[eqn*caption-quad]'L' \{\
.fi
.ad l
.nop \
\\*[eqn*caption-specs]\
\\*[eqn*caption]\
\\*[revert-specs]
.nf
.\}
.if '\\*[eqn*caption-quad]'C' \{\
.fi
.ad c
.nop \
\\*[eqn*caption-specs]\
\\*[eqn*caption]\
\\*[revert-specs]
.nf
.\}
.if '\\*[eqn*caption-quad]'R' \{\
.fi
.ad r
.nop \
\\*[eqn*caption-specs]\
\\*[eqn*caption]\
\\*[revert-specs]
.nf
.\}
.if !'\\*[eqn*caption-space]'' \
.sp -\\*[eqn*caption-space]
.vs
.\}
.END
.MAC have-adjust END
.nr #ARGS  0 1
.nr #COUNT \\n[#NUM_ARGS]
.while \\n+[#ARGS]<=\\n[#COUNT] \{\
.if '\\$1'ADJUST' \{\
.ds pic*space-adj \\$2
.break
.\}
.shift
.\}
.END
.MAC PIC_TEXT_STYLE END
.nr #ARGS  0 1
.nr #COUNT \\n[#NUM_ARGS]
.while \\n+[#ARGS]<=\\n[#COUNT] \{\
.if '\\$1'FAMILY' \{\
.shift
.ds pic*text-family \\$1
.shift
.\}
.if '\\$1'FONT' \{\
.shift
.ds pic*text-font \\$1
.shift
.\}
.if '\\$1'SIZE' \{\
.shift
.ds pic*text-size-change \\$1
.shift
.\}
.if '\\$1'AUTOLEAD' \{\
.shift
.nr pic*text-autolead \\$1
.shift
.\}
.\}
.END
.MAC PS END
.br
.have-adjust \\$@
.ds ev-current \\n[.ev]
.rr float*pic
.if !'\\n[.z]'FLOAT*DIV' .FLOAT ADJUST \\*[pic*space-adj]
.PDF_TARGET fig:\\n+[lists*target]
.nr float*pic 1
.nr ind-pre-pic  \\n[.i]
.nr ll-pre-pic   \\n[.l]
.nr lead-pre-pic \\n[.v]
.if \\n[#MLA] .sp .5v
.in 0
.ev PIC
.evc \\n[ev-current]
.nf
.ie \\n[#NUM_ARGS]<2 .@error bad arguments to PS (not preprocessed with pic?)
.el \{\
.if \B'\\$1' \{\
.ie !\B'\\$2' .ds pic*scale-width \\$1
.el .ds pic*scale-width \\$2
.\}
.\}
.while \B'\\$1' .shift
.nr loop-counter \\n[#NUM_ARGS]
.nr loop-count 0 1
.while \\n+[loop-count]<=\\n[loop-counter] \{\
.if '\\$1'NO_SHIM' \{\
.nr float*no-shim 1
.shift 1
.\}
.if '\\$1'LEFT' \{\
.nr pic*left 1
.shift 1
.\}
.if '\\$1'CAPTION' \{\
.nr pic*have-caption 1
.ds pic*caption \\$2
.shift 2
.\}
.if '\\$1'SHORT_CAPTION' \{\
.ds pic*caption-short \\$2
.shift 2
.\}
.if '\\$1'LABEL' \{\
.nr pic*have-label 1
.ds pic*label \\$2
.ds label-type pic
.shift 2
.\}
.\}
.ds pic*label-sffx-tmp \\*[pic*label-sffx]
.substring pic*label-sffx-tmp -1
.if '\\*[pic*label-sffx-tmp]'.' \
.if \\n[pic*caption-after-label]=0 .chop pic*label-sffx
.if \\n[#MLA] \{\
.if (\\n[pic*have-label]=1):(\\n[pic*autolabel]=1) \{\
.if !\\n[pic*have-caption] \
.mla@error label caption \\n[.F] \\$0 \\n[.c]
.\}
.if \\n[pic*have-caption] \{\
.if !\\n[pic*have-label] \{\
.if !\\n[pic*autolabel] \
.mla@error caption label \\n[.F] \\$0 \\n[.c]
.\}
.\}
.\}
.if !'\\*[pic*text-family]'' \
.fam \\*[pic*text-family]
.if !'\\*[pic*text-font]'' \
.ft \\*[pic*text-font]
.if !'\\*[pic*text-size-change]'' \
.ps \\n[#DOC_PT_SIZE]u\\*[pic*text-size-change]
.nr lead-current \\n[.v]
.ie \\n[pic*text-autolead] \
.vs \\n[.ps]u+(\\n[pic*text-autolead]u*1000u)
.el .vs \\n[.ps]u
.nr pic@text-lead \\n[.v]
.nr pic@text-size \\n[.ps]
.if !'\\*[pic*text-color]'' .gcolor \\*[pic*text-color]
.if \\n[@TOP] \{\
.RESTORE_SPACE
.nr pic*top-lead-adj 1
.\}
.nr pic*top-lead-diff \\n[lead-pre-pic]u-\\n[.v]u
.if (\\n[pic*have-caption]=0):(\\n[pic*caption-after-label]=1) \{\
.ie \\n[pic*top-lead-adj] \{\
.sp \\n[pic*top-lead-diff]u
.rr pic*top-lead-adj
.\}
.el .if (\\n[pic*caption-after-label]=0):(\\n[#MLA]=0) .sp \\n[lead-pre-pic]u/2u
.\}
.di pic*div
.END
.MAC PE END
.di
.nr pic*div-width \\n[dl]
.if \\n[@TOP] \{\
.RESTORE_SPACE
.\}
.sp \\n[lead-pre-pic]u/2u
.if (\\n[pic*have-caption]=1)&(\\n[pic*caption-after-label]=0) \{\
.sp .5v
.ev caption
.evc \\*[ev-current]
.nh
.ie \\n[#PRINT_STYLE]=1 .TYPEWRITER
.el \{\
.pic*caption-style
.nr lead-current \\n[.v]
.vs \\n[.ps]u+\\n[pic*caption-autolead]u
.nr pic*caption-lead-diff \\n[lead-current]-\\n[.v]
.in \\n[ind-pre-pic]u
.\}
.PIC*SET_CAPTION_QUAD \\*[pic*caption-quad]
.if \\n[@TOP] .RESTORE_SPACE
\!.     in -\\n[ind-pre-pic]u
.sp \\n[pic*caption-lead-diff]u
\!.     if \\\\n[.ns] .rs
.nop \\*[pic*caption]
.if \\n[#PRINT_STYLE]=1 .sp .5v
.if !'\\*[pic*caption-space]'' \
.sp \\*[pic*caption-space]
.br
.ev
.\}
.if !\\n[pic*left] .in \\n[ll-pre-pic]u-\\n[pic*div-width]u/2u
.pic*div
.sp
.if (\\n[pic*have-label]=1):(\\n[pic*autolabel]=1):(\\n[pic*caption-after-label]=1) \{\
.nr lead-pre-label \\n[.v]
.ev label
.evc \\*[ev-current]
.ie \\n[#PRINT_STYLE]=1 .TYPEWRITER
.el \{\
.pic*label-style
.nr lead-current \\n[.v]
.vs \\n[.ps]u+\\n[pic*label-autolead]u
.in \\n[ind-pre-pic]u
.sp \\n[lead-current]u-\\n[.v]u
.\}
.if \\n[pic*label-with-chapter] \
.ds chapno \\n[#CH_NUM].
.PIC*SET_LABEL_QUAD \\*[pic*label-quad]
\!.     in -\\n[ind-pre-pic]u
.sp \\n[lead-pre-label]u-\\n[.v]u
.if !'\\*[pic*label-space]'' .sp \\*[pic*label-space]
.if \\n[#PRINT_STYLE]=1 .sp .5v
.ie \\n[pic*autolabel] \
.nop \
\\*[pic*label-prfx]\\*[chapno]\\n+[fig*label-num]\\*[pic*label-sffx]\|
.el .if !'\\*[pic*label]'' .nop \\*[pic*label]
.if \\n[pic*autolabel] \
.ds pic*label \\*[chapno]\\n[fig*label-num]
.fam
.ft
.ps
.gcolor
.ie !\\n[pic*caption-after-label] .br
.el \{\
.if !'\\*[pic*caption]'' .nop \
\\*[pic*caption-specs]\\*[pic*caption]\\*[revert-specs]
.br
.\}
.ev
.in 0
.\}
.ev
.sp .5v
.FLOAT off
.in \\n[ind-pre-pic]u
.if !'\\*[pic*caption-short]'' .ds short -short
.ie !'\\*[pic*label]'' \
.TO_FIGURES "\\*[pic*label]" "\\*[pic*caption\\*[short]]"
.el .TO_FIGURES "\\*[pic*caption\\*[short]]"
.rm pic*caption
.rm pic*label
.rm pic*left
.rm short
.if !\\n[cutaround] .rm pic*space-adj
.if !\\n[defer] .rr pic*have-caption
.rr pic*have-label
.rr float*pic
.if '\\*[pic*label-sffx-tmp]'.' .ds pic*label-sffx .
.END
.MAC FOOTNOTE_REFS END
.ie !'\\$1'' .rr #FN_REF
.el \{\
.if r #EN_REF .rr #EN_REF
.nr #FN_REF 1
.\}
.REF_STYLE NOTE
.END
.MAC ENDNOTE_REFS END
.ie !'\\$1'' .rr #EN_REF
.el \{\
.if r #FN_REF .rr #FN_REF
.nr #EN_REF 1
.if !r#EN_MARKER_STYLE .ENDNOTE_MARKER_STYLE SUPERSCRIPT
.\}
.REF_STYLE NOTE
.END
.MAC REF END
.ie \\n[#FN_REF]+\\n[#EN_REF]=0 \{\
.if !\\n[#REF_WARNING]=1 \{\
.tm1 "[mom]: Before REF at line \\n[.c], neither FOOTNOTE_REFS nor ENDNOTE_REFS
.tm1 "       has been selected.  If "sort" and "accumulate" are in your refer
.tm1 "       commands, references will be collected for later output with $LIST$.
.tm1 "       Otherwise, they will disappear.
.nr #REF_WARNING 1
.\}
.\}
.el \{\
.ie \\n[#REF]=1 \{\
.if \\n[#FN_REF]=1 .FOOTNOTE OFF
.if \\n[#EN_REF]=1 .ENDNOTE OFF
.rr #REF
.\}
.el \{\
.rr #REF_WARNING
.nr #REF 1
.if \\n[#FN_REF]=1 .FOOTNOTE \\$1 \\$2 \\$3
.if \\n[#EN_REF]=1 .ENDNOTE
.\}
.\}
.END
.MAC REF_BRACKETS_NOTICE END
.tm1 "[mom]: \\$1 has been removed from mom.  See the mom documentation 'refer.html'
.tm1 "       for instructions on parenthetical insertions of references into text.
.ie '\\$1'REF_STYLE' .tm1 "       Continuing to process '\\n[.F]' from line \\n[.c].
.el .ab Aborting '\\n[.F]' at \\$1, line \\n[.c].
.END
.MAC REF_BRACKETS_START END
.REF_BRACKETS_NOTICE \\$0
.END
.MAC REF_BRACKETS_END END
.REF_BRACKETS_NOTICE \\$0
.END
.ALIAS REF( REF_BRACKETS_START
.ALIAS REF) REF_BRACKETS_END
.ALIAS REF[ REF_BRACKETS_START
.ALIAS REF] REF_BRACKETS_END
.ALIAS REF{ REF_BRACKETS_START
.ALIAS REF} REF_BRACKETS_END
.ALIAS REF< REF_BRACKETS_START
.ALIAS REF> REF_BRACKETS_END
.MAC REF_STYLE END
.REF_BRACKETS_NOTICE \\$0
.END
.MAC INDENT_REFS END
.if '\\$1'FOOTNOTE' .ds $REF_FN_INDENT  \\$2
.if '\\$1'ENDNOTE'  .ds $REF_EN_INDENT  \\$2
.if '\\$1'BIBLIO'   .ds $REF_BIB_INDENT \\$2
.END
.MAC HYPHENATE_REFS END
.ie '\\$1'' .nr #REF_HY 1
.el \{\
.if r #REF_HY .rr #REF_HY
.\}
.END
.de @error
.tm [mom]: '\\n[.F]', line \\n[.c]: \\$*
..
.de ref*restore-ss
\c
.SS \\*[$SAVED_SS_VAR]
.if '\\n[.z]'END_NOTES' \{\
\c
\E*[PREV]\c
.\}
..
.de ref*specs
.if \\n[#PRINT_STYLE]=1 \{\
.char '     \[aq]
.char \[oq] \[aq]
.\}
.ds ref*spec!0 i Q A m p T2 s o D c a u n
.ds ref*spec!1 i Q A m p T2 q O J V S N D P n
.ds ref*spec!2 i Q A m p T1 q b d l r E S e V O C I D P t n
.ds ref*spec!3 i Q A m p T2 B b d l r E S e V O C I D P t n
.ds ref*spec!4 i Q A m p T1 R G O C I D P n
.ds ref*spec!5 i Q A m p T2 O M V S N D P n
..
.de ]-
.ref*specs
.rm [A [B [C [D [E [F [G [H [I [J [K [L [M \
    [N [O [P [Q [R [S [T [U [V [W [X [Y [Z \
    [a [b [c [d [e [f [g [h [i [j [k [l [m \
    [n [o [p [q [r [s [t [u [v [w [x [y [z
.if r [e .rr [e
.rr ref*type
.rm ref*string
..
.de ][
.nr ref*type \\$1
.if \\n[ref*type]=0 \{\
.ie d [C \{\
.if !d [I \{\
.nr pre-1900 1
.nr ref*type 2
.\}
.\}
.el .nr ref*type 2
.if d [q .nr ref*type 2
.\}
.if \\n[ref*type]=3 \{\
.if !'\\*([R'' \{\
.nr ref*type 4
.ds ref*spec!4 i Q A m p T2 B R O C I D P n
.\}
.if !'\\*([G'' \{\
.nr ref*type 4
.ds ref*spec!4 i A m p T2 B G O C I D P O n
.\}
.\}
.if r [T \{\
.als [T1 [T
.als [T2 [T
.\}
.ie d ref*spec!\\n[ref*type] .ref*build \\*[ref*spec!\\n[ref*type]]
.el \{\
.@error unknown reference type `\\n[ref*type]'
.ref*build \\*[ref*spec!0]
.\}
.if !\\n[.hy]=0 \{\
.nr #RESTORE_HY \\n[.hy]
.if !r#REF_HY .nh
.\}
.ref*print
.if !\\n[#RESTORE_HY]=0 .hy \\n[#RESTORE_HY]
.rr #RESTORE_HY
.rm ref*string
.rm [F [T1 [T2
..
.de ]<
.als ref*print ref*end-print
.nr #REF 1
.if \\n[#BIB_LIST]=1 \{\
.nr #IN_BIB_LIST 1
.LIST DIGIT \\*[$BIB_LIST_SEPARATOR] \\*[$BIB_LIST_PREFIX]
.\}
..
.de ]>
.LIST OFF
.rr #REF
.rr #IN_BIB_LIST
.als ref*print ref*normal-print
..
.de ref*normal-print
.nr #CURRENT_HY \\n[.hy]
\\*[ref*string]
..
.de ref*end-print
.nn 10
.nr #REF_BIB_INDENT (u;\\*[$REF_BIB_INDENT])
.ie \\n[#BIB_LIST]=0 \{\
.in +\\n[#REF_BIB_INDENT]u
.ti -\\n[#REF_BIB_INDENT]u
.\}
.el .ITEM
\\*[ref*string]\R'ref*num*first-pass +1'\?\R'ref*num +1'\?
.sp \\n[#BIB_SPACE]u
.ie \\n[#BIB_LIST]=0 .in
.el .IL -\\n[#REF_BIB_INDENT]u
.nn 0
..
.als ref*print ref*normal-print
.de ref*build
.if \\n[#PRINT_STYLE]=2 \{\
.ds $RESTORE_SS_VAR \\*[$SS_VAR]
.SS +8
.\}
.rm ref*string
.while \\n[.$] \{\
.if d [\\$1 \{\
.ie d ref*add-\\$1 .ref*add-\\$1
.el .ref*add-dflt \\$1
.\}
.shift
.\}
.ie d ref*string \{\
.if !\\n[ref*suppress-period] .as ref*string .
.if d ref*post-punct \{\
.as ref*string "\\*[ref*post-punct]
.rm ref*post-punct
.\}
.\}
.el .ds ref*string
..
.de ref*add-A
.ds eval*[A \\*([A
.substring eval*[A -1
.if '\\*[eval*[A]'.' \{\
.if !'\\*[$REF_STYLE]'NOTE' .chop [A
.\}
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ie !'\\*[idem]'' .ref*field A "" "" ", \\*[idem]"
.el .ref*field A
.rm idem
.el .ref*field A
.\}
.if \\n([A .nr ref*suppress-period 1
..
.de ref*add-i
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ie '\\*([i'idem' .rm [i
.el .ds idem \\*([i
.\}
.el \{\
.ie '\\*([i'idem' \{\
.rm [A
.rm [i
.ref*field i "" \[idem] "" " "
.\}
.el \{\
.ds eval*[i \\*([i
.substring eval*[i -1
.if '\\*[eval*[i]'.' \{\
.chop [i
.ds idem \\*([i
.\}
.rm [i
.rm [A
.ref*field i "" \[idem] ", \\*[idem]" " "
.\}
.\}
..
.de ref*add-m
.if !'\\*[$REF_STYLE]'NOTE' \{\
.ds eval*[m \\*([m
.substring eval*[m -1
.if '\\*[eval*[m]'.' .chop [m
.\}
.ref*field m ,
..
.de ref*add-p
.if '\\*[$REF_STYLE]'BIBLIO' \{\
.ds initial*cap \\*([p
.substring initial*cap 0 0
.ds [p*string \\*([p
.substring [p*string 1
.ds [p \E*[UC]\\*[initial*cap]\E*[LC]\\*[[p*string]
.\}
.ie '\\*[$REF_STYLE]'NOTE' .ref*field p ,
.el .ref*field p . " "
..
.de ref*add-Q
.ie '\\*[$REF_STYLE]'NOTE' .ref*field Q
.el .ref*field Q
..
.de ref*add-T1
.ie '\\*[$REF_STYLE]'NOTE' .ref*field T , \E*[IT] \E*[ref*restore-ss]
.el \{\
.ie !'\\*([A'' .ref*field T . " \E*[IT]" \E*[ref*restore-ss]
.el \{\
.ie !'\\*([Q'' .ref*field T . " \E*[IT]" \E*[ref*restore-ss]
.el .ref*field T . \E*[IT] \E*[ref*restore-ss]
.\}
.\}
.if \\n([T .nr ref*suppress-period \\n([T
..
.de ref*add-T2
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ref*field T , \[lq] "" \[rq]
.\}
.el \{\
.ie '\\*([A'' \{\
.ref*field T . \[lq] "" \[rq]
.if !'\\*([Q''.ref*field T . " \[lq]" "" \[rq]
.\}
.el .ref*field T . " \[lq]" "" \[rq]
.\}
.if \\n([T .nr ref*suppress-period \\n([T
..
.de ref*add-B
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ie \\n([T .ref*field B "" \E*[IT] \E*[ref*restore-ss]
.el .ref*field B , \E*[IT] \E*[ref*restore-ss]
.\}
.el \{\
.ie \\n([T .ref*field B "" ".\E*[IT]" \E*[ref*restore-ss]
.el .ref*field B . " \E*[IT]" \E*[ref*restore-ss]
.\}
.ds eval*[B \\*([B
.substring eval*[B -1
.rr [T
.if '\\*[eval*[B]'!' .nr [T 1
.if '\\*[eval*[B]'?' .nr [T 1
.rm eval*[B
..
.de ref*add-q
.ie '\\*[$REF_STYLE]'NOTE' .ref*field q , \[lq] "" \[rq]
.el \{\
.ie !'\\*([A'' .ref*field q . " \[lq]" "" \[rq]
.el \{\
.ie !'\\*([Q'' .ref*field q . " \[lq]" "" \[rq]
.el .ref*field q . \[lq] "" \[rq]
.\}
.\}
..
.de ref*add-R
.ref*field R . " "
..
.de ref*add-J
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ie \\n([T .ref*field J "" "\E*[IT]" \E*[ref*restore-ss]
.el .ref*field J , "\E*[IT]" \E*[ref*restore-ss]
.\}
.el \{\
.ie \\n([T .ref*field J "" " \E*[IT]" \E*[ref*restore-ss]
.el .ref*field J . " \E*[IT]" \E*[ref*restore-ss]
.\}
..
.de ref*add-M
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ie \\n([T .ref*field M "" "\E*[IT]" \E*[ref*restore-ss]
.el .ref*field M , "\E*[IT]" \E*[ref*restore-ss]
.\}
.el \{\
.ie \\n([T .ref*field M "" " \E*[IT]" \E*[ref*restore-ss]
.el .ref*field M . " \E*[IT]" \E*[ref*restore-ss]
.\}
..
.de ref*add-E
.ds eval*[E \\*([E
.substring eval*[E -1
.if '\\*[eval*[E]'.' \{\
.if !\\n[#FN_REF]+\\n[#EN_REF] .chop [E
.rm eval*[E
.\}
.rm eval*[E
.nr position 1 1
.nr counter 1 1
.while !'\\*[eval*[E]',' \{\
.ds eval*[E \\*([E
.substring eval*[E \\n+[position] \\n[position]
.if \\n+[counter]>30 .break
.\}
.if '\\*[eval*[E]',' \{\
.ds eval*[E \\*([E
.nr and-check \\n[position]+4
.substring eval*[E \\n+[position] \\n[and-check]
.\}
.if '\\*[eval*[E]' and' \{\
.nr counter 1 1
.nr start-range -1 1
.nr end-range 3 1
.while !'\\*[eval*[E]', and' \{\
.ds eval*[E \\*([E
.substring eval*[E \\n+[start-range] \\n+[end-range]
.if \\n+[counter]>50 .break
.\}
.if '\\*[eval*[E]', and' \{\
.length len*[E \\*([E
.nr rhs \\n[len*[E]-\\n[start-range]
.ds lhs \\*([E
.ds rhs \\*([E
.substring lhs 0 \\n[start-range]-1
.substring rhs -(\\n[rhs]-1)
.ds [E \\*[lhs]\\*[rhs]
.\}
.rm lhs
.rm rhs
.rr and-check
.rr counter
.rr start-range
.rr end-range
.rr len*[E
.\}
.ie !\\n[ref*type]=0 \{\
.ie \\n([E>0 \{\
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ie \\n([T .ref*field E "" "ed. "
.el .ref*field E , "ed. "
.\}
.el \{\
.ie \\n([T .ref*field E "" " Eds. "
.el .ref*field E . " Eds. "
.\}
.\}
.el \{\
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ie \\n([T .ref*field E "" "ed. "
.el .ref*field E , "ed. "
.\}
.el \{\
.ie \\n([T .ref*field E "" " Ed. "
.el .ref*field E . " Ed. "
.\}
.\}
.\}
.el \{\
.ie \\n([T .ref*field E "" " "
.el .ref*field E . " "
.\}
.rr [T
.rr [E
..
.de ref*add-e
.ie \\n([T .ref*field e "" "" " ed."
.el \{\
.ie '\\*[$REF_STYLE]'NOTE' .ref*field e , "" " ed."
.el .ref*field e . " " " ed."
.\}
.nr ref*suppress-period 1
.nr [e 1
.rr [T
..
.de ref*add-V
.if \\n[ref*type]=1 \{\
.ref*field V
.\}
.if \\n[ref*type]=2 \{\
.ie '\\*[$REF_STYLE]'NOTE' .ref*field V , "vol. "
.el \{\
.ie \\n([T .ref*field V "" " Vol. "
.el .ref*field V . " Vol. "
.\}
.\}
.if \\n[ref*type]=3 \{\
.ie \\n([T .ref*field V "" " "
.el .ref*field V . " "
.\}
.rr [T
..
.de ref*add-N
.ref*field N
..
.de ref*add-S
.if \\n[ref*type]=1 \{\
.ref*field S
.\}
.if \\n[ref*type]=2 \{\
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ie \\n([T .ref*field S
.el .ref*field S ,
.\}
.el \{\
.ie \\n([T .ref*field S "" " "
.el .ref*field S . " "
.\}
.\}
.if \\n[ref*type]=3 \{\
.ie \\n([T .ref*field S "" " "
.el .ref*field S . " "
.\}
.rr [T
.ds eval*[S \\*([S
.substring eval*[S -1
.if '\\*[eval*[S]'!' .nr [T 1
.if '\\*[eval*[S]'?' .nr [T 1
.rm eval*[S
..
.de ref*add-C
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ie r [d \{\
.ref*field C
.rr [d
.\}
.el \{\
.ref*field C "" \*[FU 2](
.\}
.if \\n([T .nr ref*suppress-period \\n([T
.\}
.el \{\
.ie \\n([T .ref*field C "" " "
.el \{\
.ie r [e .ref*field C "" " "
.el .ref*field C . " "
.\}
.\}
.rr [T
.rr [e
..
.de ref*add-I
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ie !'\\*([C'' .ref*field I :
.el .ref*field I "" (
.\}
.el \{\
.ie !'\\*([C'' .ref*field I :
.el \{\
.ie \\n([T .ref*field I "" " "
.el .ref*field I . " "
.\}
.\}
.rr [T
..
.de ref*add-D
.if \\n[ref*type]=0 \{\
.ie '\\*[$REF_STYLE]'NOTE' .ref*field D ,
.el .ref*field D . " "
.\}
.if \\n[ref*type]=1 \{\
.ref*field D "" "(" ")"
.\}
.if \\n[ref*type]=2 \{\
.ie '\\*[$REF_STYLE]'NOTE' .ref*field D , "" )
.el .ref*field D ,
.\}
.if \\n[ref*type]=3 \{\
.ie !'\\*([C'' \{\
.ie '\\*[$REF_STYLE]'NOTE' .ref*field D , "" )
.el .ref*field D ,
.\}
.el \{\
.if '\\*([I'' \{\
.ds eval*[D \\*([D
.substring eval*[D 0 -4
.ie '\\*[eval*[D]'1' .ds kern \*[BU3]
.el .ds kern \*[BU2]
.ie \\n[#PRINT_STYLE]=2 \{\
.if '\\*[$REF_STYLE]'NOTE' .ref*field D "" (\\*[kern] )
.\}
.el .ref*field D
.\}
.rm eval*[D
.rm kern
.\}
.\}
.if \\n[ref*type]=4 .ref*field D ,
.if \\n[ref*type]=5 .ref*field D
.ds eval*[D \\*([D
.substring eval*[D -1
.if '\\*[eval*[D]'.' .nr ref*suppress-period 1
..
.de ref*add-P
.if \\n[ref*type]=5 .nr ref*type 1
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ie \\n[ref*type]=1 .ref*field P : "" .
.el .ref*field P "" "\|"
.if \\n[ref*type]=1 .nr ref*suppress-period 1
.\}
.el \{\
.ie \\n[ref*type]=1 .ref*field P \|:
.el \{\
.ie d [n .ref*field P . \| .
.el .ref*field P . " "
.\}
.\}
..
.de ref*add-G
.ie '\\*[$REF_STYLE]'NOTE' ref*field G ,
.el .ref*field G . " "
..
.de ref*add-O
.ds eval*[O \\*([O
.substring eval*[O -1
.if '\\*[eval*[O]'.' .nr [O 1
.ds initial*cap \\*([O
.substring initial*cap 0 0
.ds [O*string \\*([O
.substring [O*string 1
.if '\\*[$REF_STYLE]'BIBLIO' \{\
.ds [O \E*[UC]\\*[initial*cap]\E*[LC]\\*[[O*string]
.\}
.ie '\\*[$REF_STYLE]'NOTE' .ref*field O ,
.el \{\
.if \\n([O=1 .chop [O
.ie r [e .ref*field O "" " "
.el \{\
.ie !d [A .ref*field O
.el .ref*field O . " "
.\}
.\}
.rr [O
.rr [e
..
.de ref*add-n
.ds eval*[n \\*([n
.substring eval*[n -1
.if '\\*[eval*[n]'.' .chop [n
.if '\\*[eval*[n]'?' .nr [n 1
.if '\\*[eval*[n]'!' .nr [n 1
.ie '\\*[$REF_STYLE]'NOTE' .ref*field n ,
.el \{\
.ie !'\\*([P'' .ref*field n "" " "
.el .ref*field n . " "
.\}
.if r [n .nr ref*suppress-period 1
.rr [n
..
.de ref*add-dflt
.ref*field \\$1 ,
..
.de ref*add-d
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ref*field d "" ( ;
.nr [d 1
.\}
.el \{\
.ie \\n([T .ref*field d "" " "
.el .ref*field d . " "
.\}
.rr [T
..
.de ref*add-b
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ie \\n([T .ref*field b "" "by"
.el .ref*field b , "by "
.\}
.el \{\
.ie \\n([T .ref*field b "" " By "
.el .ref*field b . " By "
.\}
.rr [T
..
.de ref*add-t
.ie '\\*[$REF_STYLE]'NOTE' .ref*field t , "rpt. of \E*[IT] " \E*[ref*restore-ss]
.el \{\
.ie \\n([T .ref*field t "" " Rpt. of \E*[IT] " \E*[ref*restore-ss]
.el .ref*field t . " Rpt. of \E*[IT] " \E*[ref*restore-ss]
.\}
.rr [T
..
.de ref*add-l
.ie '\\*[$REF_STYLE]'NOTE' \{\
.ie \\n([T .ref*field l "" "trans. "
.el .ref*field l , "trans. "
.\}
.el \{\
.ie \\n([T .ref*field l "" " Trans. "
.el .ref*field l . " Trans. "
.\}
.rr [T
..
.de ref*add-r
.ie '\\*[$REF_STYLE]'NOTE' .ref*field r , "trans. and ed. "
.el \{\
.ie \\n([T .ref*field r "" " Trans. and ed. "
.el .ref*field r . " Trans. and ed. "
.\}
.rr [T
..
.de ref*add-s
.ie '\\*[$REF_STYLE]'NOTE' .ref*field s , \E*[IT] \E*[ref*restore-ss]
.el \{\
.ie \\n([s .ref*field s "" ".\E*[IT]" \E*[ref*restore-ss]
.el .ref*field s . " \E*[IT]" \E*[ref*restore-ss]
.\}
.if !'\\*[$REF_STYLE]'NOTE' \{\
.ds eval*[s \\*([s
.substring eval*[s -1
.rr [T
.if '\\*[eval*[s]'.' .nr [T 1
.if '\\*[eval*[s]'!' .nr [T 1
.if '\\*[eval*[s]'?' .nr [T 1
.rm eval*[s
.\}
..
.de ref*add-c
.ie '\\*[$REF_STYLE]'NOTE' .ref*field c ,
.el \{\
.ie \\n([T .ref*field c "" " "
.el .ref*field c . " "
.\}
.rr [T
..
.de ref*add-o
.ie '\\*[$REF_STYLE]'NOTE' .ref*field o ,
.el \{\
.ie \\n([T .ref*field o "" " "
.el .ref*field o . " "
.\}
.rr [T
..
.de ref*add-a
.ie '\\*[$REF_STYLE]'NOTE' .ref*field a ,
.el \{\
.ie \\n([T .ref*field a "" " "
.el .ref*field a . " "
.\}
.rr [T
..
.de ref*add-u
.ref*field u "" < >
.rr [T
..
.de ref*add-z
.ref*field z
..
.ie !n .ds ref*roman \f[R]\X'ps: exec decornone'\?\R'#UNDERLINE_ON 0'\?
.el .ds ref*roman \f[R]\?\R'#UNDERLINE_ON 0'\?
.de ref*field
.if d ref*string \{\
.ie d ref*post-punct \{\
.as ref*string "\\$2\\*[ref*post-punct] 
.rm ref*post-punct
.\}
.el .as ref*string "\\$2 
.\}
.as ref*string "\\$3\\*([\\$1\\$4\E*[ref*roman]
.if \\n[.$]>4 .ds ref*post-punct "\\$5\E*[ref*roman]
.nr ref*suppress-period 0
..
.MAC MN_INIT END
.if \B'\\$2' \{\
.tm1 "[mom]: 1.x-style \\$0 detected, but you are using v2.x.
.tm1 "       v2.x requires flags before arguments to \\$0.
.tm1 "       Please read docelement.html#mn-init and update your file.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.nr #ARGS  0 1
.nr #COUNT 9
.while \\n+[#ARGS]<=\\n[#COUNT] \{\
.ds $MN-arg\\n[#ARGS] @
.\}
.nr #FLAG 0 1
.nr #COUNT \\n[#NUM_ARGS]
.while \\n+[#FLAG]<=\\n[#COUNT] \{\
.if '\\$1'RAGGED' \{\
.ds $MN-arg1 \\$1
.shift
.\}
.if '\\$1'SYMMETRIC' \{\
.ds $MN-arg1 \\$1
.shift
.\}
.if '\\$1'L_WIDTH' \{\
.shift
.ds $MN-arg2 \\$1
.shift
.\}
.if '\\$1'R_WIDTH' \{\
.shift
.ds $MN-arg3 \\$1
.shift
.\}
.if '\\$1'GUTTER' \{\
.shift
.ds $MN-arg4 \\$1
.shift
.\}
.if '\\$1'FONTSTYLE' \{\
.shift
.ds $MN-arg5 \\$1
.shift
.\}
.if '\\$1'SIZE' \{\
.shift
.ds $MN-arg6 \\$1
.shift
.\}
.if '\\$1'LEAD' \{\
.shift
.ds $MN-arg7 \\$1
.shift
.\}
.if '\\$1'COLOR' \{\
.shift
.ds $MN-arg8 \\$1
.shift
.\}
.if '\\$1'HY' \{\
.shift
.ds $MN-arg9 \\$1
.shift
.\}
.\}
.if '\\*[$MN-arg5]'@' .ds $MN-arg5 \E*[$DOC_FAM]R
.MNinit \
\\*[$MN-arg1] \\*[$MN-arg2] \
\\*[$MN-arg3] \\*[$MN-arg4] \
\\*[$MN-arg5] \\*[$MN-arg6] \
\\*[$MN-arg7] \\*[$MN-arg8] \
\\*[$MN-arg9]
.END
.MAC MN_OVERFLOW_TRAP END
.if \\n[#OVERFLOW_LEFT]=1 \{\
.nr #no-repeat-MN-left 1
.di MN_OVERFLOW_LEFT
.\}
.if \\n[#OVERFLOW_RIGHT]=1 \{\
.nr #no-repeat-MN-right 1
.di MN_OVERFLOW_RIGHT
.\}
.rr #OVERFLOW_LEFT
.rr #OVERFLOW_RIGHT
.END
.de MNinit
.nr #MNinit 1
.ds MN-left-ad b
.ds MN-right-ad b
.if '\\$1'@' .shift
.if '\\$1'RAGGED' \{\
.ds MN-left-ad l
.ds MN-right-ad l
.shift
.\}
.if '\\$1'SYMMETRIC' \{\
.ds MN-left-ad r
.ds MN-right-ad l
.shift
.\}
.ie \B'\\$3' .nr MN-sep (n;\\$3)
.el .nr MN-sep 1m
.if ((\\n[.o] - \\n[MN-sep]) < 1n) \
.ab MN: Left margin too small (<1n) for requested margin notes separation.
.ie \B'\\$1' \{\
.nr MN-left-width (n;\\$1)
.nr MN-left-start (\\n[.o] - \\n[MN-sep] - \\n[MN-left-width])
.\}
.el \{\
.nr MN-left-width (\\n[.o] - \\n[MN-sep])
.nr MN-left-start 0
.\}
.if (\\n[MN-left-start] < 0) \
.ab MN: Left margin too small for requested margin notes settings.
.if (\\n[MN-left-width] < 1n) \
.ab MN: Left margin notes width too small (<1n).
.ie \B'\\$2' \{\
.nr MN-right-width (n;\\$2)
.nr MN-right-start (\\n[.o] + \\n[.l] + \\n[MN-sep])
.if \\n[#COLUMNS]=1 \{\
.if !\\n[#NUM_COLS]=1 \{\
.nr MN-right-start (\\n[#COL_2_L_MARGIN] + \\n[#COL_L_LENGTH] + \\n[MN-sep])
.\}
.\}
.\}
.el \{\
.nr MN-right-width \\n[MN-left-width]
.nr MN-right-start (\\n[.o] + \\n[.l] + \\n[MN-sep])
.if \\n[#COLUMNS]=1 \{\
.if !\\n[#NUM_COLS]=1 \{\
.nr MN-right-start (\\n[#COL_2_L_MARGIN] + \\n[#COL_L_LENGTH] + \\n[MN-sep])
.\}
.\}
.\}
.ie \A'\\$4' \{\
.ds MN-font \\$4
.if \\n[#PRINT_STYLE]=1 .ds MN-font CR
.\}
.el \{\
.ds MN-font \\*[$PP_FT]
.if \\n[#PRINT_STYLE]=1 .ds MN-font CR
.\}
.ie \B'\\$5' \{\
.ps \\$5
.nr MN-size \\n[.ps]
.ps
.if \\n[#PRINT_STYLE]=1 \{\
.ps \\*[$TYPEWRITER_PS]
.nr MN-size \\n[.ps]
.ps
.\}
.\}
.el \
.nr MN-size \\n[#DOC_PT_SIZE]
.ie \B'\\$6' \{\
'    vs \\$6
.nr MN-spacing \\n[.v]
'    vs
.if \\n[#PRINT_STYLE]=1 \
.nr MN-spacing \\n[#DOC_LEAD]
.\}
.el .nr MN-spacing \\n[#DOC_LEAD]
.ie \A'\\$7' \
.if !\\n[#PRINT_STYLE]=1 .ds MN-color \\$7
.el \
.if !\\n[#PRINT_STYLE]=1 .ds MN-color
.ie \B'\\$8' .nr MN-hy \\$8
.el .nr MN-hy \\n[.hy]
.ev MNbottom-left-env
.if \A'\\*[MN-font]' .ft \\*[MN-font]
.if \\n[MN-size] .ps \\n[MN-size]u
.if \\n[MN-spacing] .vs \\n[MN-spacing]u
.ll \\n[MN-left-width]u
.ad \\*[MN-left-ad]
.hy \\n[MN-hy]
'  in 0
.nop \m[\\*[MN-color]]\c
.ev
.ev MNbottom-right-env
.if \A'\\*[MN-font]' .ft \\*[MN-font]
.if \\n[MN-size] .ps \\n[MN-size]u
.if \\n[MN-spacing] .vs \\n[MN-spacing]u
.ll \\n[MN-right-width]u
.ad \\*[MN-right-ad]
.hy \\n[MN-hy]
'  in 0
.nop \m[\\*[MN-color]]\c
.ev
.nr MN-active 0
..
.de MN
.ds MN-dir \\$1
.if !'\\$1'LEFT' \{\
.if !'\\$1'RIGHT' \{\
.MN_QUIT
.return
.\}
.\}
.if \\n[#COLUMNS]=1 \{\
.if \\n[#NUM_COLS]>2 \{\
.tm [mom]: Macro MN: More than two columns.  Ignoring margin notes.
.return
.\}
.if !\\n[#NUM_COLS]=1 \{\
.ie \\n[#COL_NUM]=1 .ds MN-dir LEFT
.el .ds MN-dir RIGHT
.\}
.\}
.if !\\n[#MNinit]=1 \{\
.tm [mom]: Macro MN: You must set parameters with MN_INIT before using MN.
.ab Aborting '\\n[.F]' at MN, line \\n[.c].
.\}
.ie !'\\$1'' \{\
.if \\n[MN-active] \{\
.tm [mom]: Macro MN: Can't handle nested margin notes, line \\n[.c].
.return
.\}
.nr MN-active 1
.ev MN-env
.ie '\\*[MN-dir]'LEFT' \{\
.nr MN-left +1
.ds MN-curr l-\\n[MN-left]
.evc MNbottom-left-env
.\}
.el \{\
.nr MN-right +1
.ds MN-curr r-\\n[MN-right]
.evc MNbottom-right-env
.\}
.mk MN-mk-\\*[MN-curr]
.di MN-div-\\*[MN-curr]
.\}
.el .MN_QUIT
..
.de MN_QUIT
.if \\n[MN-active] \{\
.br
.di
.nr MN-div-\\*[MN-curr]-depth \\n[dn]
.ev
.\}
.nr MN-active 0
..
.de MNtop
.nr MN-left 0
.nr MN-right 0
.nr MN-active 0
.rr MN-shifted
.ch FOOTER \\n[#VARIABLE_FOOTER_POS]u
..
.de MNbottom-left
.nr MN-curr 0
.nr MN-last-pos 0
.nr MN-lead-adj \\n[#DOC_LEAD]-\\n[MN-spacing]
.vpt 0
.mk MN-curr-pos
.if \\n[MN-active] \{\
.di
.tm [mom]: Macro MN: Margin note finished by new page.  Ignored.
.\}
.po \\n[MN-left-start]u
.ev MNbottom-left-env
.nr #P \\n%+\\n[#PAGE_NUM_ADJ]
.while (\\n[MN-curr] < \\n[MN-left]) \{\
.nr MN-curr +1
.ie (\\n[MN-last-pos] < \\n[MN-mk-l-\\n[MN-curr]]) \
.sp |\\n[MN-mk-l-\\n[MN-curr]]u+\\n[MN-lead-adj]u
.el \{\
.nr MN-shifted 1
.sp 1v
.SHIM
.if \\n[#SHIM]>\\n[MN-spacing] .sp -(1v+\\n[MN-lead-adj]u)
.tm \
[mom]: Macro MN: Warning: Left margin note #\\n[MN-curr] on page \\n[#P] shifted down.
.\}
.if ( (\\n[nl]+\\n[MN-div-l-\\n[MN-curr]-depth]) > (\\n[.p]+\\n[#VARIABLE_FOOTER_POS]-1) ) \{\
.if \\n[MN-shifted]=1 \{\
.sp -(1v+\\n[#SHIM]u)
.rm MN-div-l-\\n[MN-curr]
.tm1 "[mom]: No room to start left margin note #\\n[MN-curr] on page \\n[#P].
.tm1 "       Ignoring margin note.
.rr MN-shifted
.\}
.nr #no-repeat-MN-left 1
.nr #OVERFLOW_LEFT 1
.ie \\n[#FN_COUNT]=0 \{\
.ch FOOTER \\n[.p]u
.wh \\n[#VARIABLE_FOOTER_POS]u+\\n[MN-lead-adj]u+1u MN_OVERFLOW_TRAP
.\}
.el \
.wh \\n[.p]u+\\n[#VARIABLE_FOOTER_POS]u-1u MN_OVERFLOW_TRAP
.vpt 1
.\}
.nf
.MN-div-l-\\n[MN-curr]
.fi
.br
.nr MN-last-pos \\n[nl]
.\}
.ev
.po
.if !\\n[#no-repeat-MN-left]=1 \
.if \\n[MN-right]=0 .vpt 1
..
.de MNbottom-right
.nr MN-curr 0
.nr MN-last-pos 0
.nr MN-lead-adj \\n[#DOC_LEAD]-\\n[MN-spacing]
.vpt 0
.po \\n[MN-right-start]u
.ev MNbottom-right-env
.nr #P \\n%+\\n[#PAGE_NUM_ADJ]
.while (\\n[MN-curr] < \\n[MN-right]) \{\
.nr MN-curr +1
.ie (\\n[MN-last-pos] < \\n[MN-mk-r-\\n[MN-curr]]) \
.sp |\\n[MN-mk-r-\\n[MN-curr]]u+\\n[MN-lead-adj]u
.el \{\
.nr MN-shifted 1
.sp 1v
.SHIM
.if \\n[#SHIM]>\\n[MN-spacing] .sp -(1v+\\n[MN-lead-adj]u)
.tm [mom]: \
Macro MN: Warning: Right margin note #\\n[MN-curr] on page \\n[#P] shifted down.
.\}
.if ( (\\n[nl]+\\n[MN-div-r-\\n[MN-curr]-depth]) > (\\n[.p]+\\n[#VARIABLE_FOOTER_POS]-1) ) \{\
.if \\n[MN-shifted]=1 \{\
.sp -(1v+\\n[#SHIM]u)
.rm MN-div-r-\\n[MN-curr]
.tm1 \
[mom]: No room to start right margin note #\\n[MN-curr] on page \\n[#P] on page \\n[#P].
.tm1 "       Ignoring margin note.
.rr MN-shifted
.\}
.nr #no-repeat-MN-right 1
.nr #OVERFLOW_RIGHT 1
.ie \\n[#FN_COUNT]=0 \{\
.ch FOOTER \\n[.p]u
.wh \\n[#VARIABLE_FOOTER_POS]u+\\n[MN-lead-adj]u+1u MN_OVERFLOW_TRAP
.\}
.el \
.wh \\n[.p]u+\\n[#VARIABLE_FOOTER_POS]u-1u MN_OVERFLOW_TRAP
.vpt 1
.\}
.nf
.MN-div-r-\\n[MN-curr]
.fi
.br
.nr MN-last-pos \\n[nl]
.\}
.ev
.po
.if !\\n[#no-repeat-MN-right]=1 .vpt 1
..
.nr CURRENT_LEVEL 0
.nr VIRTUAL_LEVEL 0
.nr #PDF_BOOKMARKS 1
.nr #PDF_BOOKMARKS_OPEN 1
.pdfview /PageMode /UseOutlines
.MAC TOC_BEFORE_HERE END
.nr TOC_BH 1
.pdfpagename MOM:TOC
.END
.MAC TOC_AFTER_HERE END
.nr TOC_BH 2
.pdfpagename MOM:TOC
.END
.MAC PDF_LINK_COLOR END
.ie \\n[.$]==3 \{\
.ds PDFHREF.COLOUR \\$*
.if !(\B'\\$1' & \B'\\$2' & \B'\\$3') \{\
.tm1 "[mom]: All three arguments to \\$0 at line \\n[.c] must be decimal.
.tm1 "       Continuing to process using default link color.
.ds PDFHREF.COLOUR 0.0 0.3 0.9
.\}
.defcolor pdf:href.colour rgb \\*[PDFHREF.COLOUR]
.ds PDFHREF.TEXT.COLOUR pdf:href.colour
.\}
.el \{\
.ie \\n[.$]==0 \{\
.if dPDFHREF.TEXTCOL.DEFAULT \
.PDF_LINK_COLOR \\*[PDFHREF.TEXTCOL.DEFAULT]
.\}
.el \{\
.ds ARG_1 \\$1
.substring ARG_1 0 0
.ie '\\*[ARG_1]'#' \{\
.defcolor pdf:href.colour rgb \\$1
.ds PDFHREF.TEXT.COLOUR pdf:href.colour
.\}
.el \{\
.ie dCOLAL_\\$1 .ds PDFHREF.TEXT.COLOUR \\*[COLAL_\\$1]
.el .ds PDFHREF.TEXT.COLOUR \\$1
.\}
.\}
.\}
.if !\\n[PDFHREF_COLOR_SET]=1 \{\
.nr PDFHREF_COLOR_SET 1
.\}
.END
.MAC AUTO_RELOCATE_TOC END
.if '\\$1''                .nr TOC.RELOCATE 1
.if '\\$1'TOP'             .nr TOC.RELOCATE 2
.if '\\$1'BEFORE_DOCCOVER' .nr TOC.RELOCATE 3
.if '\\$1'AFTER_DOCCOVER'  .nr TOC.RELOCATE 4
.if '\\$1'BEFORE_COVER'    .nr TOC.RELOCATE 5
.if '\\$1'AFTER_COVER'     .nr TOC.RELOCATE 6
.END
.MAC PDF_BOOKMARK END
.if \\n[#PDF_BOOKMARKS] \{\
.ie '\\$1'NAMED' \{\
.ds PDF_NM -T \\$2
.ds PDF_NM2 \\$2
.shift 2
.\}
.el .ds PDF_NM
.nr LEVEL_REQ \\$1
.shift
.ie \\n[LEVEL_REQ]>\\n[VIRTUAL_LEVEL] \{\
.nr VIRTUAL_LEVEL \\n[LEVEL_REQ]
.nr LEVEL_REQ \\n[CURRENT_LEVEL]+1
.\}
.el \{\
.ie \\n[LEVEL_REQ]<\\n[VIRTUAL_LEVEL] \{\
.nr VIRTUAL_DIFF \\n[VIRTUAL_LEVEL]-\\n[LEVEL_REQ]
.nr VIRTUAL_LEVEL \\n[LEVEL_REQ]
.nr LEVEL_REQ (\\n[CURRENT_LEVEL]-\\n[VIRTUAL_DIFF])>?1
.\}
.el .nr LEVEL_REQ \\n[CURRENT_LEVEL]
.\}
.ds PDF_TX \\$*
.pdfmomclean PDF_TX
.nr PDF_LEV (\\n[LEVEL_REQ]*\\n[#PDF_BOOKMARKS_OPEN])
.ie '\\*[.T]'ps' \{\
.if !'\\*[PDF_NM]'' \{\
.pdfhref M -N \\*[PDF_NM2] -- \\*[PDF_TX]
.if !dpdf:href.map .tm gropdf-info:href \\*[PDF_NM2] \\*[PDF_TX]
.\}
.pdfbookmark \\n[PDF_LEV] \\*[PDF_TX]
.\}
.el .pdfbookmark \\*[PDF_NM] \\n[PDF_LEV] \\$*
.nr CURRENT_LEVEL \\n[LEVEL_REQ]
.rr LEVEL_REQ
.rr PDF_LEV
.rr VIRTUAL_DIFF
.rm PDF_NM
.\}
.END
.MAC PDF_TITLE END
.ds pdftitle \\$*
.pdfmomclean pdftitle
.nop \!x X ps:exec [/Title (\\*[pdftitle]) /DOCINFO pdfmark
.END
.MAC PDF_BOOKMARKS END
.ie '\\$1'' .nr #PDF_BOOKMARKS 1
.el .nr #PDF_BOOKMARKS 0
.END
.MAC PDF_BOOKMARKS_OPEN END
.ie \B'\\$1' \{\
.nr PDFOUTLINE.FOLDLEVEL \\$1
.nr #PDF_BOOKMARKS_OPEN 1
.\}
.el .if '\\*[.T]'pdf' \{\
.nr PDFOUTLINE.FOLDLEVEL 10000
.ie '\\$1'' .nr #PDF_BOOKMARKS_OPEN 1
.el .nr #PDF_BOOKMARKS_OPEN 0-1
.\}
.END
.MAC PDF_LINK END
.ds PDF_NM \\$1
.shift
.ie '\\$1'PREFIX' \{\
.ds PDF_PRE -P "\&\\$2"
.shift 2
.\}
.el .ds PDF_PRE
.ie '\\$1'SUFFIX' \{\
.ds PDF_POST -A "\\$2"
.shift 2
.\}
.el .ds PDF_POST
.ds PDF_AST_Q
.ds PDF_TXT \&\\$1
.ds PDF_AST \\*[PDF_TXT]
.substring PDF_AST -1 -1
.if '\\*[PDF_AST]'+' \{\
.ds PDF_AST *
.ds PDF_AST_Q ""
.\}
.if '\\*[PDF_AST]'*' \{\
.chop PDF_TXT
.ie '\\*[.T]'pdf' \{\
.ie d pdf:look(\\*[PDF_NM]) \
.as PDF_TXT \&\\*[PDF_AST_Q]\\*[pdf:look(\\*[PDF_NM])]\\*[PDF_AST_Q]
.el \{\
.as PDF_TXT Unknown
.if !rPDF_UNKNOWN .tm \
\\n[.F]:\\n[.c]: forward reference detected (please run using 'pdfmom')
.nr PDF_UNKNOWN 1
.\}
.\}
.el \{\
.ie d pdf:href(\\*[PDF_NM]).info \
.as PDF_TXT \&\\*[PDF_AST_Q]\\*[pdf:href(\\*[PDF_NM]).info]\\*[PDF_AST_Q]
.el .as PDF_TXT Unknown
.\}
.\}
.pdfhref L \\*[PDF_PRE] \\*[PDF_POST] -D \\*[PDF_NM] -- \\*[PDF_TXT]
.rm PDF_NM
.rm PDF_PRE
.rm PDF_POST
.rm PDF_TXT
.rm PDF_AST
.rm PDF_AST_Q
.END
.MAC PDF_WWW_LINK END
.ds PDF_NM \\$1
.shift
.ie '\\$1'PREFIX' \{\
.ds PDF_PRE -P "\\$2"
.shift 2
.\}
.el .ds PDF_PRE
.ie '\\$1'SUFFIX' \{\
.ds PDF_POST -A "\\$2"
.shift 2
.\}
.el .ds PDF_POST
.ds PDF_AST_Q
.ds PDF_TXT \\$1
.ie !'\\*[PDF_TXT]'' \{\
.ds PDF_AST \\*[PDF_TXT]
.substring PDF_AST -1 -1
.if '\\*[PDF_AST]'+' \{\
.ds PDF_AST *
.ds PDF_AST_Q ""
.\}
.if '\\*[PDF_AST]'*' \{\
.chop PDF_TXT
.as PDF_TXT \&\\*[PDF_AST_Q]\\*[PDF_NM]\\*[PDF_AST_Q]
.\}
.\}
.el .ds PDF_TXT \\*[PDF_NM]
.pdfhref W -D "\\*[PDF_NM]" \\*[PDF_PRE] \\*[PDF_POST] -- \\*[PDF_TXT]
.rm PDF_NM
.rm PDF_PRE
.rm PDF_POST
.rm PDF_TXT
.rm PDF_AST PDF_AST_Q
.END
.MAC PDF_TARGET END
.ds ARG_1 \\$1
.shift
.pdfhref M -N \\*[ARG_1] -- \\$*
.if '\\*[.T]'ps' .if !dpdf:href.map .tm gropdf-info:href \\*[ARG_1] \\$*
.END
.MAC PDF_IMAGE END
.rr float*img
.if !'\\n[.z]'FLOAT*DIV' .FLOAT
.nr float*img 1
.ds ev-current \\n[.ev]
.ev IMG
.evc \\*[ev-current]
.if \\n[#HYPHENATE] .nh
.nr ind-pre-img \\n[.i]
.nr ll-pre-img  \\n[.l]
.in 0
.ds pos:tmp \\$1
.substring pos:tmp 0 0
.ie !'\\*[pos:tmp]'-' .ds pdf-img:pos -C
.el \{\
.ds pdf-img:pos \\$1
.shift
.\}
.if '\\*[pdf-img:pos]'-I' \{\
.nr pdf-img:ind \\$1
.shift
.\}
.ds pdf-img:file \\$1
.ds pdf-img@file \\$1
.substring pdf-img@file -1 -3
.if !'\\*[pdf-img@file]'pdf' \{\
.tm1 "[mom]: Image file '\\*[pdf-img:file]' at line \\n[.c] not found, or not a PDF image.
.ab Aborting '\\n[.F]' at \\$0, line \\n[.c].
.\}
.nr pdf-img:width \\$2
.nr pdf-img:depth \\$3
.shift 3
.nr loop-counter \\n[#NUM_ARGS]
.nr loop-count 0 1
.while \\n+[loop-count]<=\\n[loop-counter] \{\
.if '\\$1'SCALE' \{\
.shift
.nr pdf-img:scale \\$1
.shift
.nr pdf-img:width \\n[pdf-img:width]*\\n[pdf-img:scale]/100
.nr pdf-img:depth \\n[pdf-img:depth]*\\n[pdf-img:scale]/100
.\}
.if '\\$1'ADJUST' \{\
.shift
.ds pdf-img:adj \\$1
.shift
.\}
.if '\\$1'FRAME' \{\
.nr pdf-img:frame 1
.if !r pdf-img:frame-inset .nr pdf-img:frame-inset 6p
.shift
.\}
.if '\\$1'CAPTION' \{\
.nr pdf-img*have-caption 1
.ds pdf-img*caption \\$2
.shift 2
.\}
.if '\\$1'SHORT_CAPTION' \{\
.ds pdf-img*caption-short \\$2
.shift 2
.\}
.if '\\$1'LABEL' \{\
.nr pdf-img*have-label 1
.ds pdf-img*label \\$2
.ds label-type pdf-img
.shift 2
.\}
.if '\\$1'NO_SHIM' \{\
.nr float*no-shim 1
.\}
.\}
.ds pdf-img*label-sffx-tmp \\*[pdf-img*label-sffx]
.substring pdf-img*label-sffx-tmp -1
.if '\\*[pdf-img*label-sffx-tmp]'.' \
.if \\n[pdf-img*caption-after-label]=0 .chop pdf-img*label-sffx
.PDF_TARGET fig:\\n+[lists*target]
.if '\\*[pdf-img:pos]'-C' \
.nr pdf-img:ind (\\n[.ll]-\\n[ind-pre-img]-\\n[pdf-img:width])/2
.if '\\*[pdf-img:pos]'-R' \{\
.nr pdf-img:ind \\n[.ll]-\\n[pdf-img:width]-\\n[ind-pre-img]
.\}
.di PDF*IMAGE
.if \\n[@TOP] \{\
.ch RR_@TOP
.rs
.nop \&
.sp -1v
.\}
.if \\n[pdf-img*have-caption] \{\
.if !\\n[pdf-img*autolabel] \{\
.if !\\n[pdf-img*have-label] \{\
.if \\n[#MLA] \
.mla@error caption label \\n[.F] \\$0 \\n[.c]
.\}
.\}
.if !\\n[pdf-img*caption-after-label] \{\
.if !\\n[@TOP] .sp .5v
.nr lead-pre-caption \\n[.v]
.ev caption
.evc IMG
.ie \\n[#PRINT_STYLE]=1 .TYPEWRITER
.el \{\
.img*caption-style
.vs \\n[.ps]u+\\n[pdf-img*caption-autolead]u
.\}
.PDF_IMG*SET_CAPTION_QUAD \\*[pdf-img*caption-quad]
.sp \\n[lead-pre-caption]u-\\n[.v]u
.nop \\*[pdf-img*caption]
.br
.if !'\\*[pdf-img*caption-space]'' .sp \\*[pdf-img*caption-space]
.ev
.in 0
.sp -.5v
.\}
.\}
.nf
.if \\n[pdf-img:frame] \{\
.nr frame-width \\n[pdf-img:width]+(\\n[pdf-img:frame-inset]*2)
.nr frame-depth \\n[pdf-img:depth]+(\\n[pdf-img:frame-inset]*2)
.if '\\*[pdf-img:pos]'-L' \{\
.nr pdf-img:ind \\n[pdf-img:frame-inset]
.nr pdf-img:dbx-ind 0
.\}
.if '\\*[pdf-img:pos]'-C' \{\
.nr pdf-img:dbx-ind \
\\n[.ll]-\\n[ind-pre-img]-\\n[pdf-img:width]/2-\\n[pdf-img:frame-inset]
.\}
.if '\\*[pdf-img:pos]'-R' \{\
.nr pdf-img:ind -\\n[pdf-img:frame-inset]
.nr pdf-img:dbx-ind \
\\n[.l]u-(\\n[pdf-img:width]u+(\\n[pdf-img:frame-inset]u*2u)+\\n[ind-pre-img]u)
.\}
.if '\\*[pdf-img:pos]'-I' \{\
.nr pdf-img:ind +\\n[pdf-img:frame-inset]
.nr pdf-img:dbx-ind \\n[pdf-img:ind]-\\n[pdf-img:frame-inset]
.\}
.DBX \\*[pdf-img:frame-weight] \
            \\n[pdf-img:dbx-ind]u \
            \\n[frame-width]u \
            \\n[frame-depth]u \
            \\*[pdf-img:frame-color]
.sp \\n[pdf-img:frame-inset]u
.nr pdf-img:ind -\\n[pdf-img:frame-inset]
.\}
.ti \\n[pdf-img:ind]u+\\n[pdf-img:frame-inset]u
.nop \X'pdf: pdfpic \\*[pdf-img:file] -L \\n[pdf-img:width]z \\n[pdf-img:depth]z'
.if '\\*[pdf-img:pos]'-C' .nr pdf-img:ind +\\n[pdf-img:frame-inset]
.sp \\n[pdf-img:depth]u
.if \\n[pdf-img:frame] .sp \\n[pdf-img:frame-inset]u
.if (\\n[pdf-img*have-label]=1):(\\n[pdf-img*autolabel]=1):(\\n[pdf-img*caption-after-label]=1) \{\
.if \\n[#MLA] \{\
.if (\\n[pdf-img*have-label]=1):(\\n[pdf-img*autolabel]=1) \{\
.if !\\n[pdf-img*have-caption] \
.mla@error label caption \\n[.F] \\$0 \\n[.c]
.\}
.\}
.nr lead-pre-label \\n[.v]
.ev label
.evc IMG
.ie \\n[#PRINT_STYLE]=1 .TYPEWRITER
.el \{\
.img*label-style
.vs \\n[.ps]u+\\n[pdf-img*label-autolead]u
.\}
.if \\n[pdf-img*label-with-chapter] \
.ds chapno \\n[#CH_NUM].
.PDF_IMG*SET_LABEL_QUAD \\*[pdf-img*label-quad]
.sp \\n[lead-pre-label]u-\\n[.v]u
.if !'\\*[pdf-img*label-space]'' .sp \\*[pdf-img*label-space]
.ie \\n[pdf-img*autolabel] \
.nop \
\\*[pdf-img*label-prfx]\\*[chapno]\\n+[fig*label-num]\\*[pdf-img*label-sffx]\|
.el .if !'\\*[pdf-img*label]'' .nop \\*[pdf-img*label]
.if \\n[pdf-img*autolabel] \
.ds pdf-img*label \\*[chapno]\\n[fig*label-num]
.fam
.ft
.ps
.gcolor
.if !'\\*[pdf-img*caption]'' \{\
.if \\n[pdf-img*caption-after-label] \{\
.ds pdf-img*caption " \\*[pdf-img*caption]
.nop \\*[pdf-img*caption-specs]\\*[pdf-img*caption]\\*[revert-specs]
.\}
.\}
.sp .5v
.ev
.in 0
.\}
\!.  in
.di
.nf
.vpt 0
.if !'\\*[pdf-img:adj]'' \{\
.if \\n[@TOP] \
.if \\n[#COLUMNS]>1 \
\!.           rs
\!.     sp \\*[pdf-img:adj]
.\}
.PDF*IMAGE
.if !'\\*[pdf-img:adj]'' \
.if !\\n[@TOP] \!.sp -\\*[pdf-img:adj]
.vpt
.ev
.FLOAT off
.nr dl \\n[pdf-img:width]
.if !'\\*[pdf-img*caption-short]'' .ds short -short
.ie !'\\*[pdf-img*label]'' \
.TO_FIGURES "\\*[pdf-img*label]" "\\*[pdf-img*caption\\*[short]]"
.el .TO_FIGURES "\\*[pdf-img*caption\\*[short]]"
.PDF_IMAGE_CLEAN 
.END
.MAC PDF_IMAGE_FRAME END
.if !'\\$1''\{\
.ds frame-arg \\$1
.substring frame-arg -1
.ie \B'\\*[frame-arg]' \{\
.tm1 "[mom]: \\$0 inset argument at line \\n[.c]
.tm1 "       of '\\n[.F]' requires a unit of measure.
.tm1 "       Default 6 point inset will be used instead.
.\}
.el .nr pdf-img:frame-inset \\$1
.\}
.shift
.if !'\\$1'' \{\
.ds frame-arg \\$1
.substring frame-arg -1
.ie \B'\\*[frame-arg]' \{\
.ds pdf-img:frame-weight \\$1
.shift
.\}
.el \{\
.ds frame-arg \\$1
.substring frame-arg -1 
.length arg-len \\*[frame-arg]
.if \\n[arg-len]=1 \{\
.tm1 "[mom]: \\$0 rule weight argument at line \\n[.c]
.tm1 "       of '\\n[.F]' must not have a unit of measure appended.
.tm1 "       Default .5 rule weight will be used instead.
.shift
.\}
.\}
.\}
.if !'\\$1'' \{\
.ie m \\$1 .ds pdf-img:frame-color \\$1
.el \{\
.tm1 "[mom]: \\$0 color argument '\\$1' at line \\n[.c]
.tm1 "       of '\\n[.F]' is not a valid color.
.tm1 "       Default black will be used instead.
.\}
.\}
.END
.MAC PDF_IMAGE_CLEAN END
.rm PDF*IMAGE
.rm pdf-img:adj
.rm pdf-img*caption
.rm pdf-img*caption-short
.rm pdf-img*caption-space
.rm pdf-img:file
.rm pdf-img*label
.rm pdf-img*label-space
.rm pdf-img:pos
.rm short
.rr ind-pre-img
.rr pdf-img:depth
.rr pdf-img:float
.rr pdf-img:frame
.rr pdf-img:ind
.rr pdf-img:no-shim
.rr pdf-img:scale
.if !\\n[defer] \
.if !\\n[cutaround] \
.rr pdf-img*have-caption
.if !\\n[cutaround] \{\
.rr pdf-img:frame-inset
.rr pdf-img:width
.\}
.if '\\*[pdf-img*label-sffx-tmp]'.' .ds pdf-img*label-sffx .
.END
.de pdfmomclean
.ie '\\n[.z]'' \{\
.ds pdfcleaned \\$*
.ev pdfcln
.tr \[em]-
.nf
.box pdf:clean
.nop \\*[\\*[pdfcleaned]]
.fl
.box
.chop pdf:clean
.asciify pdf:clean
.ev
.ds \\*[pdfcleaned] "\\*[pdf:clean]
.rm pdf:clean
.tr \[em]\[em]
.\}
.el .nop \!.pdfmomclean \\$@
..
