meillo@49: .nr PS 11
meillo@49: .nr VS 13
meillo@49: 
meillo@49: .de CW
meillo@49: .nr PQ \\n(.f
meillo@49: .if t \{\
meillo@49: .	ft CW
meillo@49: .	if !^\\$1^^ \&\\$1\f\\n(PQ\\$2
meillo@49: .\}
meillo@49: .if n \{\
meillo@49: .	ie ^\\$1^^ .ul 999
meillo@49: .	el .ul 1
meillo@49: .	if \\n(.$=1 \&\\$1
meillo@49: .	if \\n(.$>1 \&\\$1\c
meillo@49: .	if \\n(.$>1 \&\\$2
meillo@49: .\}
meillo@49: ..
meillo@49: 
meillo@49: .ds [. \ [
meillo@49: .ds .] ]
meillo@49: .rm ]<
meillo@49: .de ]<
meillo@49: .LP
meillo@49: .de FP
meillo@49: .IP \\\\$1.
meillo@49: \\..
meillo@49: .rm FS FE
meillo@49: ..
meillo@49: 
meillo@49: .de H
meillo@49: .if '\\$1'1' \{\
meillo@49: .	sp 2v
meillo@49: .	nr PS +2
meillo@49: .	NH \\$1
meillo@49: \\$2
meillo@49: .	nr PS -2
meillo@49: .	LP
meillo@49: .	XS
meillo@49: .	sp .5v
meillo@49: .	B
meillo@49: \\*(SN \\$2
meillo@49: .	XE
meillo@49: .\}
meillo@49: .if '\\$1'2' \{\
meillo@49: .	NH \\$1
meillo@49: \\$2
meillo@49: .	LP
meillo@49: .	XS
meillo@49: 	\\*(SN \\$2
meillo@49: .	XE
meillo@49: .\}
meillo@49: ..
meillo@49: 
meillo@49: .am QP
meillo@49: .ps -1
meillo@49: ..
meillo@49: 
meillo@49: .am DS
meillo@49: .CW
meillo@49: .ps -1
meillo@49: ..