.nr PS 11
.nr VS 13

.de CW
.nr PQ \\n(.f
.if t \{\
.	ft CW
.	if !^\\$1^^ \&\\$1\f\\n(PQ\\$2
.\}
.if n \{\
.	ie ^\\$1^^ .ul 999
.	el .ul 1
.	if \\n(.$=1 \&\\$1
.	if \\n(.$>1 \&\\$1\c
.	if \\n(.$>1 \&\\$2
.\}
..

.ds [. \ [
.ds .] ]
.rm ]<
.de ]<
.LP
.de FP
.IP \\\\$1.
\\..
.rm FS FE
..

.de H
.br
.ne 5
.if '\\$1'1' \{\
.	sp 2v
.	nr PS +2
.	NH \\$1
\\$2
.	nr PS -2
.	LP
.	XS
.	sp .5v
.	B
\\*(SN \\$2
.	XE
.\}
.if '\\$1'2' \{\
.	NH \\$1
\\$2
.	LP
.	XS
	\\*(SN \\$2
.	XE
.\}
..

.am PP
.br
.ne 2
..

.am LP
.br
.ne 2
..

.am QP
.ps -1
..

.am DS
.CW
.ps -1
..