GopherProxy

	tmac.e - 9base - revived minimalist port of Plan 9 userland to Unix
	git clone git://git.suckless.org/9base
	Log
	Files
	Refs
	README
	LICENSE
	---
	tmac.e (11986B)
	---
	1 .nr _0 \n(.c
	2 .\"**********************************************************************
	3 .\"* …
	4 .\"* **** - M E N R O F F / T R O F F M A C R O S **** …
	5 .\"* …
	6 .\"* Produced for your edification and enjoyment by: …
	7 .\"* Eric Allman …
	8 .\"* Electronics Research Laboratory …
	9 .\"* U.C. Berkeley. …
	10 .\"* …
	11 .\"* VERSION 2.9 First Release: 11 Sept 1978 …
	12 .\"* See file \*(\|\|/revisions for revision history …
	13 .\"* …
	14 .\"* Documentation is available. …
	15 .\"* …
	16 .\"**********************************************************************
	17 .\"
	18 .\" @(#)tmac.e 2.9 12/10/80
	19 .\" This version has had comments stripped; an unstripped version is ava…
	20 .if !\n(.V .tm You are using the wrong version of NROFF/TROFF!!
	21 .if !\n(.V .tm This macro package works only on the version seven
	22 .if !\n(.V .tm release of NROFF and TROFF.
	23 .if !\n(.V .ex
	24 .if \n(pf \
	25 . nx \*(\|\|/null.me
	26 .de @C
	27 .nr _S \\n(.s
	28 .nr _V \\n(.v
	29 .nr _F \\n(.f
	30 .nr _I \\n(.i
	31 .ev \\$1
	32 .ps \\n(_Su
	33 .vs \\n(_Vu
	34 .ft \\n(_F
	35 'in \\n(_Iu
	36 .xl \\n($lu
	37 .lt \\n($lu
	38 .rr _S
	39 .rr _V
	40 .rr _F
	41 .rr _I
	42 .ls 1
	43 'ce 0
	44 ..
	45 .de @D
	46 .ds \|p "\\$3
	47 .nr _d \\$1
	48 .ie "\\$2"C" \
	49 . nr _d 1
	50 .el .ie "\\$2"L" \
	51 . nr _d 2
	52 .el .ie "\\$2"I" \
	53 . nr _d 3
	54 .el .ie "\\$2"M" \
	55 . nr _d 4
	56 .el \
	57 . ds \|p "\\$2
	58 ..
	59 .de @z
	60 .if !"\\n(.z"" \
	61 \{\
	62 . tm Line \\n(c. -- Unclosed block, footnote, or other diversion …
	63 . di
	64 . ex
	65 .\}
	66 .if \\n(?a \
	67 . bp
	68 .rm bp
	69 .rm @b
	70 .if t \
	71 . wh -1p @m
	72 .br
	73 ..
	74 .de @I
	75 .rm th
	76 .rm ac
	77 .rm lo
	78 .rm sc
	79 .rm @I
	80 ..
	81 .de he
	82 .ie !\\n(.$ \
	83 \{\
	84 . rm \|4
	85 . rm \|5
	86 .\}
	87 .el \
	88 \{\
	89 . ds \|4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
	90 . ds \|5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
	91 .\}
	92 ..
	93 .de eh
	94 .ie !\\n(.$ \
	95 . rm \|4
	96 .el \
	97 . ds \|4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
	98 ..
	99 .de oh
	100 .ie !\\n(.$ \
	101 . rm \|5
	102 .el \
	103 . ds \|5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
	104 ..
	105 .de fo
	106 .ie !\\n(.$ \
	107 \{\
	108 . rm \|6
	109 . rm \|7
	110 .\}
	111 .el \
	112 \{\
	113 . ds \|6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
	114 . ds \|7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
	115 .\}
	116 ..
	117 .de ef
	118 .ie !\\n(.$ \
	119 . rm \|6
	120 .el \
	121 . ds \|6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
	122 ..
	123 .de of
	124 .ie !\\n(.$ \
	125 . rm \|7
	126 .el \
	127 . ds \|7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
	128 ..
	129 .de ep
	130 .if \\n(nl>0 \
	131 \{\
	132 . wh 0
	133 . rs
	134 . @b
	135 .\}
	136 ..
	137 .de @h
	138 .if (\\n(.i+\\n(.o)>=\\n(.l \
	139 . tm Line \\n(c. -- Offset + indent exceeds line length
	140 .if t .if (\\n(.l+\\n(.o)>7.75i \
	141 . tm Line \\n(c. -- Offset + line length exceeds paper width
	142 .nr ?h \\n(?H
	143 .rr ?H
	144 .nr ?c \\n(?C
	145 .rr ?C
	146 .rn \|4 \|0
	147 .rn \|5 \|1
	148 .rn \|6 \|2
	149 .rn \|7 \|3
	150 .nr _w 0
	151 .nr ?W 0
	152 .nr ?I 1
	153 .ev 2
	154 .rs
	155 .if t .@m
	156 .if \\n(hm>0 \
	157 . sp \|\\n(hmu
	158 .if \\n($T=2 \\!.
	159 .@t $h
	160 .if \\n(tm<=0 \
	161 . nr tm \n(.Vu
	162 .sp \|\\n(tmu
	163 .ev
	164 .mk _k
	165 .if \\n(?n .nm 1
	166 .nr $c 1
	167 .ie \\n(?s \
	168 \{\
	169 . rr ?s
	170 . rs
	171 ' @b
	172 .\}
	173 .el \
	174 . @n
	175 ..
	176 .de @m
	177 .@O 0
	178 .lt 7.5i
	179 .tl '\(rn''\(rn'
	180 .@O
	181 .lt
	182 ..
	183 .de @n
	184 .if \\n(bm<=0 \
	185 . nr bm \\n(.Vu
	186 .if (\\n(_w<=\\n($l)&(\\n(?W=0) \
	187 \{\
	188 . nr _b (\\n(ppu*\\n($ru)/2u
	189 . if \\n(_bu>((\\n(bmu-\\n(fmu-(\\n(tpu*\\n($ru))/2u) \
	190 . nr _b (\\n(ppu*\\n($ru)-\n(.Vu
	191 . nr _b +\\n(bmu
	192 .\}
	193 .nr _B \\n(_bu
	194 .ch @f
	195 .wh -\\n(_bu @f
	196 .nr ?f 0
	197 .if \\n(?o \
	198 \{\
	199 . (f _
	200 . nf
	201 . \|o
	202 . fi
	203 . )f
	204 . rm \|o
	205 .\}
	206 .nr ?o 0
	207 .if \\n(?T \
	208 \{\
	209 . nr _i \\n(.i
	210 . in \\n($iu
	211 . \|h
	212 . in \\n(_iu
	213 . rr _i
	214 . mk #T
	215 . ns
	216 .\}
	217 .if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \
	218 \{\
	219 . nr ?a 0
	220 . @k \|t
	221 . if \\n(?w \
	222 . mk _k
	223 . nr ?w 0
	224 .\}
	225 .os
	226 .$H
	227 .ns
	228 ..
	229 .de @f
	230 .ec
	231 .if \\n(?T \
	232 \{\
	233 . nr T. 1
	234 . T# 1
	235 . br
	236 .\}
	237 .ev 2
	238 .ce 0
	239 .if \\n(?b \
	240 \{\
	241 . nr ?b 0
	242 . @k \|b
	243 .\}
	244 .if \\n(?f \
	245 . @o
	246 .ie \\n($c<\\n($m \
	247 . @c
	248 .el \
	249 . @e
	250 .ev
	251 ..
	252 .de @o
	253 .nf
	254 .ls 1
	255 .in 0
	256 .wh -\\n(_Bu @r
	257 .\|f
	258 .fi
	259 .if \\n(?o \
	260 . di
	261 . if \\n(dn=0 \
	262 \{\
	263 . rm \|o
	264 . nr ?o 0
	265 . \}
	266 . nr dn \\n(_D
	267 . rr _D
	268 .\}
	269 .rm \|f
	270 .ch @r
	271 ..
	272 .de @c
	273 .rs
	274 .sp \|\\n(_ku
	275 .@O +\\n($lu+\\n($su
	276 .nr $c +1
	277 .@n
	278 ..
	279 .de @e
	280 .@O \\n(_ou
	281 .rs
	282 .sp \|\\n(.pu-\\n(fmu-(\\n(tpu*\\n($ru)
	283 .@t $f
	284 .nr ?h 0
	285 .bp
	286 ..
	287 .de @t
	288 .if !\\n(?h \
	289 \{\
	290 . sz \\n(tp
	291 . @F \\n(tf
	292 . lt \\n(_Lu
	293 . nf
	294 . \\$1
	295 . br
	296 .\}
	297 ..
	298 .de $h
	299 .rm \|z
	300 .if !\\n(?c \
	301 \{\
	302 . if e .ds \|z "\\*(\|0
	303 . if o .ds \|z "\\*(\|1
	304 .\}
	305 .if !\(ts\\*(\|z\(ts\(ts \
	306 ' tl \\*(\|z
	307 .rm \|z
	308 ..
	309 .de $f
	310 .rm \|z
	311 .if \\n(?c \
	312 \{\
	313 . if e .ds \|z "\\*(\|0
	314 . if o .ds \|z "\\*(\|1
	315 .\}
	316 .if \(ts\\*(\|z\(ts\(ts \
	317 \{\
	318 . if e .ds \|z "\\*(\|2
	319 . if o .ds \|z "\\*(\|3
	320 .\}
	321 .if !\(ts\\*(\|z\(ts\(ts \
	322 ' tl \\*(\|z
	323 .rm \|z
	324 ..
	325 .de @r
	326 .di \|o
	327 .nr ?o 1
	328 .nr _D \\n(dn
	329 .ns
	330 ..
	331 .rn bp @b
	332 .de bp
	333 .nr $c \\n($m
	334 .ie \\n(nl>0 \
	335 . @b \\$1
	336 .el \
	337 \{\
	338 . if \\n(.$>0 \
	339 . pn \\$1
	340 . if \\n(?I \
	341 . @h
	342 .\}
	343 .br
	344 .wh 0 @h
	345 ..
	346 .rn ll xl
	347 .de ll
	348 .xl \\$1
	349 .lt \\$1
	350 .nr $l \\n(.l
	351 .if (\\n($m<=1):(\\n($l>\\n(_L) \
	352 . nr _L \\n(.l
	353 ..
	354 .rn po @O
	355 .de po
	356 .@O \\$1
	357 .nr _o \\n(.o
	358 ..
	359 .de hx
	360 .nr ?H 1
	361 ..
	362 .de ix
	363 'in \\$1
	364 ..
	365 .de bl
	366 .br
	367 .ne \\$1
	368 .rs
	369 .sp \\$1
	370 ..
	371 .de n1
	372 .nm 1
	373 .xl -\w'0000'u
	374 .nr ?n 1
	375 ..
	376 .de n2
	377 .nm \\$1
	378 .ie \\n(.$ \
	379 . xl -\w'0000'u
	380 .el \
	381 . xl \\n($lu
	382 ..
	383 .de pa
	384 .bp \\$1
	385 ..
	386 .de ro
	387 .af % i
	388 ..
	389 .de ar
	390 .af % 1
	391 ..
	392 .de m1
	393 .nr _0 \\n(hmu
	394 .nr hm \\$1v
	395 .nr tm +\\n(hmu-\\n(_0u
	396 .rr _0
	397 ..
	398 .de m2
	399 .nr tm \\n(hmu+\\n(tpp+\\$1v
	400 ..
	401 .de m3
	402 .nr bm \\n(fmu+\\n(tpp+\\$1v
	403 ..
	404 .de m4
	405 .nr _0 \\n(fmu
	406 .nr fm \\$1v
	407 .nr bm +\\n(fmu-\\n(_0u
	408 ..
	409 .de sk
	410 .if \\n(.$>0 \
	411 . tm Line \\n(c. -- I cannot skip multiple pages
	412 .nr ?s 1
	413 ..
	414 .de re
	415 .ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.…
	416 ..
	417 .if t .ig
	418 .de re
	419 .ta 0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.…
	420 ..
	421 .de ba
	422 .ie \\n(.$ \
	423 . nr $i \\$1n
	424 .el \
	425 . nr $i \\n(siu*\\n($0u
	426 ..
	427 .de hl
	428 .br
	429 \l'\\n(.lu-\\n(.iu'
	430 .sp
	431 ..
	432 .de pp
	433 .lp \\n(piu
	434 ..
	435 .de lp
	436 .@p
	437 .if \\n(.$ \
	438 . ti +\\$1
	439 .nr $p 0 1
	440 ..
	441 .de ip
	442 .if (\\n(ii>0)&(\\n(ii<1n) \
	443 . nr ii \\n(iin
	444 .nr _0 \\n(ii
	445 .if \\n(.$>1 \
	446 . nr _0 \\$2n
	447 .@p \\n(_0u
	448 .if \\w"\\$1" \
	449 \{\
	450 . ti -\\n(_0u
	451 . ie \\w"\\$1">=\\n(_0 \
	452 \{\
	453 \&\\$1
	454 . br
	455 . \}
	456 . el \&\\$1\h'\|\\n(_0u'\c
	457 .\}
	458 .rr _0
	459 ..
	460 .de np
	461 .nr $p +1
	462 .ip (\\n($p)
	463 ..
	464 .de @p
	465 .@I
	466 .if "\\n(.z"\|e" .tm Line \\n(c. -- Unmatched continued equation
	467 .in \\n($iu+\\n(pou
	468 .if \\n(.$ \
	469 . in +\\$1n
	470 .ce 0
	471 .fi
	472 .@F \\n(pf
	473 .sz \\n(ppu
	474 .sp \\n(psu
	475 .ne \\n(.Lv+\\n(.Vu
	476 .ns
	477 ..
	478 .de sh
	479 .rn sh @T
	480 .so \\*(\|\|/sh.me
	481 .sh "\\$1" "\\$2" \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
	482 .rm @T
	483 ..
	484 .de $p
	485 .if (\\n(si>0)&(\\n(.$>2) \
	486 . nr $i \\$3*\\n(si
	487 .in \\n($iu
	488 .ie !"\\$1\\$2"" \
	489 \{\
	490 . sp \\n(ssu
	491 . ne \\n(.Lv+\\n(.Vu+\\n(psu+(\\n(spu\\n($ru\\n(.Lu)
	492 . ie \\n(.$>2 \
	493 . ti -(\\n(siu-\\n(sou)
	494 . el \
	495 . ti +\\n(sou
	496 . @F \\n(sf
	497 . sz \\n(spu
	498 . if \\$3>0 \
	499 . $\\$3
	500 . if \w"\\$2">0 \\$2.
	501 . if \w"\\$1">0 \\$1\f1\ \ \"
	502 .\}
	503 .el \
	504 . sp \\n(psu
	505 .@F \\n(pf
	506 .sz \\n(ppu
	507 ..
	508 .de uh
	509 .rn uh @T
	510 .so \\*(\|\|/sh.me
	511 .uh "\\$1"
	512 .rm @T
	513 ..
	514 .de 2c
	515 .br
	516 .if \\n($m>1 \
	517 . 1c
	518 .nr $c 1
	519 .nr $m 2
	520 .if \\n(.$>1 \
	521 . nr $m \\$2
	522 .if \\n(.$>0 \
	523 . nr $s \\$1n
	524 .nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
	525 .xl \\n($lu
	526 .mk _k
	527 .ns
	528 ..
	529 .de 1c
	530 .br
	531 .nr $c 1
	532 .nr $m 1
	533 .ll \\n(_Lu
	534 .sp \|\\n(.hu
	535 .@O \\n(_ou
	536 ..
	537 .de bc
	538 .sp 24i
	539 ..
	540 .de (z
	541 .rn (z @V
	542 .so \\*(\|\|/float.me
	543 .(z \\$1 \\$2
	544 .rm @V
	545 ..
	546 .de )z
	547 .tm Line \\n(c. -- unmatched .)z
	548 ..
	549 .de (t
	550 .(z \\$1 \\$2
	551 ..
	552 .de )t
	553 .)z \\$1 \\$2
	554 ..
	555 .de (b
	556 .br
	557 .@D 3 \\$1 \\$2
	558 .sp \\n(bsu
	559 .@(
	560 ..
	561 .de )b
	562 .br
	563 .@)
	564 .if (\\n(bt=0):(\\n(.t<\\n(bt) \
	565 . ne \\n(dnu
	566 .ls 1
	567 .nf
	568 .\|k
	569 .ec
	570 .fi
	571 .in 0
	572 .xl \\n($lu
	573 .ev
	574 .rm \|k
	575 .sp \\n(bsu+\\n(.Lv-1v
	576 ..
	577 .de @(
	578 .if !"\\n(.z"" .tm Line \\n(c. -- Illegal nested keep \\n(.z
	579 .@M
	580 .di \|k
	581 \!'rs
	582 ..
	583 .de @M
	584 .nr ?k 1
	585 .@C 1
	586 .@F \\n(df
	587 .vs \\n(.su*\\n($Ru
	588 .nf
	589 .if "\\*(\|p"F" \
	590 . fi
	591 .if \\n(_d=4 \
	592 . in 0
	593 .if \\n(_d=3 \
	594 \{\
	595 . in +\\n(biu
	596 . xl -\\n(biu
	597 .\}
	598 .if \\n(_d=1 \
	599 . ce 10000
	600 ..
	601 .de @)
	602 .br
	603 .if !"\\n(.z"\|k" .tm Line \\n(c. -- Close of a keep which has never been…
	604 .nr ?k 0
	605 .di
	606 .in 0
	607 .ce 0
	608 ..
	609 .de (c
	610 .if "\\n(.z"\|c" .tm Line \\n(c. -- Nested .(c requests
	611 .di \|c
	612 ..
	613 .de )c
	614 .if !"\\n(.z"\|c" .tm Line \\n(c. -- Unmatched .)c
	615 .br
	616 .di
	617 .ev 1
	618 .ls 1
	619 .in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
	620 .nf
	621 .\|c
	622 .ec
	623 .in
	624 .ls
	625 .ev
	626 .rm \|c
	627 ..
	628 .de (q
	629 .br
	630 .@C 1
	631 .fi
	632 .sp \\n(qsu
	633 .in +\\n(qiu
	634 .xl -\\n(qiu
	635 .sz \\n(qp
	636 ..
	637 .de )q
	638 .br
	639 .ev
	640 .sp \\n(qsu+\\n(.Lv-1v
	641 .nr ?k 0
	642 ..
	643 .de (l
	644 .br
	645 .sp \\n(bsu
	646 .@D 3 \\$1 \\$2
	647 .@M
	648 ..
	649 .de )l
	650 .br
	651 .ev
	652 .sp \\n(bsu+\\n(.Lv-1v
	653 .nr ?k 0
	654 ..
	655 .de EQ
	656 .rn EQ @T
	657 .so \\*(\|\|/eqn.me
	658 .EQ \\$1 \\$2
	659 .rm @T
	660 ..
	661 .de TS
	662 .rn TS @W
	663 .so \\*(\|\|/tbl.me
	664 .TS \\$1 \\$2
	665 .rm @W
	666 ..
	667 .de sz
	668 .ps \\$1
	669 .vs \\n(.su*\\n($ru
	670 .bd S B \\n(.su/3u
	671 ..
	672 .de r
	673 .nr _F \\n(.f
	674 .ul 0
	675 .ft 1
	676 .if \\n(.$ \&\\$1\f\\n(_F\\$2
	677 .rr _F
	678 ..
	679 .de i
	680 .nr _F \\n(.f
	681 .ul 0
	682 .ft 2
	683 .if \\n(.$ \&\\$1\f\\n(_F\\$2
	684 .rr _F
	685 ..
	686 .de b
	687 .nr _F \\n(.f
	688 .ul 0
	689 .ie t \
	690 . ft 3
	691 .el \
	692 . ul 10000
	693 .if \\n(.$ \&\\$1\f\\n(_F\\$2
	694 .if \\n(.$ \
	695 . ul 0
	696 .rr _F
	697 ..
	698 .de rb
	699 .nr _F \\n(.f
	700 .ul 0
	701 .ft 3
	702 .if \\n(.$ \&\\$1\f\\n(_F\\$2
	703 .rr _F
	704 ..
	705 .de u
	706 \&\\$1\l'\|0\(ul'\\$2
	707 ..
	708 .de q
	709 \&\\(lq\\$1\\(rq\\$2
	710 ..
	711 .de bi
	712 .ft 2
	713 .ie t \&\k~\\$1\h'\|\\n~u+(\\n(.su/3u)'\\$1\fP\\$2
	714 .el \&\\$1\fP\\$2
	715 ..
	716 .de bx
	717 .ie \\n($T \&\f2\\$1\fP\\$2
	718 .el \k~\(br\\|\\$1\\|\(br\l'\|\\n~u\(rn'\l'\|\\n~u\(ul'\^\\$2
	719 ..
	720 .de @F
	721 .nr ~ \\$1
	722 .if \\n~>0 \
	723 \{\
	724 . ul 0
	725 . ie \\n~>4 \
	726 \{\
	727 . if n .ul 10000
	728 . if t .ft 3
	729 . \}
	730 . el \
	731 . ft \\n~
	732 .\}
	733 .rr ~
	734 ..
	735 .de (f
	736 .rn (f @U
	737 .so \\*(\|\|/footnote.me
	738 .(f \\$1 \\$2
	739 .rm @U
	740 ..
	741 .de )f
	742 .tm Line \\n(c. -- unmatched .)f
	743 ..
	744 .de $s
	745 \l'2i'
	746 .if n \
	747 . sp 0.3
	748 ..
	749 .de (d
	750 .rn (d @U
	751 .so \\*(\|\|/deltext.me
	752 .(d \\$1 \\$2
	753 .rm @U
	754 ..
	755 .de )d
	756 .tm Line \\n(c. -- unmatched .)d
	757 ..
	758 .de (x
	759 .rn (x @U
	760 .so \\*(\|\|/index.me
	761 .(x \\$1 \\$2
	762 .rm @U
	763 ..
	764 .de )x
	765 .tm Line \\n(c. -- unmatched .)x
	766 ..
	767 .de th
	768 .so \\*(\|\|/thesis.me
	769 .rm th
	770 ..
	771 .de +c
	772 .ep
	773 .if \\n(?o:\\n(?a \
	774 \{\
	775 . bp
	776 . rs
	777 . ep
	778 .\}
	779 .nr ?C 1
	780 .nr $f 1 1
	781 .ds * \\[1\\]\k*
	782 .if \\n(?R \
	783 . pn 1
	784 .bp
	785 .in \\n($iu
	786 .rs
	787 .ie \\n(.$ \
	788 . $c "\\$1"
	789 .el \
	790 . sp 3
	791 ..
	792 .de ++
	793 .nr _0 0
	794 .if "\\$1"C" \
	795 . nr _0 1
	796 .if "\\$1"RC" \
	797 . nr _0 11
	798 .if "\\$1"A" \
	799 . nr _0 2
	800 .if "\\$1"RA" \
	801 . nr _0 12
	802 .if "\\$1"P" \
	803 . nr _0 3
	804 .if "\\$1"B" \
	805 . nr _0 4
	806 .if "\\$1"AB" \
	807 . nr _0 5
	808 .if \\n(_0=0 \
	809 . tm Line \\n(c. -- Bad mode to .++
	810 .nr ?R 0
	811 .if \\n(_0>10 \
	812 .\{
	813 . nr ?R 1
	814 . nr _0 -10
	815 .\}
	816 .nr ch 0 1
	817 .if (\\n(_0=3):(\\n(_0=5) \
	818 . pn 1
	819 .ep
	820 .if \\n(_0=1 \
	821 \{\
	822 . af ch 1
	823 . af % 1
	824 .\}
	825 .if \\n(_0=2 \
	826 \{\
	827 . af ch A
	828 . af % 1
	829 .\}
	830 .if \\n(_0=3 \
	831 . af % i
	832 .if \\n(_0=4 \
	833 . af % 1
	834 .if \\n(_0=5 \
	835 . af % 1
	836 .if \\n(.$>1 \
	837 . he \\$2
	838 .if !\\n(_0=\\n(_M .if \\n(_M=3 \
	839 . pn 1
	840 .nr _M \\n(_0
	841 .rr _0
	842 ..
	843 .de $c
	844 .sz 12
	845 .ft B
	846 .ce 1000
	847 .if \\n(_M<3 \
	848 . nr ch +1
	849 .ie \\n(_M=1 CHAPTER\ \ \\n(ch
	850 .el .if \\n(_M=2 APPENDIX\ \ \\n(ch
	851 .if \w"\\$1" .sp 3-\\n(.L
	852 .if \w"\\$1" \\$1
	853 .if (\\n(_M<3):(\w"\\$1") \
	854 . sp 4-\\n(.L
	855 .ce 0
	856 .ft
	857 .sz
	858 .ie \\n(_M=1 \
	859 . $C Chapter \\n(ch "\\$1"
	860 .el .if \\n(_M=2 \
	861 . $C Appendix \\n(ch "\\$1"
	862 ..
	863 .de tp
	864 .hx
	865 .bp
	866 .br
	867 .rs
	868 .pn \\n%
	869 ..
	870 .de ac
	871 .rn ac @T
	872 .so \\*(\|\|/acm.me
	873 .ac "\\$1" "\\$2"
	874 .rm @T
	875 ..
	876 .de lo
	877 .so \\*(\|\|/local.me
	878 .rm lo
	879 ..
	880 .if \n(mo=1 .ds mo January
	881 .if \n(mo=2 .ds mo February
	882 .if \n(mo=3 .ds mo March
	883 .if \n(mo=4 .ds mo April
	884 .if \n(mo=5 .ds mo May
	885 .if \n(mo=6 .ds mo June
	886 .if \n(mo=7 .ds mo July
	887 .if \n(mo=8 .ds mo August
	888 .if \n(mo=9 .ds mo September
	889 .if \n(mo=10 .ds mo October
	890 .if \n(mo=11 .ds mo November
	891 .if \n(mo=12 .ds mo December
	892 .if \n(dw=1 .ds dw Sunday
	893 .if \n(dw=2 .ds dw Monday
	894 .if \n(dw=3 .ds dw Tuesday
	895 .if \n(dw=4 .ds dw Wednesday
	896 .if \n(dw=5 .ds dw Thursday
	897 .if \n(dw=6 .ds dw Friday
	898 .if \n(dw=7 .ds dw Saturday
	899 .ds td \*(mo \n(dy, 20\n(yr
	900 .if (1m<0.1i)&(\nx!=0) \
	901 . vs 9p
	902 .rr x
	903 .nr $r \n(.v/\n(.s
	904 .nr $R \n($r
	905 .nr hm 4v
	906 .nr tm 7v
	907 .nr bm 6v
	908 .nr fm 3v
	909 .nr tf 3
	910 .nr tp 10
	911 .hy 14
	912 .nr bi 4n
	913 .nr pi 5n
	914 .nr pf 1
	915 .nr pp 10
	916 .nr qi 4n
	917 .nr qp -1
	918 .nr ii 5n
	919 .nr $m 1
	920 .nr $s 4n
	921 .ds \|\| #9/tmac/me
	922 .bd S B 3
	923 .ds [ \u\x'-0.25v'
	924 .ds ] \d
	925 .ds < \d\x'0.25v'
	926 .ds > \u
	927 .ds - --
	928 .if t \
	929 \{\
	930 . ds [ \v'-0.4m'\x'-0.2m'\s-3
	931 . ds ] \s0\v'0.4m'
	932 . ds < \v'0.4m'\x'0.2m'\s-3
	933 . ds > \s0\v'-0.4m'
	934 . ds - \-
	935 . nr fi 0.3i
	936 .\}
	937 .if n \
	938 \{\
	939 . nr fi 3n
	940 .\}
	941 .nr _o \n(.o
	942 .if n .po 1i
	943 .if \n(.V=1v \
	944 . nr $T 2
	945 .if \n(.T=0 \
	946 . nr $T 1
	947 .if t \
	948 \{\
	949 . nr $T 0
	950 . po -0.5i
	951 .\}
	952 .if \nv \
	953 . po 1i
	954 .if \n($T \
	955 \{\
	956 . if \n($T=1 \
	957 . po 0
	958 . ds [ [
	959 . ds ] ]
	960 . ds < <
	961 . ds > >
	962 .\}
	963 .nr ps 0.5v
	964 .if \n($T \
	965 . nr ps 1v
	966 .if t .nr ps 0.35v
	967 .nr bs \n(ps
	968 .nr qs \n(ps
	969 .nr zs 1v
	970 .nr xs 0.2v
	971 .nr fs 0.2v
	972 .if \n($T \
	973 . nr fs 0
	974 .if n .nr es 1v
	975 .if t .nr es 0.5v
	976 .wh 0 @h
	977 .nr $l \n(.lu
	978 .nr _L \n(.lu
	979 .nr $c 1
	980 .nr $f 1 1
	981 .ds * \[1\]\k*\"
	982 .nr $d 1 1
	983 .ds # [1]\k#\"
	984 .nr _M 1
	985 .ds lq \&"\"
	986 .ds rq \&"\"
	987 .if t \
	988 . ds lq ``
	989 .if t \
	990 . ds rq ''
	991 .em @z
	992 .de sc
	993 .so \\*(\|\|/chars.me
	994 .rm sc
	995 ..
	996 .ll 6.0i
	997 .lt 6.0i