.\" ----------------------------------------------------------------
.\" general-purpose stack utilities
.\" ----------------------------------------------------------------
.de =>
.ds @\\$1 \\$2 \\*[@\\$1]
..
.de <=
.<- @\\$1 \\*[@\\$1]
..
.de <#
.<+ @\\$1 \\*[@\\$1]
..
.de <-
.ds >< \\$1
.shift
.shift
.ds <> \\$1
.ds \\*[><] \\$*
..
.de <+
.ds >< \\$1
.shift
.ds <> \\$1
.shift
.ds \\*[><] \\$*
..
.\" ----------------------------------------------------------------
.\" saving and restoring text properties
.\" ----------------------------------------------------------------
.de >PS
.=> PS \\$1
.ps \\$1
..
.de <PS
.<= PS
.ps \\*[<>]
..
.de >VS
.=> VS \\$1
.vs \\$1
..
.de <VS
.<= VS
.vs \\*[<>]
..
.de >FT
.=> FT \\$1
.ft \\$1
..
.de <FT
.<= FT
.ft \\*[<>]
..
.de >AD
.=> AD \\$1
.ad \\$1
..
.de <AD
.<= AD
.ad \\*[<>]
..
.de >CO
.=> CO \\$1
.gcolor \\$1
..
.de <CO
.<= CO
.gcolor \\*[<>]
..
.de >IN
.=> IN \\$1
.in +\\$1
..
.de <IN
.<# IN
.in -\\*[<>]
..
.de >MA
.if \\n(MA<\\$1 \{\
'sp \\$1-\\n(MAu
.nr MA \\$1\}
.if (\\n(nl+\\n(MA+1v)>(\\n(.p-\\n(BMu) .PF
.ch CT
.wh \\n(nlu+1u CT
.=> MA \\$2
..
.de <MA
.<# MA
.if \\n(MA<\\*[<>] \{\
'sp \\*[<>]-\\n(MAu
.nr MA \\*[<>]\}
.ch CT
.wh \\n(nlu+\\n(MAu CT
..
.de CT
.nr MA 0
.ch CT
..
.\" ----------------------------------------------------------------
.\" pagination
.\" ----------------------------------------------------------------
.po 1.5c
.ll 21c-3c
.pl 29.7c
.nr TM 2c
.nr BM 2.4c
.\" ----------------------------------------------------------------
.de PH
'sp \\n(TMu
..
.de PF
'bp
..
.wh 0 PH
.wh \n(.pu-\n(BMu PF
.\" ----------------------------------------------------------------
.defcolor gray rgb .5 .5 .5
.\" ----------------------------------------------------------------
.\" defaults
.\" ----------------------------------------------------------------
.nr SS 1
.nr MA 0
.nr nl 0
.nr *# 0
.nh
.ds @PS
.ds @VS
.ds @FT
.ds @AD
.ds @CO
.ds @IN
.ds @MA
.>PS 10
.>VS 12
.>FT R
.>AD l
.>CO black
.>IN 0
.>MA 0 0
.\" ----------------------------------------------------------------
.\" stylesheet support
.\" ----------------------------------------------------------------
.de {
.ds {} \\$1
.am \\*[{}]
\\..
.am /\\*[{}]
\\..
..
.de }
.ds {}
..
.de }{
.am \\*[{}]
.>\\$*
\\..
.am /\\*[{}]
.<\\$1
\\..
..
.\" ----------------------------------------------------------------
.de PS
.}{ PS \\$*
..
.de VS
.}{ VS \\$*
..
.de FT
.}{ FT \\$*
..
.de AD
.}{ AD \\$*
..
.de CO
.}{ CO \\$*
..
.de IN
.}{ IN \\$*
..
.de MA
.}{ MA \\$*
..
.de BR
.am \\*[{}]
.br
\\..
.am /\\*[{}]
.br
\\..
..
.\" ----------------------------------------------------------------
.ds BU1 \s'\n(.s*12/10'\v'.1m'\(bu\v'-.1m'\s0
.ds BU0 \s'\n(.s*6/10'\v'-.2m'\(ci\v'.2m'\s0
.de SX
.am ul
.nr *# +1
.nr ** \\\\n[*#]%2
.ds bullet \\\\*[BU\\\\n[**]]
\\..
.am /ul
.nr *# -1
.nr ** \\\\n[*#]%2
.ds bullet \\\\*[BU\\\\n[**]]
\\..
.am li
\Z'\h'-1m'\\\\*[bullet]'\\\\c
\\..
..
.\" ----------------------------------------------------------------
.it 1 SX
.\" ----------------------------------------------------------------