From 13f7391e4a38634221f4a63da9f58f58473e77b0 Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Sat, 15 May 2004 23:45:13 +0000
Subject: More files!

---
 tmac/complet.1127   |    5 +
 tmac/cover.1127     |    3 +
 tmac/mmn            | 2829 +++++++++++++++++++++++++++++++++++++++++++++++++++
 tmac/mmt            | 2792 ++++++++++++++++++++++++++++++++++++++++++++++++++
 tmac/name.sed       |    4 +
 tmac/sendcover      |    5 +
 tmac/strings.mm     |   61 ++
 tmac/tmac.an        |  524 ++++++++++
 tmac/tmac.anhtml    |   14 +
 tmac/tmac.antimes   |  509 +++++++++
 tmac/tmac.bits      |   44 +
 tmac/tmac.cs        | 1150 +++++++++++++++++++++
 tmac/tmac.e         |  997 ++++++++++++++++++
 tmac/tmac.jsdisp    |   63 ++
 tmac/tmac.m         |    3 +
 tmac/tmac.mcs       | 2014 ++++++++++++++++++++++++++++++++++++
 tmac/tmac.nihongo   |    1 +
 tmac/tmac.org       |    2 +
 tmac/tmac.pictures  |  154 +++
 tmac/tmac.psychrefs |   51 +
 tmac/tmac.ptx       |   17 +
 tmac/tmac.rscover   |  170 ++++
 tmac/tmac.s         | 1592 +++++++++++++++++++++++++++++
 tmac/tmac.scover    |  330 ++++++
 tmac/tmac.sdisp     |   61 ++
 tmac/tmac.skeep     |   89 ++
 tmac/tmac.soft      | 1031 +++++++++++++++++++
 tmac/tmac.spe       |  142 +++
 tmac/tmac.srefs     |  156 +++
 tmac/tmac.twb       |   96 ++
 tmac/tmac.uni       |  107 ++
 tmac/tmac.v         |  519 ++++++++++
 32 files changed, 15535 insertions(+)
 create mode 100644 tmac/complet.1127
 create mode 100644 tmac/cover.1127
 create mode 100644 tmac/mmn
 create mode 100644 tmac/mmt
 create mode 100644 tmac/name.sed
 create mode 100644 tmac/sendcover
 create mode 100644 tmac/strings.mm
 create mode 100644 tmac/tmac.an
 create mode 100644 tmac/tmac.anhtml
 create mode 100644 tmac/tmac.antimes
 create mode 100644 tmac/tmac.bits
 create mode 100644 tmac/tmac.cs
 create mode 100644 tmac/tmac.e
 create mode 100644 tmac/tmac.jsdisp
 create mode 100644 tmac/tmac.m
 create mode 100644 tmac/tmac.mcs
 create mode 100644 tmac/tmac.nihongo
 create mode 100644 tmac/tmac.org
 create mode 100644 tmac/tmac.pictures
 create mode 100644 tmac/tmac.psychrefs
 create mode 100644 tmac/tmac.ptx
 create mode 100644 tmac/tmac.rscover
 create mode 100644 tmac/tmac.s
 create mode 100644 tmac/tmac.scover
 create mode 100644 tmac/tmac.sdisp
 create mode 100644 tmac/tmac.skeep
 create mode 100644 tmac/tmac.soft
 create mode 100644 tmac/tmac.spe
 create mode 100644 tmac/tmac.srefs
 create mode 100644 tmac/tmac.twb
 create mode 100644 tmac/tmac.uni
 create mode 100644 tmac/tmac.v

(limited to 'tmac')

diff --git a/tmac/complet.1127 b/tmac/complet.1127
new file mode 100644
index 00000000..1ef4efd5
--- /dev/null
+++ b/tmac/complet.1127
@@ -0,0 +1,5 @@
+Executive Director 112
+Directors 112
+Department Heads  1127
+A. N. Netravali
+
diff --git a/tmac/cover.1127 b/tmac/cover.1127
new file mode 100644
index 00000000..73a94e3d
--- /dev/null
+++ b/tmac/cover.1127
@@ -0,0 +1,3 @@
+Arun Netravali
+Department Heads 1121, 1127  
+D. Dinella
diff --git a/tmac/mmn b/tmac/mmn
new file mode 100644
index 00000000..3fab9c68
--- /dev/null
+++ b/tmac/mmn
@@ -0,0 +1,2829 @@
+'\"		Copyright (c) 1984 AT&T
+'\"		  All Rights Reserved
+'\"#ident	"@(#)macros:mmn.src	11.45a"
+.nr:a 0 1
+.nr:b 0
+.nr:c 0
+.nr:d 0
+.nr:e 0
+.nr:f 0
+.nr:g 0 1
+.nr:h 1
+.nr:u 0
+.nr!X 0
+.nr;p 1
+.nr!0 0
+.nr!1 0
+.nr!2 0
+.nr!3 0
+.nr!N 0  
+.nr;X 0
+.nr!V 0
+.nr!Y 0
+.nr!6 0
+.nr!8 0
+.nr!9 0
+.nr!M 0
+.so#9/sys/lib/tmac/strings.mm
+.if\*(]S .ds ]S \*(}Z
+.dsBU \(bu
+.dsEM \%--
+.dsF \u\\n+(:p\d
+.dsHF 2 2 2 2 2 2 2
+.dsLf LIST OF FIGURES
+.dsLt LIST OF TABLES
+.dsLx LIST OF EXHIBITS
+.dsLe LIST OF EQUATIONS
+.dsRE 10.129
+.dsRf \u[\\n+(:R]\d
+.dsRp REFERENCES
+.dsTm \uTM\d
+.nrAu 1
+.nrCp 0
+.nrCl 2
+.nrDs 1v
+.nrEc 0 1
+.nrEq 0
+.nrEx 0 1
+.nrDe 0
+.nrDf 5
+.nrFg 0 1
+.nrFs 1
+.nrH1 0 1
+.nrH2 0 1
+.nrH3 0 1
+.nrH4 0 1
+.nrH5 0 1
+.nrH6 0 1
+.nrH7 0 1
+.nrHb 2
+.nrHi 1
+.nrHs 2
+.nrHu 2
+.nrHy 0
+.nrLe 0
+.nrLf 1
+.nrLi 6
+.nrLs 6
+.nrLt 1
+.nrLx 1
+.nrNp 0
+.nrOc 0
+.nrOf 0
+.nr!4 0 1
+.af!4 01
+.nrPi 5
+.nrPs 1
+.nrPt 0
+.nrPv 0
+.nrRf 0
+.nrSi 5
+.nrTb 0 1
+.deRD
+'fl
+.di}w
+.rd\\$1
+.br
+.di
+.ie\w\\$3 \{\
+.di}x
+.ds\\$3 "\\*(}w
+.br
+.di
+'br\}
+.if\w\\$2 .rn }w \\$2
+.rm}w }x
+..
+.deB
+.ie\\n(.$ .nr ;G \\n(.f
+.el.ft 3
+.if\\n(.$ .if !\\n(.$-2 \&\f3\\$1\fP\\$2
+.if\\n(.$-2 \{.ds }i
+.if\\n(.f2 .ds }i \^
+.ds}I \&\f3\\$1\fP\\$2\\*(}i
+'br\}
+.if\\n(.$-2 .if !\\n(.$-4 \\*(}I\f3\\$3\fP\\$4
+.if\\n(.$-4 \\*(}I\f3\\$3\fP\\$4\\*(}i\f3\\$5\fP\\$6\\$7\\$8\\$9
+.if\\n(.$ .ft \\n(;G
+..
+.deI
+.ie\\n(.$ .nr ;G \\n(.f
+.el.ft 2
+.if\\n(.$ .if !\\n(.$-1 \&\f2\\$1
+.if\\n(.$-1 \{.ds }i \^
+.if\\n(.f2 .ds }i
+.ds}I \&
+.if\w\\$1 .ds }I \&\f2\\$1\fP\\*(}i
+'br\}
+.if\\n(.$-1 .if !\\n(.$-3 \\*(}I\\$2\f2\\$3
+.if\\n(.$-3 .if !\\n(.$-5 \\*(}I\\$2\f2\\$3\fP\\*(}i\\$4\f2\\$5
+.if\\n(.$-5 \\*(}I\\$2\f2\\$3\fP\\*(}i\\$4\f2\\$5\fP\\*(}i\\$6\\$7\\$8\\$9
+.if\\n(.$ .ft \\n(;G
+..
+.deRI
+.nr;G \\n(.f
+.}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6\\$7\\$8\\$9"
+..
+.deRB
+.nr;G \\n(.f
+.}S 1 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6\\$7\\$8\\$9"
+..
+.deIR
+.nr;G \\n(.f
+.}S 2 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6\\$7\\$8\\$9"
+..
+.deIB
+.nr;G \\n(.f
+.}S 2 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6\\$7\\$8\\$9"
+..
+.deBR
+.nr;G \\n(.f
+.}S 3 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6\\$7\\$8\\$9"
+..
+.deBI
+.nr;G \\n(.f
+.}S 3 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6\\$7\\$8\\$9"
+..
+.de}S
+.ds}i
+.if\\$12 .if !\\$5 .ds }i\^
+.ie!\\$4 .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(}i" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
+.el\\$3
+.ft\\n(;G
+..
+.deSM
+.nr;S \\n(.s
+.ps
+.nr;G \\n(.s
+.ps
+.ie\\n(.$-2 \&\\$1\s-1\\$2\s+1\\$3
+.el\&\s-1\\$1\s+1\\$2
+.ps\\n(;G
+.ps\\n(;S
+..
+.deR
+.ft1
+.ul0
+..
+.deEQ
+.if\\n%>0 .br
+.ds]E \\$1
+.di>E
+..
+.deEN
+\!.br
+.br
+.di
+.rm>E
+.lt\\n(.lu
+.pc
+.if\w\\*(10\\*(}E \{\
+.ie!\\n(Eq \{\
+.ie\\n(:Y>0 \{.if \\n(:Y<\w\\*(10 .nr :Y \w\\*(10
+\!\\*(10\h'\\\\n(.lu-\w\\*(10\\*(]Eu-\\\\n(.iu'\\*(]E
+.br\}
+.el.ie \\n(:B=2 .tl \(ts\(ts\\*(10\(ts\\*(]E\(ts
+.el.ie \\n(:B=1 .tl \(ts\h'\\n(Sin'\\*(10\(ts\(ts\\*(]E\(ts
+.el.if \\n(:B=0 .tl \(ts\\*(10\(ts\(ts\\*(]E\(ts
+'br\}
+.el\{\
+.ie\\n(:Y>0 \{.if \\n(:Y<\w\\*(10 .nr :Y \w\\*(10
+\!\\\\h'-\\\\n(.iu'\\*(]E\\\\h'\\\\n(.iu-\\w\\*(]Eu'\\*(10
+.br\}
+.el.ie \\n(:B=2 .tl \(ts\\*(]E\(ts\\*(10\(ts\(ts
+.el.ie \\n(:B=1 .tl \(ts\h'\\n(Sin'\\*(]E\(ts\(ts\\*(10\(ts
+.el.if \\n(:B=0 .tl \(ts\\*(]E\(ts\(ts\\*(10\(ts
+'br\} \}
+.pc%
+.lt
+.rm]E 10
+.rr:E
+..
+.deHC
+.ev0
+.hc\\$1
+.ev
+.ev1
+.hc\\$1
+.ev
+.ev2
+.hc\\$1
+.ev
+..
+.deH
+.if\\n(:F .)D "H:missing FE"
+.if\\n(:y .)D "H:missing DE"
+.if!\\n(.$ .)D "H:missing arg"
+.nr;0 0
+.if\\$1-7 .nr ;0 1
+.if\w\\$1-\w'0'u .nr ;0 1
+.if\\n(;0 .)D "H:bad arg:\\$1"
+.LC 0
+.br
+.)R
+.nr;1 0\\$1
+.if!0\\$1 .nr ;1 \\n(Hu 
+.if!\\n(;1 .)D "H:bad arg:\\$1"
+.if2-\\n(;1 .nr H2 0 1
+.if3-\\n(;1 .nr H3 0 1
+.if4-\\n(;1 .nr H4 0 1
+.if5-\\n(;1 .nr H5 0 1
+.if6-\\n(;1 .nr H6 0 1
+.if7-\\n(;1 .nr H7 0 1
+.if2-\\n(;1 \{.if \\n(:S .)w
+.if\\n(:C .nr :p 0 1 \}
+.SP
+.nr:u 0
+.if\\n(;1-1 .nr H\\n(;1 +1 
+.if!\\n(;1-1 \{.nr :u 1 
+.SP 2 \}
+.if\\n(;1-1 .if (\\n(Ej+1-\\n(;1)&(\\n(;L) \{
+.bp
+.nr;L 0\}
+.if\\n(;1-1 .if (\\n(Ej+1-\\n(;1)&(\\n(nl-\\n(:J) \{.if \\n(;C .nr ;C 2
+.bp\}
+.if!\\n(;1-1 \{.if (\\n(Ej+\\n(:S)&(\\n(nl-\\n(:J) \{.if \\n(;C .nr ;C 2
+.bp\}
+.if!\\n(:u-1 .nr H1 +1 
+.if(\\n(:u=1)&(\\n(:S=1) .nr P 1 \}
+.nr:u 0
+.ds}0 \\n(H1.
+.if0\\$1-1 .as }0 \\n(H2
+.if0\\$1-2 .as }0 .\\n(H3
+.if0\\$1-3 .as }0 .\\n(H4
+.if0\\$1-4 .as }0 .\\n(H5
+.if0\\$1-5 .as }0 .\\n(H6
+.if0\\$1-6 .as }0 .\\n(H7
+.if\\n(Ht \{.)I \\n(;1 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6 \\n(H7
+.ds}0 \\*(}3.
+'br\}
+.as}0 \ \ 
+.if!0\\$1 .ds }0 
+.nr;0 0
+.if!\\n(;1-\\n(Hb .nr ;0 1
+.if!\\n(;1-\\n(Hs .nr ;0 2
+.ds}2
+.if!\\n(;0 .if \w\\$2 .ds }2 "  
+.nr;3 2v
+.HX \\n(;1 0\\$1 "\\$2\\$3"
+.if\\$1<3 .nr !5 0 1
+.af!5 01
+.if(\\$1=1)&(\\n(Np=1) .nr !4 0
+.di>A
+\&\\*(}0\\$2\\$3\\*(}2
+.br
+.di
+.rm>A
+.if\\n(;0-1 .nr ;3 +1v
+.ne\\n(;3u+\\n(dnu+\\n(;0v
+.HY \\n(;1 0\\$1 "\\$2\\$3"
+.if\\n(;0 .na
+.)I \\n(;1 \\*(HF
+.nr;3 1
+.nr;3 \\*(}3-1 
+.nr;2 \w\\*(}0
+.if\\n(;0 \{.in+\\n(;2u
+.ti-\\n(;2u \}
+.nr;2 \\n(.i
+.if!\\n(;1-\\n(Hc .if \\n(;0 .ce
+\\*(}0\&\c
+.ds}1 cu
+.if\\nU .ds }1 ul
+.if\w\\*(}0\\$2-\\n(.l .ds }1 ul
+.if\w\\*(}0\\$2u>166m .ds }1 ul
+.if!\\n(;3 .ds }1
+.nr;s \\n(.f
+.if\\n(;3=2 .ds }1 "ft 3
+'\\*(}1
+.ie\\n(;0 \{\
+\&\\$2\\$3
+'in
+'br\}
+.el\{\&\\$2\&\c
+\&\\$3\\*(}2\&\c
+'br\}
+.if\\n(;3=2 .ft \\n(;s
+.if(\\n(;1<=\\n(Cl)&(\w\\$2>0) .)E \\$1 "\\$2"
+'na
+.if\\n(:h 'ad
+.if\\n(;0 .br
+.if\\n(;0-1 .SP
+.if\\n(;0*\\n(Hi*\\n(Pt .if !\\n(Hi-1+\\n(Pt-1 .ti+\\n(Pin
+.if0\\$1*\\n(;0 .if \\n(Hi-1 .ti\\n(;2u
+.nr:I 1
+.nr!D \\n(nl
+.nr!Z \\n(.k
+.if(0\\$1=1)&(\\nN=5) \{\
+.nrFg 0
+.nrTb 0
+.nrEc 0
+.nrEx 0 \}
+.HZ \\n(;1 0\\$1 "\\$2\\$3"
+.ft1
+..
+.deHM
+.afH1 \\$1 1
+.afH2 \\$2 1
+.afH3 \\$3 1
+.afH4 \\$4 1
+.afH5 \\$5 1
+.afH6 \\$6 1
+.afH7 \\$7 1
+..
+.deHU
+.if!\\n(.$ .)D "HU:missing arg"
+.H 0 "\\$1" "\\$2"
+..
+.deLB
+.if4-\\n(.$ .)D "LB:missing arg(s)"
+.)L 0\\$1n 0\\$2n 0\\$3n "\\$4" "\\$5" "\\$6" "\\$7"
+..
+.de)L
+.if\\n(:g>5 .)D "LB:too many nested lists"
+.if\\n(:g .)A 
+.if!\\n+(:g-1 .ds ]b \\n(.i
+.nr:b \\n(.iu+0\\$1u 
+.nr:c \\n(.iu+0\\$2u 
+.nr:d 0\\$3 
+.nr:e 0\\$4 
+.nr:f 0\\$6 
+.if!\w\\$6 .nr :f 1
+.ds]g \\$5
+.if!\w\\$5 \{.ds ]g \&
+.if\\n(:e .ds ]g 1
+'br\}
+.nr:a 0 1
+.if0\\$4 .af :a \\$5 1
+.if(\\n(:g<=\\n(Ls)&(0\\$7) .SP
+.fi
+.in\\n(:bu
+.ti\\n(:bu
+..
+.deLC
+.if\\n(:g-0\\$1 .)B
+.if\\n(:g-0\\$1 .LC 0\\$1
+..
+.deLE
+.if(\\n(:I>1)&(\\n(nl-\\n(:J) .nr :I 0
+.if\\n(:I<2 .nr :I 0
+.ie\\n(:g<1 .)D "LE:mismatched"
+.el.)B
+.if(\\n(:g<=\\n(Ls)&(\\n(.$>0) .SP
+.nr:J \\n(nl
+..
+.deLI 
+.if!\\n(:g .)D "LI:no lists active" 
+.if(\\n(:g<=\\n(Ls)&(\\n(:f>0) .SP
+.in\\n(:bu
+.if\\n(:F 'in 0
+.if(\\n(:f>0)&(\\n(:D<1) .ne2v
+.ds}0 \\*(]g
+.if\\n(:e .ds }0 \\n+(:a.
+.if\\n(:e-1 .ds }0 \\n(:a)
+.if\\n(:e-2 .ds }0 (\\n(:a)
+.if\\n(:e-3 .ds }0 [\\n(:a]
+.if\\n(:e-4 .ds }0 <\\n(:a>
+.if\\n(:e-5 .ds }0 {\\n(:a}
+.if\\n(.$-1 .ds }0 \\$1\ \\*(}0
+.if\\n(.$=1 .ds }0 \\$1
+.nr;0 \w\\*(}0
+.nr;1 \\n(:c
+.if\\n(:d .nr ;1 \\n(:bu-\\n(:du-\\n(;0u
+.if!\\n(;1 .nr ;1 0
+.nr;0 \\n(:bu-\\n(;1u-\\n(;0u
+.ti\\n(;1u
+.if!\\n(;0 .nr ;0 \w u
+.if\w\\*(}0 \&\\*(}0\h\\n(;0u\&\c
+..
+.deAL
+.nr!D 0
+.if!\\$1 .if !\\$11 .if !\\$1a .if !\\$1A .if !\\$1I .if !\\$1i .)D "AL:bad arg:\\$1"
+.if\\n(.$<3 \{.ie \w\\$2=0 .)L \\n(Lin 0 2n 1 "\\$1" 
+.el.LB 0\\$2 0 2 1 "\\$1" \}
+.if\\n(.$>2 \{.ie \w\\$2=0 .)L \\n(Lin 0 2n 1 "\\$1" 0 1
+.el.LB 0\\$2 0 2 1 "\\$1" 0 1 \} 
+..
+.deBL
+.nr;0 \\n(Pi
+.if(\\n(.$>0)&(\w\\$1>0) .nr ;0 0\\$1
+.ie\\n(.$<2 .LB \\n(;0 0 1 0 \\*(BU
+.el.LB \\n(;0 0 1 0 \\*(BU 0 1
+.rr;0
+..
+.deDL
+.nr;0 \\n(Pi
+.if(\\n(.$>0)&(\w\\$1>0) .nr ;0 0\\$1
+.ie\\n(.$<2 .LB \\n(;0 0 1 0 \(em
+.el.LB \\n(;0 0 1 0 \(em 0 1
+.rr;0
+..
+.deML
+.if\\n(.$<1 .)D "ML:missing arg"
+.nr;0 \w\\$1u/3u/\\n(.su+1u
+.ie\\n(.$<2 .LB \\n(;0 0 1 0 "\\$1"
+.el.if \\n(.$=2 .LB 0\\$2 0 1 0 "\\$1"
+.if\\n(.$>2 \{.if !\w\\$2 .LB \\n(;0 0 1 0 "\\$1" 0 1
+.if\w\\$2 .LB 0\\$2 0 1 0 "\\$1" 0 1 \}
+..
+.deRL
+.nr;0 6
+.if(\\n(.$>0)&(\w\\$1>0).nr ;0 0\\$1
+.ie\\n(.$<2 .LB \\n(;0 0 2 4 
+.el.LB \\n(;0 0 2 4 1 0 1
+.rr;0
+..
+.deVL
+.if\\n(.$<1 .)D "VL:missing arg"
+.ie\\n(.$<3 .LB 0\\$1 0\\$2 0 0
+.el.LB 0\\$1 0\\$2 0 0 \& 0 1
+..
+.deP
+.if!((\\n(!D=\\n(nl)&(\\n(!Z=\\n(.k)&(\\n(Np=0)) \{\
+.br
+.nr;1 \\n(:J
+.nr;2 \\n(nl
+.SP \\n(Psu*1
+.if!\\n(:D .ne 2
+.ie!\\n(;1-\\n(:J .nr ;2 \\n(;2-\\n(:J
+.el.nr ;2 \\n(nl-\\n(:J
+.nr:J \\n(;2
+.if\\n(.$>0&(0\\$1) .ti+\\n(Pin
+.if\\n(.$=0 \{\
+.if\\n(Pt=1 .ti+\\n(Pin
+.if\\n(Pt>1&(\\n(:I) .ti+\\n(Pin
+.if\\n(Pt>1&(\\n(:I=0)&(\\n(:J>0) .ti+\\n(Pin \}
+.if\\n(Np \{\
+\\n(H1.\\n+(!4\ \ \c
+'br\}
+.nr:I 1 \}
+.nr:u 0
+..
+.denP
+.P 0
+.de)p
+'ti6n
+.de)p
+'ti0
+.rm)p
+.wh\\n(.du+\\n(.L+\\n(.L
+\\\\..
+.ch)p \\n(.du+\\n(.L+\\n(.L
+\\..
+.wh\\n(.du+\\n(.L )p
+\\n(H2.\\n+(!5\h'|6n'\\c
+..
+.deS
+.if!\\n(:Q .nr :Q \\nS
+.if!\\n(.$ .nr ;0 \\n(:Q
+.if\\n(.$ .if !\w\\$1 \{\
+.nr;J 2
+.nr;0 \\n(:P \}
+.if\w\\$1 \{\
+.ie\\$1D \{\
+.nr;J 1
+.nr;0 \\nS \}
+.el\{\
+.ie\\$1C \{\
+.nr;J 2
+.nr;0 \\n(:P \}
+.el\{\
+.ie\\$1P \{\
+.nr;J 3
+.nr;0 \\n(:Q \}
+.el\{.if !\\n(;J \{\
+.nr;0 \\n(:P
+.nr;0 \\$1 \}\}\}\}\}
+.if0\\$1-99 .nr ;0 \\nS
+.if!\\n(;0 .)D "S:bad arg \\$1"
+.nr:Q \\n(:P
+.nr:P \\n(;0
+.ps\\n(:Pp
+.nr;J 0
+.if!\\n(!Q .nr !Q \\nS+2
+.if!\\n(.$-1 \{\
+.ie\\n(.$ \{\
+.nr;K 1
+.nr;7 \\n(.s+2 \}
+.el\{\
+.nr;K 3
+.nr;7 \\n(!Q \}\}
+.if\\n(.$-1 .if !\w\\$2 \{\
+.nr;K 2
+.nr;7 \\n(!P \}
+.if\w\\$2 \{\
+.ie\\$2D \{\
+.nr;K 1
+.nr;7 \\n(.s+2 \}
+.el\{\
+.ie\\$2C \{\
+.nr;K 2
+.nr;7 \\n(!P \}
+.el\{\
+.ie\\$2P \{\
+.nr;K 3
+.nr;7 \\n(!Q \}
+.el\{.if !\\n(;K \{\
+.nr;7 \\n(!P
+.nr;7 \\$2 \}\}\}\}\}
+.if0\\$2-99 .nr ;7 \\n(.s+2
+.if!\\n(;7 .)D "S:bad arg \\$2"
+.nr!Q \\n(!P
+.nr!P \\n(;7
+.vs\\n(!Pp
+.nr;K 0
+..
+.rnpn ]N
+.depn
+.nr:Z 1
+.]N \\$1
+..
+.deSA
+.if\\n(.$ \{.if \\$1-1 .)D "SA:bad arg:\\$1"
+.nr:h 0\\$1 \}
+'na
+.if\\n(:h 'ad
+..
+.deSK
+.br
+.nr;d 1
+.bp
+.nr;9 0\\$1-1
+.if\\n(;9+1 .rs
+.if\\n(;9+1 .SK \\n(;9
+.rr;9
+.nr;d 0
+..
+.deOP
+.SK
+.if!\\nP%2 .SK 1
+..
+.deSP
+.br
+.ie\\n(:D .)S \\$1
+.el.ie !'\\n(.z'' .)S \\$1
+.el\{.rr ;D ;E
+.nr;4 1v
+.if\\n(.$ .nr ;4 \\$1v
+.if!(\\n(nl=\\n(:N) .nr :A 0
+.nr;4 -\\n(:Au
+.if\\n(;4 \{.sp\\n(;4u
+.nr:A +\\n(;4u \}
+.nr:N \\n(nl \}
+..
+.de)S
+.br
+.if!'\\n(.z'\\*(}D' .rr ;D ;E
+.nr;4 1v
+.if\\n(.$ .nr ;4 \\$1v
+.if!(\\n(.d=\\n(;D) .nr ;E 0
+.nr;4 -\\n(;Eu
+.if\\n(;4 \{.sp\\n(;4u
+.nr;E +\\n(;4u \}
+.nr;D \\n(.d
+.ds}D \\n(.z
+..
+.deTS
+.if(\\n(:D=0)&(\\n(Ds>0) .SP
+.if\\$1H \{.br
+'ne5v     
+.wh\\n(nlu+\\n(.tu-2v #f
+.di>t
+.nr;A 1 \}
+..
+.deTH
+.if\\n(.du>0.5v \{.nr T. 0
+.T# 0 \}
+.br
+.di
+.nr;I \\n(.i
+.nr;B 1
+.if\\n(;T .if !\\$1N .nr ;T 0
+.in0
+.mk#a
+.mk#b
+.mk#c
+.mk#d
+.mk#e
+.mk#f
+.if\\n(;T=0 \{\
+.>t
+.nr;T 1	\}
+.in\\n(;Iu
+.mk#T
+..
+.deTE
+.if(\\n(:D=0)&(\\n(Ds>0) .SP
+.if(\\n(;A>0)&(\\n(;B=0) \{.br
+.di
+.)D "TE: used TS H but no TH" \}
+.rr;A ;B ;h ;D ;E
+.rmT#    
+.rr#a
+.rma+ b+ c+ d+ e+ f+ g+ h+ i+ j+ k+ l+ n+ m+
+.rr32 33 34 35 36 37 38 40 79 80 81 82
+.rra| b| c| d| e| f| g| h| i| j| k| l| m|
+.rra- b- c- d- e- f- g- h- i- j- k- l- m-
+..
+.de)A
+.af:a 1
+.ds]a \\n(:a \\*(]a
+.ds]b \\n(:b \\*(]b
+.ds]c \\n(:c \\*(]c
+.ds]d \\n(:d \\*(]d
+.ds]e \\n(:e \\*(]e
+.ds]f \\n(:f \\*(]f
+.ds]h \\*(]g \\*(]h
+..
+.de)B
+.br
+.nr:g -1
+.)C nr :a ]a \\*(]a
+.)C nr :b ]b \\*(]b
+'in\\n(:bu
+'ti\\n(:bu
+.)C nr :c ]c \\*(]c
+.)C nr :d ]d \\*(]d
+.)C nr :e ]e \\*(]e
+.)C nr :f ]f \\*(]f
+.)C ds ]g ]h \\*(]h
+.af:a 1
+.if\\n(:e .af :a \\*(]g
+..
+.de)C
+.\\$1 \\$2 \\$4
+.ds\\$3 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.de)D
+'di
+'di
+.nr:D 0
+.fl
+********************
+.br
+ERROR:(\\n(.F)input line \\n(.c:\\$1
+.br
+********************
+.tm********************
+.tmERROR:(\\n(.F)input line \\n(.c:\\$1
+.tm********************
+.if!\\nD .ab \&
+..
+.deEC
+.nr!2 1
+.ie\\nN=5 .)F Equation 2 \\n+(Ec "\\$1" "\\n(H1-" 0
+.el.)F Equation 2 \\n+(Ec "\\$1" "\\$2" 0\\$3
+..
+.deEX
+.nr!3 1
+.ie\\nN=5 .)F Exhibit 3 \\n+(Ex "\\$1" "\\n(H1-" 0
+.el.)F Exhibit 3 \\n+(Ex "\\$1" "\\$2" 0\\$3
+..
+.deFG
+.nr!0 1
+.ie\\nN=5 .)F Figure 0 \\n+(Fg "\\$1" "\\n(H1-" 0
+.el.)F Figure 0 \\n+(Fg "\\$1" "\\$2" 0\\$3
+..
+.deTB
+.nr!1 1
+.ie\\nN=5 .)F TABLE 1 \\n+(Tb "\\$1" "\\n(H1-" 0
+.el.)F TABLE 1 \\n+(Tb "\\$1" "\\$2" 0\\$3
+..
+.de)F
+.nr;0 \w\\$5
+.nr;1 0
+.nr;1 0\\$6
+.ds}0 \\$3
+.if\\n(;0 .ds }0 \\$5\\$3
+.if\\n(;1*\\n(;0 .ds }0 \\$3\\$5
+.if\\n(;1-1*\\n(;0 .ds }0 \\$5
+.ds}0 \\$1\ \\*(}0
+.ie(\w\\$4)&(\\n(Of=0) .as }0 .\ \ 
+.el.if \\n(Of .as }0 " -\ 
+.nr;0 \w\\*(}0
+.ll\\nWu
+.nr;1 \\n(.lu-\\n(;0u-\w\\$4u+1u
+.if(\\n(:B<2)&(\\n(;1>0)  \{\
+.in0 
+.ce\}
+.if!\\n(;1 \{\
+.if!\\n(.u  .nr ;U 1  
+.if\\n(:B=2 .ce 0
+.fi
+.in\\n(;0u
+.ti-\\n(;0u \}
+\f3\\*(}0\fP\\$4
+.ll
+.in
+.if\\n(:B=2 .ce 9999
+.if\\n(;U \{\
+.nf
+.nr;U 0 \}
+.if(\\n(Lf=1&(\\$2=0)):(\\n(Lt=1&(\\$2=1)):\
+(\\n(Le=1&(\\$2=2)):(\\n(Lx=1&(\\$2=3)) \{\
+.ds}3
+.if\\n(:S .ds }3 \\n(H1
+.ie\\n(:y=1 \{\
+.ie\\n(:B=3 \{\
+\!\\!.am >L
+\!\\!.if \\$2=\\\\\\\\\\\\\\\\$1 .)T 1 1 "\\*(}0" "\\$4" \\\\\\\\nP \\*(}3
+\!\\!\\\\..
+'br\}
+.el\{\
+\!.am >L 
+\!.if \\$2=\\\\\\\\$1 .)T 1 1 "\\*(}0" "\\$4" \\\\nP \\*(}3
+\!\\\\..
+'br\} \}
+.el\{\
+.am>L
+.if\\$2=\\\\$1 .)T 1 1 "\\*(}0" "\\$4" \\nP \\*(}3
+\\.. \} \}
+..
+.de)I
+.nr;3 0\\$1+1
+.ds}3 \\$\\n(;3
+..
+.de)E
+.ds}3
+.if\\n(:S .ds }3 \\n(H1
+.am>C
+.)T \\n(;1 \\$1 "\\*(}0" "\\$2" \\nP \\*(}3
+\\..
+..
+.de)T
+.nr;0 \w\\$5
+.if\w\\$6 .nr ;0 +\w'-'u+\w\\$6u
+.if\\n(;0-\\n(:a .nr :a \\n(;0
+.)I \\$1 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6 \\n(H7
+.if\w\\$3-\\*(}3 .nr H\\$1 \w\\$3
+..
+.de)U
+.if!0\\$1-\\n(:b .sp\\n(:c
+.)I \\$1 \\*(}0
+.nr;0 \\*(}3
+.)I \\$1 \\*(Ci
+.nr;1 \\*(}3
+.)I \\$1 \\*(}2
+.nr;2 \\*(}3
+.ds}3 \\$5
+.if\\n(.$-5 .ds }3 \\$6\-\\$5
+.nr:e \\n(:au-\w\\*(}3u+2n
+.ds}3 \h\\n(:eu\\*(}3
+.ds}y
+.nr;0 -\w\\$3
+.if\\n(;0 .as }y \h\\n(;0u
+.if2-0\\$1 .as }y "\\$3
+.if0\\$1-1 .ds }y "\\$3\\*(}y
+.if!0\\$2 .ds }y
+.ll\\nWu-\\n(:au-3n
+.in\\n(;2u
+.if!0\\$2 .in\\n(;1u
+.ti\\n(;1u
+.fi
+.di>A
+.if!0\\$1-\\n(:d .if !\\n(:f \\*(}y\\$4\\a\\*(}3
+.if!0\\$1-\\n(:d .if \\n(:f \\*(}y\\$4\\t\\*(}3
+.if0\\$1-\\n(:d \\*(}y\\$4\\*(}3
+.br
+\!.br
+.di
+.br
+.ll\\nWu
+.ne\\n(dnu
+.ta\\nWu-\\n(:au-2n
+.nf
+.in0
+.na
+.>A
+..
+.de)Z
+.in0
+.ie!\\n(Cp \{\
+.SK
+.rs
+.sp3v
+.ce1 \}
+.el.sp 2v
+\\$1
+.sp1v
+.nr:a 0
+.nrH1 0
+.afH1 1
+.>L \\$2
+.rn)T )V
+.rn)U )T
+.ds}0 \\n(H1
+.dsCi 0
+.ds}2 \\n(H1
+.>L \\$2
+.rn)T )U
+.rn)V )T
+..
+.deTC
+.LC 0
+.if\\n(:F .FE
+.if\\n(:y .DE 
+.if\\n(!N=1 .NE 
+.)N
+.)w
+.if\\n(;R .RP 0 1 
+.)R
+.rm)E )F DE DF DS FD FE FG FS H HU TB
+.if!\\nP-1 .if \\nN .if !\\nN-1 .rn }t }b
+.if!\\nP-1 .if \\nN .if !\\nN-1 .nr N 0 
+.rm}t }e }o
+.rs
+.if\\n(;C .nr ;C 2
+.bp
+.ie\\n(Oc .nr P 1 
+.el\{\
+.rm}f }p
+.nr;g 1 1
+.af;g i
+.ds}b ''- \\\\n(;g -''
+.am)b
+.nr;g +1
+\\..
+'br\}
+.nrN 0
+.rs
+.if!\\n(.$-4 .TX
+.if\\n(;C .ll \\n(:Lu
+.if!\\n(.$-4 .TY
+.ce99
+.if\\n(.$-4 \\$5
+.if\\n(.$-5 \\$6
+.if\\n(.$-6 \\$7
+.if\\n(.$-7 \\$8
+.if\\n(.$-8 \\$9
+.if\\n(.$-4 .sp
+.ce0
+.sp
+.if\\n(;C .ll \\n(:lu
+.nr;m \\n(.hu+2v
+.nr:b 1
+.if\w\\$1 .nr :b 0\\$1
+.nr:c 1
+.if\w\\$2 .nr :c 0\\$2
+.nr:d 2
+.if\w\\$3 .nr :d 0\\$3
+.nr:f 0
+.if\w\\$4 .nr :f 0\\$4
+.nrH1 0
+.afH1 1
+.nrH2 0
+.afH2 1
+.nrH3 0
+.afH3 1
+.nrH4 0
+.afH4 1
+.nrH5 0
+.afH5 1
+.nrH6 0
+.afH6 1
+.nrH7 0
+.afH7 1
+.nr:a 0
+.>C
+.rn)T )V
+.rn)U )T
+.ds}0 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6 \\n(H7
+.nrH2 +\\n(H1
+.nrH3 +\\n(H2
+.nrH4 +\\n(H3
+.nrH5 +\\n(H4
+.nrH6 +\\n(H5
+.nrH7 +\\n(H6
+.if!\w'\\*(Ci' .ds Ci 0 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6
+.ds}2 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6 \\n(H7
+.>C
+.rm>C HX
+.rn)T )U
+.rn)V )T
+.if(\\n(Lf=1)&(\\n(!0>0) .)Z "\\*(Lf" 0
+.if(\\n(Lt=1)&(\\n(!1>0) .)Z "\\*(Lt" 1
+.if(\\n(Lx=1)&(\\n(!3>0) .)Z "\\*(Lx" 3
+.if(\\n(Le=1)&(\\n(!2>0) .)Z "\\*(Le" 2
+.)R
+..
+.deTY
+.ce
+CONTENTS
+..
+.deTL
+.rmWA WE IA IE LO LT
+.nr:D 2 
+.nr;c 2
+.nr;z 0 
+.nr:V 0 
+.nr:1 \\n(.i 
+.if\\nC=4 .ls 1
+.if\\nC=5 .ls 1
+.ds>1 \\$1
+.ds>2 \\$2
+'nr;y 1
+.ie\\nA=1 'll \\nWu-24n
+.el'll \\nWu-34n
+'nh
+'na
+'fi
+'if\\nE 'ft 3
+'di>T
+..
+.deAU
+.nr:D 1 
+.nr;c 1
+'nf
+.if\\n(;y .>9 
+.rmTL
+.ll\\nWu
+.da>z
+'if\\nE 'ft 3
+.if(\\n(;z>0)&(\\n(Au>0) .sp 
+\\$1
+.if\\n(Au>0 \{.if \w\\$3 .ie \\$3HP HP\ \&\c
+.el\\$3\ \&\c
+.if\w\\$4 \\$4
+.if\w\\$3 .if !\w\\$4 \&
+.if\w\\$6 \\$6\ \&\c
+.if\w\\$5 x\\$5
+.if\w\\$6 .if !\w\\$5 \&
+'br\}
+.if\\n(.$-6 \\$7
+.if\\n(.$-7 \\$8
+.if\\n(.$-8 \\$9
+.br
+'if\\nE 'ft
+.di
+.nr;z +\\n(dn
+.nrdn 0
+'in\\n(:1u
+.if!\\n(:V .ds }v \\$3-\\$4-\\$2
+.if\\n(:V .as }v /\\$2
+.da>v
+'if\\nE 'ft 3
+.sp3
+\\$1
+.br
+'if\\nE 'ft
+.di
+.nr:V +\\n(dnu
+.nrdn 0
+.nr:H 0
+.ds}L \\$3
+.if'\\$3'AL' .ds }L }B
+.if'\\$3'ALC' .ds }L }B
+.if'\\$3'CP' .ds }L PY
+.if'\\$3'FJ' .ds }L HO
+.if'\\$3'HK' .ds }L HL
+.if'\\$3'HOH' .ds }L HO
+.if'\\$3'HOH' .nr :H 1
+.if'\\$3'HP' .ds }L }A
+.if'\\$3'HR' .ds }L RR
+.if'\\$3'INH' .ds }L }I
+.if'\\$3'IW' .ds }L IH
+.if'\\$3'IX' .ds }L IH
+.if'\\$3'LC' .ds }L WV
+.if'\\$3'LZ' .ds }L }K
+.if'\\$3'MO' .ds }L }M
+.if'\\$3'MT' .ds }L RR
+.if'\\$3'PK' .ds }L }P
+.if'\\$3'RD' .ds }L }E
+.if'\\$3'RR' .ds }L PY
+.if'\\$3'SF' .ds }L CP
+.if'\\$3'SZ' .ds }L }F
+.if'\\$3'WI' .ds }L }W
+.am>4
+.sp1
+\\$1
+.if\\\\n(:2 .sp
+.if\\\\n(:2 \\*(}Z
+.if\\\\n(:2 .if \\n(:H \\\\*(}H
+.if\\\\n(:2 \\\\*(\\*(}L
+.ds}z \\\\*(\\*(}L
+\\..
+..
+.de>9
+.br
+.di
+.di}z
+.>T
+.if(\w'\\*(>1')&(\w'\\*(>2') \{\
+.ie'\\*(>1'\\*(>2' \{\
+.br
+Work Project No. and Filing Case \\*(>1
+.br\}
+.el\{\
+.br
+Work Project No. \\*(>1
+.br
+File Case \\*(>2
+.br\} \}
+.if(\w'\\*(>1'=0):(\w'\\*(>2'=0) \{\
+.ie\w'\\*(>1' \{\
+- Work\ Project\ No.\ \\*(>1
+.br\}
+.el.ie \w'\\*(>2' \{\
+- Case\ \\*(>2
+.br\}
+.el.br \}
+.di
+'if\\nE 'ft 1
+.nr:9 \\n(dn 
+.nrdn 0
+.nr;y 0
+'nf
+.rm>9
+..
+.deAT
+.da>v
+'if\\nE 'ft 3
+.if\\n(.$-0 \\$1
+.if\\n(.$-1 \\$2
+.if\\n(.$-2 \\$3
+.if\\n(.$-3 \\$4
+.if\\n(.$-4 \\$5
+.if\\n(.$-5 \\$6
+.if\\n(.$-6 \\$7
+.if\\n(.$-7 \\$8
+.if\\n(.$-8 \\$9
+.br
+'if\\nE 'ft
+.di
+.nr:V +\\n(dnu
+.nrdn 0
+..
+.deOK
+.nr:D 1 
+.nr;c 1
+.de>7
+.if\\n(.$-0 \\$1
+.if\\n(.$-1 \\$2
+.if\\n(.$-2 \\$3
+.if\\n(.$-3 \\$4
+.if\\n(.$-4 \\$5
+.if\\n(.$-5 \\$6
+.if\\n(.$-6 \\$7
+.if\\n(.$-7 \\$8
+.if\\n(.$-8 \\$9
+\\..
+.rmOK
+..
+.deTM
+.nr:D 1 
+.nr;c 1
+.de>8
+.if\\nE .ft 3
+.if\\n(.$-0 \\$1
+.if\\n(.$-1 \\$2
+.if\\n(.$-2 \\$3
+.if\\n(.$-3 \\$4
+.if\\n(.$-4 \\$5
+.if\\n(.$-5 \\$6
+.if\\n(.$-6 \\$7
+.if\\n(.$-7 \\$8
+.if\\n(.$-8 \\$9
+.if\\nE .ft
+\\..
+.nr;x \\n(.$+1 
+.rmTM
+..
+.deAS
+.nr:D 3 
+.nr;c 3
+.if\\n(;y .>9
+.rmTL
+.nr:t 0\\$1 
+.if\\n(:t=1 .nr ;5 \\n(:s 
+.nr:3 0
+.if\\n(.$-1 .nr :3 0\\$2n 
+.nr;N \\n(:1  
+'in\\n(:1u
+'fi
+.SA
+'nh
+'if\\n(Hy 'hy 14
+.di>3
+.ll0u-2u*\\n(:3u+\\nWu
+.ce
+.ul
+.ie'\\$3'ER' ERRATA
+.el.ie '\\$3'AD' ADDENDUM
+.elABSTRACT
+.SP 3
+.ns
+.nr:I 1
+.rmAS
+..
+.deAE
+.br
+.di
+'nf
+'nh
+.nr;3 \\n(dn
+.nr;6 \\n(;3 
+.ll\\nWu
+'in\\n(:1u
+.if\\n(:t=1 .nr :s \\n(;5 
+.rmAE
+..
+.deMT
+.if\\n(!N=1 .NE
+.nr:D 0 
+.nr;c 0
+.if!\\n(;y 'nf
+.if\\n(;y .>9 
+.rmTL TM OK AS AE AF AU
+.ll\\nWu
+.rnTP >Y 
+.in\\n(:1u
+.rn>Y TP
+.rn)K >Y
+.ie\\nE .nr :W \\nWu-\w'\f3September 33, 1999\fP'+3n
+.el.nr :W \\nWu-\w'September 33, 1999'+3n
+.ie\w\\$1u<2n .if !0\\$1=4 .if \\n(.$=2 .ds ]n \\$2
+.el.if \\n(.$=2 .ds ]n \\$2
+.if!\\n(.$ .>6
+.if\\n(.$ .if \w\\$1u-\w'0'u .>6 "\\$1"
+.if\\n(.$ .nr ;y 0\\$1
+.if\\n(.$ .if !\\n(;y .>6 ""
+.if\\n(.$ .if \\n(;y-4 .>x 
+.if\\n(.$ .if \\n(;y-3 .>5 "\\$2"
+.if\\n(.$ .if \\n(;y-2 .>6 "ADMINISTRATIVE MEMORANDUM"
+.if\\n(.$ .if \\n(;y-1 .>6 "INTERNAL MEMORANDUM"
+.if\\n(.$ .if \\n(;y .>6 "TECHNICAL MEMORANDUM"
+.)R
+.ta.8i 1.6i 2.4i 3.2i 4i 4.8i 5.6i 6.4i 7.2i 8i 8.8i 9.6i
+.ns
+.if\\nC=4 .ls 2
+.if\\nC=5 .ls 2
+.>Y
+.]N \\nP+1
+.nr;M 1 
+.rm>Y MT
+..
+.de>x
+.rm>6 >5 )Y )X
+.ta\\n(:Wu-6n
+.br
+.rs
+.sp1
+.ie\\n(Pv \{\
+.ce
+.ul
+PRIVATE
+.sp\}
+.el.sp 2
+.ie\\nA=2 \{\
+\t\(bs
+.sp.5i
+.if\w\\*(}Z \t\s16\f3\\*(}Z\fP\s0
+'br\}
+.el\{\
+.sp|4v
+.}z
+.br\}
+.rs
+.mk:2
+.sp|12v
+.in\\n(:Wu
+.ie\\nE \{\
+\f3\\*(DT\fP
+'br\}
+.el\{\
+\\*(DT
+'br\}
+.if\\n(:2u-\\n(nlu .sp |\\n(:2u
+.sp2v
+.rm>x
+..
+.de>6 
+.rm>5 >x )Y
+.di]t  
+.if\\n(;n \{\
+.nr;W \\nWu
+.nrW 6.5i
+.ll\\nWu
+.lt\\nWu \}
+.ta\\n(:Wu-6n
+.br
+.rs
+.sp1
+.ie\\n(Pv \{\
+.ce
+.ul
+PRIVATE
+.sp\}
+.el.sp 2
+.if\\nA=2 \{\
+\t\(bs
+.sp.5i \}
+.ie\w\\*(}Z \t\s16\f3\\*(}Z\fP\s0
+.el.sp2
+.sp3
+.if\\n(;n .sp
+.mk:2
+.if!\\n(;n \{\s8subject:\s0
+.rt\\n(:2u
+.in\w'\s8subject:\s0'u+1n \}
+.}z
+.br
+.rt\\n(:2u
+.in\\n(:Wu
+.if\\n(;n .in 0n-8n*\\nWu/35n+\\nWu-100u
+.if!\\n(;n \{.ps 8
+.ti-6n
+date:
+.ps
+.rt\\n(:2u \}
+.ie\\nE \{\
+\f3\\*(DT\fP
+'br\}
+.el\{\
+\\*(DT
+'br\}
+.sp
+.if!\\n(;n \{.mk :2
+.ps8
+.ti-6n
+from:
+.ps
+.rt\\n(:2u \}
+.if\\nE .ft 3
+.>z
+.if\\nE .ft
+.in\\n(:1u
+.in\\n(:1u
+.if\\n(;x \{.sp
+.mk:2
+.in\\n(:Wu
+.if\\n(;n .in 0n-8n*\\nWu/35n+\\nWu-100u
+.>8
+.in\\n(:1u \}
+.br
+.if\\n(:9u-\\n(;zu-2v-\\n(;xv .sp \\n(:9u-\\n(;zu-2v-\\n(;xv
+.sp3
+.di
+.rs
+.ie\\n(;3 \{\
+.nr!I \\n(dn 
+.di]B
+.}C
+.br
+.di
+.rm]B
+.nr;H \\n(dn
+.ie\\n(:t=2 \{\
+.ie(\\n(;6+\\n(!I+\\n(;H)=\\n(.t .nr :8 1 
+.el.nr :8 0
+.if\\n(:8 .wh 0
+.af!S \\gP 
+.afP i
+.]t  
+.in+\\n(:3u
+.>3  
+.sp3
+.)N  
+.in-\\n(:3u
+.wh0  
+.if!\\n(:8 .bp 
+.nrP 1  
+.afP \\g(!S 
+.]t  
+.wh0 )h  
+.if\\n(:G \{\
+.nr:s +1  
+.da>y
+.>d
+\!.			br
+.di
+'nrdn +4v
+'nr:o +\\n(dnu
+.nrdn 0
+'if!\\n(.pu-\\n(nlu-.5v-\\n(:ou 'nr :o \\n(.pu-\\n(nlu-.5v
+'if!\\n(:ou-\\n(:mu 'nr :o \\n(:mu
+'ch)f -\\n(:ou 
+'br\}
+.tmWARNING:  Approved ITDS Document Cover Sheet not available with this package.
+.rmCS \}  
+.el.ie \\n(:t=1 .]t  
+.el\{\
+.]t  
+.in+\\n(:3u
+.>3  
+.sp3
+.in-\\n(:3u \} \}
+.el.]t  
+.if\\n(;n \{\
+.nrW \\n(;Wu
+.ll\\nWu
+.lt\\nWu \}
+.ns
+.ne10
+.ce
+.ie\\nU .ul
+.el.cu
+.ie!\\n(.$ TECHNICAL MEMORANDUM
+.el.if \w\\$1 \\$1
+.SP 3 
+.ce0
+.ie\\nU .ul 0
+.el.cu 0
+.if!\\n(:t=2 .)X
+.rm)X >6
+..
+.de>5
+.rm>6 >x )X
+.br
+.rs
+.sp1
+.ie\\n(Pv \{\
+.ce
+.ul
+PRIVATE
+.sp\}
+.el.sp 2
+.in0
+.ds}A "South Plainfield, New Jersey 07080
+.ds}B "Allentown, Pennsylvania 18103
+.ds}E "Reading, Pennsylvania 19604
+.ds}F "Springfield, New Jersey 07081
+.ds}H "Crawford Hill Laboratory
+.ds}I "Indianapolis, Indiana 46250
+.ds}K "Lincroft, New Jersey 07738
+.ds}M "Morristown, New Jersey 07960
+.ds}P "Parsippany, New Jersey 07054
+.ds}W "Ward Hill, Massachusetts 01830
+.dsAK "Norcross, Georgia 30071
+.dsCB "Columbus, Ohio 43213
+.dsCH "Chester, New Jersey 07930
+.dsCP "Summit, New Jersey 07901
+.dsDR "Denver, Colorado 80234
+.dsHL "Short Hills, New Jersey 07078
+.dsHO "Holmdel, New Jersey 07733
+.dsIH "Naperville, Illinois 60566
+.dsIN "Indianapolis, Indiana 46206
+.dsMH "Murray Hill, New Jersey 07974
+.dsMV "North Andover, Massachusetts 01845
+.dsPY "Piscataway, New Jersey 08854
+.dsRR "Middletown, New Jersey 07748
+.dsWB "West Long Branch, New Jersey 07764
+.dsWH "Whippany, New Jersey 07981
+.dsWV "Warren, New Jersey 07060
+'''.ll \\nWu-20n
+.ll\\nWu
+.fi
+.na
+.nh
+.di>6
+.>T
+.br
+.di
+.ll\\nWu
+.nf
+.ce1000
+.ul1000
+.>6
+.nr:2 0
+.if\w\\$1 .nr :2 1
+.ul0
+.>4
+.br
+.if!\\n(:2 .sp
+.if!\\n(:2 \\*(}Z
+.if!\\n(:2 .if \\n(:H \\*(}H
+.if!\\n(:2 \\*(}z
+.ce0
+.sp
+.if\\n(;3 .if !\\n(:t .in +\\n(:3u
+.if\\n(;3 .if !\\n(:t .>3
+.if\\n(;3 .if !\\n(:t .in -\\n(:3u
+.if\\n(;3 .if !\\n(:t .sp 
+.ns
+.)Y
+.rm)Y >6 PY MH WH HO RR }H WB }A }B }E HL }I
+.rmAK CP CH CB DR IN IH MV WV SG )N )M
+.rm}P }M }W }F }K
+.deNS
+.br
+.di
+.di>Y
+\\..
+.deNE
+.br
+.di
+\\..
+.rm>5
+..
+.de)K
+.ie(\\n(;X=5)&(\\n(:D) .)D "check WA, WE, IA, IE, LT sequence"
+.el.if \\n(:D .ie !\\n(:t=2 .)D "check TL, AU, AS, AE, MT sequence"
+.el.)D "check TL, AU, AS, AE, NS, NE, MT sequence"
+.rm)X )Y >T >x >z >1 >2 >3 >4 >5 >6 >7 >8 >9 }z
+.rr;x  ;y  ;z  :D  :1  :2  :3  :9  ;0  ;1  ;n  ;3 
+.rmTL AU TM AF AS AE OK
+.rm)K
+..
+.de)X
+.di>S
+\!.tm WARNING:  Approved ITDS Document Cover Sheet not available with this package.
+.di
+..
+.de)Y
+.di>S
+\!.bp
+\!.in 0
+\!.ce 1000
+\!.ul 1000
+.>6
+\!.ul 0
+\!.sp .5v
+.>4
+\!.br
+\!.if \\n(:2=0 .sp.5v
+\!.if \\n(:2=0 \\*(}Z
+\!.if \\n(:2=0 .if \\n(:H \\*(}H
+\!.if \\n(:2=0 \\*(}z
+\!.ce 0
+\!.sp 
+\!.in 0
+\!.in +\\n(:3u
+.>3
+\!.in -\\n(:3u
+\!.nr ;0 1
+.di
+.di>b
+.nf
+.na
+.>c
+.br
+.di
+.if\\n(dn \{\
+.nr;c \\n(.pu-\\n(:mu-\\n(dnu
+.da>S
+\!.ie \\n(;c-\\\\n(nlu .sp \\n(;cu-\\\\n(nlu-2v
+\!.el .sp 1v
+.nr;c 0
+\l'60p'
+.>c
+.di
+'br\}
+..
+.deCS
+.LC 0
+.if\\n(:F .FE
+.if\\n(:y .DE 
+.if\\n(!N=1 .NE 
+.)N
+.)w 
+.if\\n(;R .RP 0 1 
+.if!\\nP-1 .if \\nN .if !\\nN-1 .rn }t }b
+.if!\\nP-1 .if \\nN .if !\\nN-1 .nr N 0 
+.rm}t }e }o
+.rm}b }f }p
+.br
+.)R
+.ll\\nWu
+.in0
+.br
+.nr!O \\nO
+.nr!W \\nW
+.rs
+.nf
+.>S
+.nrO \\n(!O
+.nrW \\n(!W
+.po\\nOu
+.ll\\nWu
+.lt\\nWu
+.)R 
+.ta.8i 1.6i 2.4i 3.2i 4i 4.8i 5.6i 6.4i 7.2i 8i 8.8i 9.6i
+.rr;0 ;1  ;2 
+.rm>S
+..
+.deFC
+.)w
+.nf
+.ls1
+.in(\\n(.lu/2u)
+.rs
+.ne\\n(:Vu+3v+.5p
+.rmLT
+.ie\\n(;X \{\
+.sp2 
+.ie\\n(;X<3 \{\
+.ie\\n(.$ \\$1
+.elYours very truly, \}
+.el.if \\n(;X=3 \{\
+.in0
+.ie\\n(.$ \\$1
+.elYours very truly, \} \}
+.el\{\
+.sp
+.ie\\n(.$ \\$1
+.elYours very truly, \}
+.in
+.fi
+..
+.deSG
+.if\\n(:F .)D "SG:missing FE"
+.if\\n(:y .)D "SG:missing DE"
+.LC 0 
+.)w
+.)R 
+.in0
+.nf
+.ls1
+.ne5v+.5p
+.rs
+.ie\\n(;X \{\
+.ie\\n(;X<4 \{\
+.sp3
+.if\\n(;X<3 .in (\\n(.lu/2u)
+\\*(}8
+.if\w\\*(}9 \\*(}9 \}
+.el\{\
+.sp2
+.br
+.traAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ
+.ie\w\\*(}9 \\*(}8, \\*(}9
+.el\\*(}8
+.traabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz\}
+.in0
+.sp
+\\$1\}
+.el\{\
+.if!\\n(:V .)D "SG:no authors"
+.if\w\\$1 .as }v -\\$1
+.if\\n(.$>1 \{\
+.sp3
+\\*(}v
+.sp-4 \}
+.in(\\n(.lu/2u)
+.>v
+.in
+.if\\n(.$=1 \{\
+.sp-1
+\\*(}v
+'br\}
+.rm>v
+.fi\}
+..
+.deNS
+.if\\n(!N=1 .di 
+.if\\n(;M .br 
+.)R 
+.nr:D 1  
+.ds}4 "Copy to
+.nr;0 0\\$1
+.if\w\\$1u-\w'\0\0'u .nr ;0 50
+.if\\n(;0 .ds }4 "Copy (with att.) to
+.if\\n(;0-1 .ds }4 "Copy (without att.) to
+.if\\n(;0-2 .ds }4 "Att.
+.if\\n(;0-3 .ds }4 "Atts.
+.if\\n(;0-4 .ds }4 "Enc.
+.if\\n(;0-5 .ds }4 "Encs.
+.if\\n(;0-6 .ds }4 "U.S.C.
+.if\\n(;0-7 .ds }4 "Letter to
+.if\\n(;0-8 .ds }4 "Memorandum to
+.if\\n(;0-9 .ds }4 "Copy (with atts.) to
+.if\\n(;0-10 .ds }4 "Copy (without atts.) to
+.if\\n(;0-11 .ds }4 "Abstract only to
+.if\\n(;0-12 .ds }4 "Complete memorandum to
+.if\\n(;0-13 .ds }4 "Copy (\\$1) to
+.if\\n(.$-1 .ds }4 \&\\$1
+'in\\n(;N  
+.if!\\n(!N .ds }5 \\*(}4  
+.if\\n(!N  .da }C  
+.if!\\n(!N  .di }C  
+.if\\n(!N .if !\\n(;X .sp
+\!.ds }4 \\*(}4
+\\*(}4
+.nf
+.nr!N 1  
+..
+.de)N
+.br
+.rr!N
+.di]v
+.}C
+.br
+.di
+.rm]v
+.nr;0 \\n(dn
+.if\\n(;0 .)M
+..
+.de)M
+.nf
+.if!\\n(;X .sp
+.ne2v
+.if\\n(.tu<=2v \{\
+\&\\*(}5
+.ie!\\n(;C See next page
+.elSee next column
+'br\}
+.nr!U \\n(;0>=\\n(.tu
+.if\\n(!U \{\
+.ie!\\n(;C .ds ]w Continued next page
+.el.ds ]w Continued next column
+.ds]x \\\\*(}4\ \-\ contd.
+.ch)f -(\\n(:ou+1v) \}
+.}C
+.if\\n(!U \{\
+.rm]w ]x
+.ch)f -\\n(:ou \}
+.rm}C
+..
+.deNE
+.br
+.if\\n(!N=1 .di
+.nr:D 0
+.nr!N 2
+.if\\n(;M .)N  
+.)R 
+..
+.deAV
+.ne6v
+.in0
+.nf
+.if\\n(.$<2 \{\
+.sp
+APPROVED:
+'br\}
+.sp2
+\l'3i'\h'.3i\l'1.5i'
+\\$1\h'|4i-(\w'Da'u)'Date
+.in
+.fi
+..
+.deND
+.if!\\n(.$ .)D "ND:missing arg"
+.dsDT "\\$1
+..
+.deAF
+.if\\n(;y .>9 
+.if!\\n(.$ \{\
+.nr;n 1
+.nrO 1i
+.po\\nOu
+.nrW 5.8i
+.ev0
+.ll\\nWu
+.lt\\nWu
+.ev
+.ev1
+.ll\\nWu
+.lt\\nWu
+.ev
+.ev2
+.ll\\nWu
+.lt\\nWu
+.ev
+'br\}
+.ds}Z "\\$1
+..
+.de)h
+'ev0
+'nh
+'if\\n(Hy 'hy 14
+'ev
+'ev2
+.)R
+.nrP +1
+.if\\n(:Z \{.nr P \\n%
+.rr:Z \}
+.if\\n(:u*\\n(:S .nr P 1 
+.if\\n(:u=1 \{.nr H1 +1 
+.nr:u 2 \}
+'sp\\n(!X
+.TP
+.br
+.)R
+'ev
+.nr:I 2
+.nr:J \\n(nl
+'ns
+'if\\n(:q .)l 
+'nr:q 0
+.mk;r
+.mk;m
+.nr!B 0
+.if\\n(;d=0&\\n(:z>0 \{\
+'ie\\n(Df>3  \{')z
+')s \}
+'el'if \\n(Df>1 ')z \}
+.nr:I 3
+.nr!C \\n(.h
+.PX 
+'ns
+.if!((\\n(!C=\\n(.h)&(\\n(!B=0)) .mk ;m  
+.nr;T 0
+.if\\n(;A>0 \{.nr ;h \\n(.i
+.in0
+.>t
+.nr;T 1
+.in\\n(;hu	\}
+.mk#T
+.nr:J \\n(nl
+.if!\\*(]x \\*(]x
+..
+.de)f
+.if!\\*(]w \\*(]w
+.nr!D 0
+.nr:N 0
+'nrdn 0
+'nr;y \\n(.pu-\\n(nlu-\\n(:mu-1v
+'if\\n(:s \{'ie \\n(;y-4v .)o
+'el.)m \}
+'nr:s 0
+'nr:o \\n(:mu
+.ie\\n(;C=0 \{\
+.if\\n(;e \&\c
+'bp\}
+.el.ie \\n(;C=2 .)2
+.el.)1 
+.rr;f
+.ie\\*(]w 'ch )f -\\n(:ou
+.el'ch )f -(\\n(:ou+1v)
+..
+.dePH
+.ds}t "\\$1
+..
+.deEH
+.ds}e "\\$1
+..
+.deOH
+.ds}o "\\$1
+..
+.dePF
+.ds}b "\\$1
+..
+.deEF
+.ds}f "\\$1
+..
+.deOF
+.ds}p "\\$1
+..
+.deTP
+'sp
+.)K
+.af;P \\gP
+.afP 1
+.nr;P \\nP
+.afP \\g(;P
+.af;P 1
+.ie\\n(Pv \{\
+.ie(\\n(Pv=1)&(\\n(;P>1) 'sp 2
+.el\{\
+.ce
+.ul
+PRIVATE
+.sp\} \}
+.el'sp 2
+.if!\\n(;P-1 .if \\nN 'sp
+.if!\\n(;P-1 .if \\n(:S .tl \\*(}t
+.if!\\n(;P-1 .if !\\nN .tl \\*(}t
+.if\\n(;P-1 .ie \w'\\*(]n' .tl '\\*(]n - \\nP'''
+.el.tl \\*(}t
+'if!\\n(;P%2 'tl \\*(}e
+'if\\n(;P%2 'tl \\*(}o
+'sp2
+..
+.dePM
+.ie\\$1 .		nr ;t 0
+.el.ie \\$1PM6 .	nr ;t 6
+.el.ie \\$1ILL .	nr ;t 5
+.el.ie \\$1PM5 .	nr ;t 5
+.el.ie \\$1RS .	nr ;t 4
+.el.ie \\$1PM4 .	nr ;t 4
+.el.ie \\$1CP .	nr ;t 3
+.el.ie \\$1PM3 .	nr ;t 3
+.el.ie \\$1RG .	nr ;t 2
+.el.ie \\$1PM2 .	nr ;t 2
+.el.nr ;t 1
+.ie\\n(;t=0 \{\
+.(B
+.(E 2 0
+.(B
+.(E 3 0 \}
+.el.ie \\n(;t=6 \{\
+.(B
+\!.	tl \\*(]m
+\!.	tl \\*(]o
+\!.     tl \\*(]p
+\!.     tl \\*(]q
+.(E 2 4v \}
+.el.ie \\n(;t=5 \{\
+.(B
+\!.	tl \\*(]i
+\!.	tl \\*(]j
+\!.	tl \\*(]k
+\!.	tl \\*(]l
+.(E 3 4v \}
+.el.ie \\n(;t=4 \{\
+.(B
+\!.	tl \\*(]U
+\!.	tl \\*(]V
+\!.	tl \\*(]W
+\!.	tl \\*(]X
+.(E 3 4v \}
+.el.ie \\n(;t=3 \{\
+.(B
+\!.	tl \\*(]I
+\!.	tl \\*(]J
+\!.	tl \\*(]K
+\!.	tl \\*(]L
+.(E 3 4v \}
+.el.ie \\n(;t=2 \{\
+.(B
+\!.	tl \\*(]A
+\!.	tl \\*(]F
+\!.	tl \\*(]G
+\!.	tl \\*(]H
+.(E 3 4v \}
+.el\{\
+.(B
+\!.	tl \\*(]M
+\!.	tl \\*(]O
+\!.	tl \\*(]Q
+\!.	tl \\*(]R
+.(E 3 4v \}
+..
+.de)b
+'ev2
+.nf
+.?1
+.?2
+.?3
+.?4
+.?5
+.br
+.)R
+.af;P \\gP
+.afP 1
+.nr;P \\nP
+.afP \\g(;P
+.af;P 1
+.ie!\\n(;P%2 .tl \\*(}f
+.el.tl \\*(}p
+.ie\\n(;P=1 \{\
+.ie\\nN=1 .tl \\*(}t
+.el.tl \\*(}b \}
+.el.tl \\*(}b
+.if\\nC .tl \\*(]C
+.)R
+'ev
+..
+.de)2
+.po\\nOu 
+.nr;C 1 
+.if\\n(;e \&\c
+'bp
+..
+.de)1
+.rt\\n(;mu
+.po+\\n(;ou 
+.nr;C 2 
+.if\\n(;a=1&\\n(:t=0&\\n(!K .wh \\n(!Eu )a 
+.nr:I 2
+.nr:J \\n(nl
+'ns
+'if\\n(:q .)l 
+'nr:q 0
+'if\\n(;d=0&\\n(:z>0 \{\
+'ie\\n(Df>3 \{')z
+')s \}
+'el'if \\n(Df>1 ')z \}
+.nr:I 3
+.nr;T 0
+.if\\n(;A>0 \{.nr ;h \\n(.i
+.in0
+.>t
+.nr;T 1
+.in\\n(;hu	\}
+.mk#T
+.nr:J \\n(nl
+..
+.de2C 
+.if\\n(;C=0 \{\
+.br
+.)R
+.nr;C 1
+.if!\\n(.$ .nr ;l \\n(.lu*8u/17u 
+.if!\\n(.$ .nr ;o \\n(.lu*9u/17u 
+.if\\n(.$ .nr ;l \\$1u*1.3n
+.if\\n(.$ .nr ;o \\nWu-\\n(;lu
+.ev1
+.ll\\n(;lu
+.lt\\n(;lu
+.ev
+.ll\\n(;lu
+.lt\\n(;lu
+.nr:L \\nW
+.nrW \\n(.lu
+.SP
+.ns
+.mk;m \}
+..
+.de1C
+.if\\n(;C \{\
+.br
+.nr;O \\n(.hu-2v
+.if\\n(;C>1 .sp |\\n(;Ou
+.po\\nOu
+.)R
+.nrW \\n(:Lu
+.rr:L ;O ;C
+.ev1
+.ll\\nWu
+.lt\\nWu
+.ev
+.ll\\nWu
+.lt\\nWu
+.SP
+.ns\}
+..
+.de)a
+.sp\\n(:0u
+.sp2
+.ch)a
+.rr!E !K
+.rm)a
+..
+.deWC
+.if\\n(.$ \{\
+.ie\\$1N \{.nr ;a 0
+.nr;b 0
+.nr;j 0
+.nr;p 1 \}
+.el.ie \\$1WD .nr ;a 1
+.el.ie \\$1WF .nr ;b 1
+.el.ie \\$1FF .nr ;j 1
+.el.ie \\$1FB .nr ;p 1
+.el.ie \\$1-WD .nr ;a 0
+.el.ie \\$1-WF .nr ;b 0
+.el.ie \\$1-FF .nr ;j 0
+.el.ie \\$1-FB .nr ;p 0
+.el')D "WC: unknown option"
+.if\\n(.$>1 .WC \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+'br\}
+..
+.de>W
+.if\\n(;C \{\
+.ev1
+.ll\\n(:Lu
+.lt\\n(:Lu
+.ev
+.nrW \\n(:Lu
+.nr;W 1 \}
+..
+.de>N
+.if(\\n(;l>0)&(\\n(;C=0) \{\
+.ev1
+.ll\\n(;lu
+.lt\\n(;lu
+.ev
+.nrW \\n(;lu
+.nr;W 2 \}
+..
+.de>R
+.ie\\n(;W=1 .nr W \\n(;lu
+.el.if \\n(;W=2 .nr W \\n(:Lu
+.if\\n(;W \{\
+.ev1
+.ll\\nWu
+.lt\\nWu
+.ev
+.nr;W 0 \}
+..
+.de)Q
+.ch)Q 200v
+.rs
+'sp70
+..
+.deBS
+.(B
+..
+.deBE
+.(E 4
+..
+.deVM
+.ie0\\$1>=0 .nr !X 0\\$1
+.el.nr !X 0
+.if0\\$2>=0 \{\
+.(B
+.rs
+.sp0\\$2v
+.(E 5 0\\$2 \}
+..
+.de(B
+.ev1
+.)R
+.di>K
+..
+.de(E
+.br
+.di
+.)R
+.ev
+.ie(\\n(dn=0)&(0\\$2=0) \{\
+.nr?\\$1 0
+.rm>K ?\\$1
+'br\}
+.el\{\
+.ie0\\$2>0 .nr ?\\$1 0\\$2
+.el.nr ?\\$1 \\n(dn \}
+.nr?0 \\n(:Uu
+.nr:U \\n(?1+\\n(?2+\\n(?3+\\n(?4+\\n(?5+1v
+.if(\\n(:Uu+\\n(:Mu)>(\\n(.pu-\\n(nlu-.5v) .SK
+.rn>K ?\\$1
+.nr:o +(\\n(:Uu-\\n(?0u)
+.ch)n -\\n(:ou
+.ch)f -\\n(:ou
+.nr:m \\n(:Mu+\\n(:Uu
+.ch)b -(\\n(:mu-2v)
+..
+.deFS
+'nr:s +1 
+.if\\n(:F .)D "FS:missing FE"
+.if\\n(:F .FE
+.if\\n(:y .)D "FS:missing DE"
+.if\\n(:y .DE
+.nr:F 1
+.if!\\n(!F \{\
+.ie\\n(;C .nr !F 2
+.el.nr !F 1 \}
+.ie(\\n(;C>0)&((\\n(;b=1):((\\n(;j=1)&(\\n(!F=1))) \{\
+.nr!F 1
+.>W \}
+.el.if ((\\n(;C=0)&(\\n(;j=1)&(\\n(!F=2)) .>N
+'ev1
+'di>b
+.nr:D 1
+.)R
+'nh
+'if\\n(:i 'hy 14
+'ad
+'if\\n(:j 'na
+'sp\\n(Fs
+'if\\n(.$ 'ds }y \\$1\ 
+'if!\\n(.$ 'ds }y \\*(]y.\ 
+'if\\n(:k \\*(}y\&\c
+'if!\\n(:k 'nr ;v \w\0\0.\ 
+'if!\\n(:k 'nr ;u \w\\*(}y
+'if!\\n(:k 'in +\\n(;vu
+'if!\\n(:k 'if !\\n(:l 'ti -\\n(;vu
+'if!\\n(:k 'if !\\n(:l 'if !\\n(;u-\\n(;v \\*(}y\h\\n(;vu-\\n(;uu\&\c
+'if!\\n(:k 'if !\\n(:l 'if \\n(;u-\\n(;v \\*(}y\&\c
+'if!\\n(:k 'if \\n(:l 'if \\n(;v-\\n(;u 'ti -\\n(;uu
+'if!\\n(:k 'if \\n(:l 'if !\\n(;v-\\n(;u 'ti -\\n(;vu
+'if!\\n(:k 'if \\n(:l \\*(}y\&\c
+..
+.deFE
+.if!\\n(:F .)D "FE:no FS active"
+.br
+'di
+.nr:D 0
+.if\\n(;c .nr :D \\n(;c
+'in
+'nf
+'na
+.if!\\n% \{\
+'da>c
+.>b
+\!.	br
+'di
+.if!(\\n(:D=3) \{\
+.nr:G 1
+.da>d
+.>b
+\!.		br
+.di
+'br\}
+'br\}
+.if!((\\n%=0)*(\\n(:D=3)*(\\n(:t=1)) \{\
+'da>y
+.>b
+\!.	br
+'di
+'br\}
+.rm>b
+.)R
+'ev
+.nr:F 0
+.>R
+'if!((\\n%=0)*(\\n(:D=3)*(\\n(:t=1)) \{\
+.if!((\\n(!A=1):((\\n(;C=2)&(\\n(!F=1))) \{\
+'if!\\n(:s-1 'nr dn +4v
+'nr:o +\\n(dnu
+.nrdn 0
+'if!\\n(.pu-\\n(nlu-.5v-\\n(:ou 'nr :o \\n(.pu-\\n(nlu-.5v
+'if!\\n(:ou-\\n(:mu 'nr :o \\n(:mu
+'ch)f -\\n(:ou 
+'br\}\}
+..
+.de)o
+.ie(\\n(!F=1)&(\\n(;C=1) \{\
+.nr!A 1 \}
+.el.nr !A 0
+'ev1
+.)R
+'nf
+'sp2
+.ti0
+.if!\\n(:n \l'72p'
+.if\\n(:n \l\\n(.lu
+'nr:n 0
+.br
+.if\\n(!A .wh (\\n(nlu-2v) )Q
+'nr;Z 1
+'nrdn 0
+.>y
+.br
+'di
+.if\\n(dn=1v .nr dn 0
+.nr:n \\n(dn
+'nr;Z 0
+.if!\\n(;C=1 \{\
+.rr!A
+.if\\n(dn=0 .rr !F \}
+'rm>y
+'nr:q \\n(dnu
+'nrdn 0
+'nr:s 0 
+.)R
+'ev
+..
+.de)n
+'if\\n(;Z   \{\
+'di>x	  
+'sp\\n(Fs  \}
+..
+.de)m
+'ev1
+.)R
+.nf
+'di>w
+.>y
+.br
+'di
+'rm>y
+'nr:q \\n(dn
+'nrdn 0
+'nr:s 0
+.if!\\n(;C=1 .rr !A
+.)R
+'ev
+..
+.de)l
+'nr:s 1
+'di
+'ev1
+'di>b
+.)R
+'nh
+'nf
+.>x
+.>w
+.nr:F 1
+.FE
+'rm>x
+'rm>w
+..
+.deFD
+'nr:i 0 
+'nr:j 0 
+'nr:k 0 
+'nr:l 0 
+'nr;z 0
+'if!\\n(.$ 'nr ;z 10 
+'if\\n(.$ 'if !\w\\$1 'nr ;z 10 
+'if\\n(.$ 'nr ;z \\$1
+'if\\n(;z-11 'nr ;z 0
+'if\\n(;z-7 'nr :l 1
+'if\\n(;z-7 'nr ;z -8
+'if\\n(;z-3 'nr :k 1
+'if\\n(;z-3 'nr ;z -4
+'if\\n(;z-1 'nr :j 1
+'if\\n(;z-1 'nr ;z -2
+'if\\n(;z 'nr :i 1
+'if\\n(.$-1 .nr :C 1
+..
+.deDS
+.nr:t 0
+.nr!K 1
+.)J "\\$1" "\\$2" "\\$3"
+..
+.deDF
+.nr:t 1
+.nr!K 0
+.)J "\\$1" "\\$2" "\\$3"
+..
+.de)J
+.nr;i \\n(.i
+.nr;q \\n(.u
+'di
+.if\\n(:D>1 \{.ie \\n(:t=0  .)D "DS:illegal inside TL or AS"
+.el.)D "DF:illegal inside TL or AS" \}
+.if\\n(:F \{.ie \\n(:t=0 .)D "DS:missing FE"
+.el.)D "DF:missing FE"
+.FE \}
+.if\\n(:y \{.ie \\n(:t=0 .)D "DS:missing DE"
+.el.)D "DF:missing DE"
+.DE \}
+.nr:y 1
+.if(\\n(;C>0)&(\\n(;a=1) .>W
+.if\\n(;C=2&\\n(;a=1&\\n(!K 'bp
+.ev1
+.)R
+'di>0
+.nr:D 1
+.nr;z 0+0\\$1
+.if\\$1L .nr ;z 0
+.if\\$1I .nr ;z 1
+.if\\$1C .nr ;z 2
+.if\\$1CB .nr ;z 3
+.if\\n(;z>3 .nr ;z 3
+.nr:B \\n(;z
+.if\\n(:t=0 .if \\n(;z<2 .ll -\\n(;iu
+.if\\n(;z=1 .in +\\n(Sin
+.if\\n(;z=2 \{.ce 9999
+.nr:t +2 \}
+.if\\n(:B=3 \{.nr :Y 1
+.nr:t +2
+.nr:X \\n(.i
+.di>X \}
+.nr;z 0+0\\$2
+.if\\$2N .nr ;z 0
+.if\\$2F .nr ;z 1
+.nf
+.if\\n(;z .fi
+.ll-0\\$3n
+..
+.de)z
+.nr;w \\n(:x+1%26+1
+.if!((\\n(;C=2)&(\\n(!\\n(;w=1)) \{\
+'nr;d 1
+.ev1
+.SP
+.)R
+'nf
+'rs
+.nr:x \\n(:x+1%26 
+.?\\n(;w
+.if\\n(!\\n(;w=1 .nr !B 1
+.rm?\\n(;w
+.rr?\\n(;w !\\n(;w
+.)R
+.if\\n(De \{\
+.if\\n(;e \&\c
+.bp
+.nr!B 0 \}
+.ie\\n(:I>1 \{\
+.if\\n(nl>\\n(:J .nr :I 0 \}  
+.el.nr :I 0
+.SP
+.nr:J \\n(nl
+.ev
+'nr:z -1
+'nr;d 0 
+.ne2 \}
+..
+.de)y
+'if\\n(:z \{\
+'nr;w \\n(:x+1%26+1
+'nr;z \\n(?\\n(;w
+.ie(\\nC=4):(\\nC=5) .nr ;Q 2
+.el.nr ;Q 1
+.if(\\n(:I=2):(\\n(;z+\\n(;pv+\\n(;Qv<\\n(.t):\
+((\\n(;z>(\\n(.p-\\n(;r-\\n(:m))&(\\n(nl<(\\n(.p-\\n(;r-\\n(:o/2u+\\n(;r))) \{\
+'ie\\n(:I<2  .if \\n(;p .br
+'el.if \\n(:Ju<\\n(nlu  .if \\n(;p .br
+')z  \}\}
+..
+.de)x
+'nr:v \\n(:z
+')y
+'if\\n(:v=\\n(:z \{\
+'nr;d 1
+\&\c
+'SP \\n(.tu+1v
+'nr;d 0	
+')z  \}
+..
+.de)w
+'if\\n(:z \{\
+')x
+')w  \}
+..
+.de)u
+'if\\n+(:z>25 ')D "DF: too many displays"
+'nr:w \\n(:w+1%26
+'nr;w \\n(:w+1
+'rn>0 ?\\n(;w
+.nr!\\n(;w 1
+.if(\\n(;C>0)&(\\n(;a=0) .nr !\\n(;w 2
+.nr?\\n(;w \\n(:0
+'if!((\\n(;C>0)&(\\n(!\\n(;w=1)) 'if (\\n(:z=1)&((\\n(Df%2=1):(\\n(Df>5)) ')y
+..
+.de)s
+'nr:v \\n(:z
+'nr;Y \\n(:I
+'nr:I 3
+')y
+'ie\\n(:v>\\n(:z  ')s
+'el'nr :I \\n(;Y
+..
+.de)t
+.br
+.nr!L \\n(.L
+.ls1
+.)r
+.ti\\n(.iu
+.nf
+.if\\n(:t>1 .in -\\n(;iu  
+.rs
+.nr;d 1
+.>0
+.)R
+.nr;d 0
+.ie\\n(:I>1 \{\
+.if\\n(nl>\\n(:J .nr :I 0 \}  
+.el.nr :I 0
+.ls\\n(!L
+.in\\n(;iu
+.if!\\n(;q .nf
+.if\\n(Ds .SP
+.nr:J \\n(nl
+..
+.de)r
+.if\\n(Ds  .SP
+.if(\\n(:0>=\\n(.t)&((\\n(:0<(\\n(.p-\\n(;r-\\n(:m)):\
+(\\n(nl>(\\n(.p-\\n(;r-\\n(:o/2u+\\n(;r))) \{\
+.if\\n(;e \&\c
+.ne\\n(.tu+1v
+.if\\n(:I<2 .)r \}  
+..
+.deDE
+.if!\\n(:y .)D "DE:no DS or DF active"
+.nr!E \\n(nl
+.if\\n(:B=3 \{.br
+.di
+.if\\n(dl>\\n(:Y .nr :Y \\n(dl
+.if\\n(:Y<\\n(.l .in (\\n(.lu-\\n(:Yu)/2u 
+.nf
+.>X
+.fi
+.rm>X
+.in\\n(:Xu
+.rr:X \}
+.ce0
+.br
+'di
+.rr:D ;D ;E :B
+.)R
+.ll\\nWu
+.ev
+'nr:0 \\n(dn
+'nrdn 0
+.nr;x \\n(:t
+.if\\n(:t-1 .nr ;x -2
+.>R
+.if!\\n(;x .)t
+.if\\n(;x .)u
+.nr:y 0
+.nr:Y 0
+.nr;L 1
+..
+.de)R
+'fi
+'na
+.if\\n(:h 'ad
+'nh
+'if\\n(Hy 'hy 14
+'in0
+'ti0
+..
+.deCW
+.DS I
+..
+.deCN
+.DE
+..
+.deRS
+.if\\n(;R=2 .)D "RS:missing RF"
+.nr;R 2 
+.nrRf +1 
+.if\\n(.$ .ds \\$1 \u[\\n(:R]\d
+.ie\\n(;C .ev 1
+.el.ev 2
+.)R
+'in\w\0\0.\ u
+'ti-\w\\*(]r.\ u
+.nr:D 1
+.da>r
+\!.ne 2
+\\*(]r.\ \&\c
+..
+.deRF
+.if!(\\n(;R=2) .)D "RF: no RS active"
+.nr;R 1
+.br
+\!.if \\\\n(Ls .sp
+.di
+'in
+.nr:D 0
+.ev
+..
+.deRP
+.if\\n(;R=2 .)D "RP: missing RF"
+.if\\n(;R \{\
+.nr;R 0 
+.if!(0\\$1) .nr :R 0 1 
+.)R
+.ie(0\\$2=2):(0\\$2=3) \{\
+.if\\n(;e \&\c
+'ne8
+.sp1 \}
+.el\{\
+.ie\\n(;e .SK
+.el\{\
+\&\c
+.bp
+'br\} \}
+.ce1
+.ul
+\\*(Rp
+.if\w\\*(Rp \{
+.am>C
+.)T 1 0 "" "\\*(Rp" \\nP 
+\\..
+'br\}
+.sp2v
+.nf
+.>r
+.br
+.rm>r
+.)R
+.if(0\\$2=0):(0\\$2=2) .SK
+'br\}
+..
+.de)q
+.nr;e 1
+.br
+.LC 0
+.if\\n(:F .FE
+.if\\n(:y .DE 
+.if\\n(!N=1 .NE 
+.)N
+.nr;x 0 
+.if\\n(;R .RP 0 1 
+\&\c
+.if(\\n(;C>0)&(\\n(:z>0) 'bp
+.)w 
+\&
+'nr:0 \\n(.pu-\\n(nlu-\\n(:ou
+'if\\n(:s 'if (\\n(:0<=0):((\\n(;C=2)&(\\n(!F=1)) 'nr ;x 1
+'if\\n(:q 'nr ;x 1
+'if\\n(;x \&\c
+'if\\n(;x 'bp
+.di]B
+.>y
+.di
+.nr:T \\n(dnu
+.if\\n(:T \{
+.nr!G \\n(.pu-\\n(:T-\\n(:mu-4v
+.ie\\n(!G>\\n(nl .ch )f \\n(!Gu
+.el'bp \}
+.nr;e 0
+..
+.deWA
+.nr:D 2
+.rm1C 2C >W WC )Q AF AS AE AT AU AV CS OK TC TL TM MT
+.rm)2 )1 )a
+.nr;X 5
+.)W WA
+.ds}8 \\$1
+.ds}9 \\$2
+.di]s
+.nf
+..
+.deWE
+.)W WE
+.br
+.di
+.nr!R \\n(dn
+..
+.deIA
+.nr:D 1
+.)W IA
+.ds}6 \\$1
+.ds}7 \\$2
+.di]u
+.nf
+..
+.deIE
+.)W IE
+.br
+.di
+..
+.deLO
+.rm2C AF AS AE AT AU AV CS OK TC TL TM MT
+.ie\\$1 .)D "Required argument missing"
+.el.ie \\$1SA \{\
+.nr!V 1
+.ie\w\\$2 .ds }a \\$2
+.el.ds }a To Whom It May Concern:\}
+.el.ie \\$1AT \{\
+.ds}j ATTENTION:  \\$2
+.nr!Y 1 \}
+.el.ie \\$1RN \{\
+.ds}k In reference to:  \\$2
+.nr!6 1 \}
+.el.ie \\$1CN \{\
+.nr!9 1
+.ie\w\\$2 .ds }l \\$2
+.el.ds }l CONFIDENTIAL \}
+.el.ie \\$1SJ \{\
+.ds}m \\$2
+.nr!M 1 \}
+.el.)D "LO argument not recognized" 
+..
+.deLT
+.nr:D 0
+.)W LT
+.rnTP >Y 
+.br
+.rn>Y TP
+.ie\\$1 .(1
+.el.	ie \\$1BL .	(1
+.el.ie \\$1SB .	(2
+.el.ie \\$1FB .	(3
+.el.ie \\$1SP .	(4
+.el.)D "LT argument not recognized."
+.nr;M 1
+..
+.de(1
+.nr;X 1
+.rm(2 (3 (4
+.nf
+.in(\\n(.lu/2u)
+.rs
+.sp11
+.ie\\n(!R .]s
+.el.sp 3
+\\*(DT
+.if\\n(!9 \{\
+.sp
+.in0
+\\*(}l \}
+.if\\n(!6 \{\
+.sp
+.in(\\n(.lu/2u)
+\\*(}k \}
+.ie(\\n(!9:\\n(!6) .sp 2  
+.el.sp 4
+.in0
+.if\w\\*(}6 \\*(}6
+.if\w\\*(}7 \\*(}7
+.]u
+.if\\n(!Y \{\
+.sp
+\\*(}j \}
+.if\\n(!V \{\
+.sp
+\\*(}a \}
+.if\\n(!M \{\
+.sp
+SUBJECT:  \\*(}m \}
+.rmWA WE IA IE LO
+.fi
+..
+.de(2
+.nr;X 2
+.rm(1 (3 (4
+.rs
+.sp11
+.nf
+.in(\\n(.lu/2u)
+.ie\\n(!R .]s
+.el.sp 3
+\\*(DT
+.if\\n(!9 \{\
+.in0
+.sp
+\\*(}l \}
+.if\\n(!6 \{\
+.sp
+.in(\\n(.lu/2u)
+\\*(}k \}
+.ie(\\n(!9:\\n(!6) .sp 2
+.el.sp 4
+.in0
+.if\w\\*(}6 \\*(}6
+.if\w\\*(}7 \\*(}7
+.]u
+.if\\n(!Y \{\
+.sp
+\\*(}j \}
+.if\\n(!V \{\
+.sp
+\\*(}a \}
+.if\\n(!M \{\
+.sp
+.ti5
+SUBJECT:  \\*(}m \}
+.rmWA WE IA IE LO
+.nrPt 1
+.fi
+..
+.de(3
+.nr;X 3
+.rm(2 (1 (4
+.rs
+.sp11
+.nf
+.ie\\n(!R .]s
+.el.sp 3
+\\*(DT
+.if\\n(!9 \{\
+.sp
+\\*(}l \}
+.if\\n(!6 \{\
+.sp
+\\*(}k \}
+.ie(\\n!9:\\n!6) .sp 2
+.el.sp 4
+.if\w\\*(}6 \\*(}6
+.if\w\\*(}7 \\*(}7
+.]u
+.if\\n(!Y \{\
+.sp
+\\*(}j \}
+.if\\n(!V \{\
+.sp
+\\*(}a \}
+.if\\n(!M \{\
+.sp
+SUBJECT:  \\*(}m \}
+.rmWA WE IA IE LO
+.fi
+..
+.de(4
+.nr;X 4
+.rm(2 (3 (1
+.rs
+.sp11
+.br
+.nf
+.ie\\n(!R .]s
+.el.sp 3
+\\*(DT
+.if\\n(!9 \{\
+.sp
+\\*(}l \}
+.if\\n(!6 \{\
+.sp
+\\*(}k \}
+.ie(\\n!9:\\n!6) .sp 2
+.el.sp 4
+.if\w\\*(}6 \\*(}6
+.if\w\\*(}7 \\*(}7
+.]u
+.if\\n(!Y \{\
+.sp
+\\*(}j\}
+.if\\n(!M \{\
+.sp2
+.br
+.traAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ
+\\*(}m
+.br
+.traabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz
+.sp\}
+.rmWA WE IA IE LO
+.fi
+..
+.de)W
+.ie\\$1WA .nr !8 1
+.el.ie \\$1WE \{\
+.ie\\n(!8=1 .nr !8 2
+.el.)D "WA macro missing"\}
+.el.ie \\$1IA \{\
+.ie\\n(!8=2 .nr !8 3
+.el.)D "WA or WE macro missing"\}
+.el.ie \\$1IE \{\
+.ie\\n(!8=3 .nr !8 4
+.el.)D "WA, WE, or IA macro missing"\}
+.el.if \\$1LT \{\
+.ie\\n(!8=4 .nr !8 0
+.el.)D "WA, WE, or IE macro missing"\}
+..
+.nr:r 6v 
+.nr:m 8v 
+.nr:n 0 
+.nr:p 0 1 
+.nr:o 0 
+.nr:z 0 1 
+.nr:y 0 
+.nr:x 0 
+.af;w a
+.nr:w 0 
+.nr:F 0
+.nr:R 0 1 
+.ds]r \\n(:R
+.ds]y \\n(:p
+'wh0 )h
+.nr:o \n(:mu 
+'wh-\n(:mu )f
+'ch)f 15i
+'wh-\n(:mu )n 
+'ch)f -\n(:mu
+'wh-\n(:ru )b
+.nr:M \n(:mu
+'nr:i 0
+'nr:j 1
+'nr:k 0
+'nr:l 1
+'nr;z 0
+.SA 0
+.if\*(]ZMM DEFINED \{\
+.tmERROR: MM package read twice
+.ab	\}
+.ds]Z MM DEFINED
+.if\nT=1 \{.if \nW=0 .nr W 80
+.if\nO=0 .nr O 3 \}
+.if\nT=2 \{.nr L 84
+.dsBU o
+.rmul
+.rmcu \}
+.if!\w'\gE' .nr E 0
+.ie\nL .nr L \nLv
+.el.nr L 11i
+.pl\nLu
+.ie\w'\gO' .nr O \nOn
+.el.ie \nA .nr O 1i
+.el.nr O .75i
+.po\nOu
+.if\nP .nr P -1
+.nrP \nP 1
+.if!\nS .nr S 10
+.ie\nW .nr W \nWn
+.el.ie \nA .nr W 5.8i
+.el.nr W 6.0i
+.if\n(mo-0 .ds DT January
+.if\n(mo-1 .ds DT February
+.if\n(mo-2 .ds DT March
+.if\n(mo-3 .ds DT April
+.if\n(mo-4 .ds DT May
+.if\n(mo-5 .ds DT June
+.if\n(mo-6 .ds DT July
+.if\n(mo-7 .ds DT August
+.if\n(mo-8 .ds DT September
+.if\n(mo-9 .ds DT October
+.if\n(mo-10 .ds DT November
+.if\n(mo-11 .ds DT December
+.asDT " \n(dy, 20\n(yr
+.S D D
+'ev0
+.)R
+.ll\nWu
+.lt\nWu
+'ev
+'ev1
+.)R
+.ll\nWu
+.lt\nWu
+'ev
+'ev2
+.)R
+.ll\nWu
+.lt\nWu
+'ev
+.PH "''- \\\\nP -''
+.if\nC=3 \{.ds ]C D\ R\ A\ F\ T
+.PF "''\\\\*(DT'' \}
+.if\nC=4 \{.ds ]C D\ R\ A\ F\ T
+.PF "''\\\\*(DT''  
+.ls2
+.nrPt 1
+.nrPi 10 \}
+.if\nC=5 .ls 2 
+.if\nC=2 .ds ]C ''DATE FILE COPY''
+.if\nC=1 .ds ]C ''OFFICIAL FILE COPY''
+.if(\nN=3):(\nN=5) \{.nr :S 1
+.PF "''\\\\n(H1-\\\\nP''"
+.PH \}
+.if\nN=4 \{.PH
+.nrN 0 \}
+.if\nD .PH "'\\*(RE line # \\\\n(.c'- \\\\nP -''
+.if\nA=1 \{.nr ;n 1
+.ds}Z
+'br\}
+'em)q
+.ds' '
+.ds` `
+.ds^ ^
+.ds~ ~
+.ds, ,
+.ds: "
+.ds; \u"\d
diff --git a/tmac/mmt b/tmac/mmt
new file mode 100644
index 00000000..43a10119
--- /dev/null
+++ b/tmac/mmt
@@ -0,0 +1,2792 @@
+'\"		Copyright (c) 1984 AT&T
+'\"		  All Rights Reserved
+'\"#ident	"@(#)macros:mmt.src	16.47a"
+.nr:a 0 1
+.nr:b 0
+.nr:c 0
+.nr:d 0
+.nr:e 0
+.nr:f 0
+.nr:g 0 1
+.nr:h 1
+.nr:u 0
+.nr;p 1
+.nr!0 0
+.nr!1 0
+.nr!2 0
+.nr!3 0
+.nr!N 0  
+.nr;F 0
+.nr!V 0
+.nr!Y 0
+.nr!6 0
+.nr!8 0
+.nr!9 0
+.nr!M 0
+.so#9/sys/lib/tmac/strings.mm
+.if\*(]S .ds ]S \s14\f3\*(}Z\fP\s0
+.dsBU \s-2\(bu\s0
+.dsEM \(em
+.dsF \v'-.4m'\s-3\\n+(:p\s0\v'.4m'
+.dsHF 2 2 2 2 2 2 2
+.dsLf LIST OF FIGURES
+.dsLt LIST OF TABLES
+.dsLx LIST OF EXHIBITS
+.dsLe LIST OF EQUATIONS
+.dsRE 16.29
+.dsRf \v'-.4m'\s-3[\\n+(:R]\s0\v'.4m'
+.dsRp REFERENCES
+.dsTm \v'-0.5m'\s-4TM\s+4\v'0.5m'
+.nrAu 1
+.nrCp 0
+.nrCl 2
+.nrDs 1v
+.nrEc 0 1
+.nrEq 0
+.nrEx 0 1
+.nrDe 0
+.nrDf 5
+.nrFg 0 1
+.nrFs 1
+.nrH1 0 1
+.nrH2 0 1
+.nrH3 0 1
+.nrH4 0 1
+.nrH5 0 1
+.nrH6 0 1
+.nrH7 0 1
+.nrHb 2
+.nrHi 1
+.nrHs 2
+.nrHu 2
+.nrHy 0
+.nrLe 0
+.nrLf 1
+.nrLi 5
+.nrLs 6
+.nrLt 1
+.nrLx 1
+.nrNp 0
+.nrOc 0
+.nrOf 0
+.nr!4 0 1
+.af!4 01
+.nrPi 3
+.nrPs 1
+.nrPt 0
+.nrPv 0
+.nrRf 0
+.nrSi 3
+.nrTb 0 1
+.deRD
+'fl
+.di}w
+.rd\\$1
+.br
+.di
+.ie\w\\$3 \{\
+.di}x
+.ds\\$3 "\\*(}w
+.br
+.di
+'br\}
+.if\w\\$2 .rn }w \\$2
+.rm}w }x
+..
+.deB
+.ie\\n(.$ .nr ;G \\n(.f
+.el.ft 3
+.if\\n(.$ .if !\\n(.$-2 \&\f3\\$1\fP\\$2
+.if\\n(.$-2 \{.ds }i
+.if\\n(.f2 .ds }i \^
+.ds}I \&\f3\\$1\fP\\$2\\*(}i
+'br\}
+.if\\n(.$-2 .if !\\n(.$-4 \\*(}I\f3\\$3\fP\\$4
+.if\\n(.$-4 .if !\\n(.$-6 \\*(}I\f3\\$3\fP\\$4\\*(}i\f3\\$5\fP\\$6
+.if\\n(.$ .ft \\n(;G
+..
+.deI
+.ie\\n(.$ .nr ;G \\n(.f
+.el.ft 2
+.if\\n(.$ .if !\\n(.$-1 \&\f2\\$1
+.if\\n(.$-1 \{.ds }i \^
+.if\\n(.f2 .ds }i
+.ds}I \&
+.if\w\\$1 .ds }I \&\f2\\$1\fP\\*(}i
+'br\}
+.if\\n(.$-1 .if !\\n(.$-3 \\*(}I\\$2\f2\\$3
+.if\\n(.$-3 .if !\\n(.$-5 \\*(}I\\$2\f2\\$3\fP\\*(}i\\$4\f2\\$5
+.if\\n(.$-5 \\*(}I\\$2\f2\\$3\fP\\*(}i\\$4\f2\\$5\fP\\*(}i\\$6
+.if\\n(.$ .ft \\n(;G
+..
+.deRI
+.nr;G \\n(.f
+.}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+..
+.deRB
+.nr;G \\n(.f
+.}S 1 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+..
+.deIR
+.nr;G \\n(.f
+.}S 2 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+..
+.deIB
+.nr;G \\n(.f
+.}S 2 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+..
+.deBR
+.nr;G \\n(.f
+.}S 3 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+..
+.deBI
+.nr;G \\n(.f
+.}S 3 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+..
+.de}S
+.ds}i
+.if\\$12 .if !\\$5 .ds }i\^
+.ie!\\$4 .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(}i" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
+.el\\$3
+.ft\\n(;G
+..
+.deSM
+.ie\\n(.$-2 \&\\$1\s-1\\$2\s0\\$3
+.el\&\s-1\\$1\s0\\$2
+..
+.deR
+.ft1
+.ul0
+..
+.deEQ
+.if\\n%>0 .br
+.ds]E \\$1
+.di>E
+..
+.deEN
+\!.br
+.br
+.di
+.rm>E
+.lt\\n(.lu
+.pc
+.if\w\\*(10\\*(}E \{\
+.ie!\\n(Eq \{\
+.ie\\n(:Y>0 \{.if \\n(:Y<\w\\*(10 .nr :Y \w\\*(10
+\!\\*(10\h'\\\\n(.lu-\w\\*(10\\*(]Eu-\\\\n(.iu'\\*(]E
+.br\}
+.el.ie \\n(:B=2 .tl \(ts\(ts\\*(10\(ts\\*(]E\(ts
+.el.ie \\n(:B=1 .tl \(ts\h'\\n(Sin'\\*(10\(ts\(ts\\*(]E\(ts
+.el.if \\n(:B=0 .tl \(ts\\*(10\(ts\(ts\\*(]E\(ts
+'br\}
+.el\{\
+.ie\\n(:Y>0 \{.if \\n(:Y<\w\\*(10 .nr :Y \w\\*(10
+\!\\\\h'-\\\\n(.iu'\\*(]E\\\\h'\\\\n(.iu-\\w\\*(]Eu'\\*(10
+.br\}
+.el.ie \\n(:B=2 .tl \(ts\\*(]E\(ts\\*(10\(ts\(ts
+.el.ie \\n(:B=1 .tl \(ts\h'\\n(Sin'\\*(]E\(ts\(ts\\*(10\(ts
+.el.if \\n(:B=0 .tl \(ts\\*(]E\(ts\(ts\\*(10\(ts
+'br\} \}
+.pc%
+.lt
+.rm]E 10
+.rr:E
+..
+.deHC
+.ev0
+.hc\\$1
+.ev
+.ev1
+.hc\\$1
+.ev
+.ev2
+.hc\\$1
+.ev
+..
+.deH
+.if\\n(:F .)D "H:missing FE"
+.if\\n(:y .)D "H:missing DE"
+.if!\\n(.$ .)D "H:missing arg"
+.nr;0 0
+.if\\$1-7 .nr ;0 1
+.if\w\\$1-\w'0'u .nr ;0 1
+.if\\n(;0 .)D "H:bad arg:\\$1"
+.LC 0
+.br
+.)R
+.nr;1 0\\$1
+.if!0\\$1 .nr ;1 \\n(Hu 
+.if!\\n(;1 .)D "H:bad arg:\\$1"
+.if2-\\n(;1 .nr H2 0 1
+.if3-\\n(;1 .nr H3 0 1
+.if4-\\n(;1 .nr H4 0 1
+.if5-\\n(;1 .nr H5 0 1
+.if6-\\n(;1 .nr H6 0 1
+.if7-\\n(;1 .nr H7 0 1
+.if2-\\n(;1 \{.if \\n(:S .)w
+.if\\n(:C .nr :p 0 1 \}
+.SP .5
+.nr:u 0
+.if\\n(;1-1 .nr H\\n(;1 +1 
+.if!\\n(;1-1 \{.nr :u 1 
+.SP 1 \}
+.if\\n(;1-1 .if (\\n(Ej+1-\\n(;1)&(\\n(;L\{\
+.bp
+.nr;L 0\}
+.if\\n(;1-1 .if (\\n(Ej+1-\\n(;1)&(\\n(nl-\\n(:J) \{.if \\n(;C .nr ;C 2
+.bp\}
+.if!\\n(;1-1 \{.if (\\n(Ej+\\n(:S)&(\\n(nl-\\n(:J) \{.if \\n(;C .nr ;C 2
+.bp\}
+.if!\\n(:u-1 .nr H1 +1 
+.if(\\n(:u=1)&(\\n(:S=1) .nr P 1 \}
+.nr:u 0
+.ds}0 \\n(H1.
+.if0\\$1-1 .as }0 \\n(H2
+.if0\\$1-2 .as }0 .\\n(H3
+.if0\\$1-3 .as }0 .\\n(H4
+.if0\\$1-4 .as }0 .\\n(H5
+.if0\\$1-5 .as }0 .\\n(H6
+.if0\\$1-6 .as }0 .\\n(H7
+.if\\n(Ht \{.)I \\n(;1 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6 \\n(H7
+.ds}0 \\*(}3.
+'br\}
+.as}0 \ \ 
+.if!0\\$1 .ds }0 
+.nr;0 0
+.if!\\n(;1-\\n(Hb .nr ;0 1
+.if!\\n(;1-\\n(Hs .nr ;0 2
+.ds}2
+.if!\\n(;0 .if \w\\$2 .ds }2 "  
+.nr;3 2v
+.HX \\n(;1 0\\$1 "\\$2\\$3"
+.if\\$1<3 .nr !5 0 1
+.af!5 01
+.if(\\$1=1)&(\\n(Np=1) .nr !4 0
+.di>A
+\&\\*(}0\\$2\\$3\\*(}2
+.br
+.di
+.rm>A
+.if\\n(;0-1 .nr ;3 +.5v
+.ne\\n(;3u+\\n(dnu+.5p-1v
+.HY \\n(;1 0\\$1 "\\$2\\$3"
+.if\\n(;0 .na
+.)I \\n(;1 \\*(HF
+.nr;3 1
+.nr;3 \\*(}3
+.ft\\n(;3
+.nr:I \\n(.s
+.)I \\n(;1 \\*(HP
+.if((\\*(}3=0):(\w\\*(}3>0))&(\\n(;3=3)&(\\n(;0>0) .ps -1
+.if!\\*(}3 .if !\\*(}30 .ps \\*(}3
+.nr;2 \w\\*(}0
+.if\\n(;0 \{.in+\\n(;2u
+.ti-\\n(;2u \}
+.nr;2 \\n(.i
+.if!\\n(;1-\\n(Hc .if \\n(;0 .ce
+\\*(}0\&\c
+.if\\n(;0 \&\\$2\\$3
+.if!\\n(;0 \&\\$2\\$3\\*(}2\&\c
+.ft1
+.ps\\n(:Ip
+.if\\n(;0 'in
+.if!\\n(;1-\\n(Cl .if \w\\$2 .)E \\$1 "\\$2"
+.SA
+.if\\n(;0 .br
+.if\\n(;0-1 .SP .5
+.if\\n(;0*\\n(Hi*\\n(Pt .if !\\n(Hi-1+\\n(Pt-1 .ti+\\n(Pin
+.if0\\$1*\\n(;0 .if \\n(Hi-1 .ti\\n(;2u
+.nr:I 1
+.nr!D \\n(nl
+.nr!Z \\n(.k
+.if(\\$1=1)&(\\nN=5) \{\
+.nrFg 0
+.nrTb 0
+.nrEc 0
+.nrEx 0 \}
+.HZ \\n(;1 0\\$1 "\\$2\\$3"
+..
+.deHM
+.afH1 \\$1 1
+.afH2 \\$2 1
+.afH3 \\$3 1
+.afH4 \\$4 1
+.afH5 \\$5 1
+.afH6 \\$6 1
+.afH7 \\$7 1
+..
+.deHU
+.if!\\n(.$ .)D "HU:missing arg"
+.H 0 "\\$1" "\\$2"
+..
+.deLB
+.if4-\\n(.$ .)D "LB:missing arg(s)"
+.)L 0\\$1n 0\\$2n 0\\$3n "\\$4" "\\$5" "\\$6" "\\$7"
+..
+.de)L
+.if\\n(:g>5 .)D "LB:too many nested lists"
+.if\\n(:g .)A 
+.if!\\n+(:g-1 .ds ]b \\n(.i
+.nr:b \\n(.iu+0\\$1u 
+.nr:c \\n(.iu+0\\$2u 
+.nr:d 0\\$3 
+.nr:e 0\\$4 
+.nr:f 0\\$6 
+.if!\w\\$6 .nr :f 1
+.ds]g \\$5
+.if!\w\\$5 \{.ds ]g \&
+.if\\n(:e .ds ]g 1
+'br\}
+.nr:a 0 1
+.if0\\$4 .af :a \\$5 1
+.if(\\n(:g<=\\n(Ls)&(0\\$7) .SP .5
+.fi
+.in\\n(:bu
+.ti\\n(:bu
+..
+.deLC
+.if\\n(:g-0\\$1 .)B
+.if\\n(:g-0\\$1 .LC 0\\$1
+..
+.deLE
+.if(\\n(:I>1)&(\\n(nl-\\n(:J) .nr :I 0
+.if\\n(:I<2 .nr :I 0
+.ie\\n(:g<1 .)D "LE:mismatched"
+.el.)B
+.if(\\n(:g<=\\n(Ls)&(\\n(.$>0) .SP .5
+.nr:J \\n(nl
+..
+.deLI 
+.if!\\n(:g .)D "LI:no lists active" 
+.if(\\n(:g<=\\n(Ls)&(\\n(:f>0) .SP .5
+.in\\n(:bu
+.if(\\n(:f)&(\\n(:D<1) .ne1v+.5p
+.ds}0 \\*(]g
+.if\\n(:e .ds }0 \\n+(:a.
+.if\\n(:e-1 .ds }0 \\n(:a)
+.if\\n(:e-2 .ds }0 (\\n(:a)
+.if\\n(:e-3 .ds }0 [\\n(:a]
+.if\\n(:e-4 .ds }0 <\\n(:a>
+.if\\n(:e-5 .ds }0 {\\n(:a}
+.if\\n(.$-1 .ds }0 \\$1\ \\*(}0
+.if\\n(.$=1 .ds }0 \\$1
+.nr;0 \w\\*(}0
+.nr;1 \\n(:c
+.if\\n(:d .nr ;1 \\n(:bu-\\n(:du-\\n(;0u
+.if!\\n(;1 .nr ;1 0
+.nr;0 \\n(:bu-\\n(;1u-\\n(;0u
+.ti\\n(;1u
+.if!\\n(;0 .nr ;0 \w u
+.if\w\\*(}0 \&\\*(}0\h\\n(;0u\&\c
+..
+.deAL
+.nr!D 0
+.if!\\n(.$-1 .)L \\n(Lin 0 2n 1 "\\$1"
+.if\\n(.$-1 .if !\\n(.$-2 .LB 0\\$2 0 2 1 "\\$1"
+.if\\n(.$-2 .if !\w\\$2 .)L \\n(Lin 0 2n 1 "\\$1" 0 1
+.if\\n(.$-2 .if \w\\$2 .LB 0\\$2 0 2 1 "\\$1" 0 1
+..
+.deBL
+.if\\n(.$<1 .)L \\n(Pin 0 1n 0 \\*(BU
+.if\\n(.$=1 .LB 0\\$1 0 1 0 \\*(BU
+.if\\n(.$>1 \{.ie !\w\\$1 .)L \\n(Pin 0 1n 0 \\*(BU 0 1
+.el.LB 0\\$1 0 1 0 \\*(BU 0 1 \}
+..
+.deDL
+.if\\n(.$<1 .)L \\n(Pin 0 1n 0 \(em
+.if\\n(.$=1 .LB 0\\$1 0 1 0 \(em
+.if\\n(.$>1 \{.ie !\w\\$1 .)L \\n(Pin 0 1n 0 \(em 0 1
+.el.LB 0\\$1 0 1 0 \(em 0 1 \}
+..
+.deML
+.if\\n(.$<1 .)D "ML:missing arg"
+.nr;0 \w\\$1u/3u/\\n(.su+1u
+.ie\\n(.$<2 .LB \\n(;0 0 1 0 "\\$1"
+.el.if \\n(.$<3 .LB 0\\$2 0 1 0 "\\$1"
+.if\\n(.$>2 \{.ie !\w\\$2 .LB \\n(;0 0 1 0 "\\$1" 0 1
+.el.LB 0\\$2 0 1 0 "\\$1" 0 1 \}
+..
+.deRL
+.if\\n(.$<1 .LB 6 0 2 4
+.if\\n(.$=1 .LB 0\\$1 0 2 4
+.if\\n(.$>1 \{.ie !\w\\$1 .LB 6 0 2 4 1 0 1
+.el.LB 0\\$1 0 2 4 1 0 1 \}
+..
+.deVL
+.if\\n(.$<1 .)D "VL:missing arg"
+.ie\\n(.$<3 .LB 0\\$1 0\\$2 0 0
+.el.LB 0\\$1 0\\$2 0 0 \& 0 1
+..
+.deP
+.if!(((\\n(!D=\\n(nl):(\\n(!D=(\\n(nl-.5v)))&(\\n(!Z=\\n(.k)&(\\n(Np=0)) \{\
+.br
+.nr;1 \\n(:J
+.nr;2 \\n(nl
+.SP \\n(Psu*.5
+.if!\\n(:D .ne 1v+.5p
+.ie!\\n(;1-\\n(:J .nr ;2 \\n(;2-\\n(:J
+.el.nr ;2 \\n(nl-\\n(:J
+.nr:J \\n(;2
+.if\\n(.$>0&(0\\$1) .ti+\\n(Pin
+.if\\n(.$=0 \{\
+.if\\n(Pt=1 .ti+\\n(Pin
+.if\\n(Pt>1&(\\n(:I) .ti+\\n(Pin
+.if\\n(Pt>1&(\\n(:I=0)&(\\n(:J>0) .ti+\\n(Pin \}
+.if\\n(Np \{\
+\\n(H1.\\n+(!4\ \ \c
+'br\}
+.nr:I 1 \}
+.nr:u  0
+..
+.denP
+.P 0
+.de)p
+'ti6n
+.de)p
+'ti0
+.rm)p
+.wh\\n(.du+\\n(.L+\\n(.L
+\\\\..
+.ch)p \\n(.du+\\n(.L+\\n(.L
+\\..
+.wh\\n(.du+\\n(.L )p
+\\n(H2.\\n+(!5\h'|6n'\\c
+..
+.deS
+.if!\\n(:Q .nr :Q \\nS
+.if!\\n(.$ .nr ;0 \\n(:Q
+.if\\n(.$ .if !\w\\$1 \{\
+.nr;J 2
+.nr;0 \\n(:P \}
+.if\w\\$1 \{\
+.ie\\$1D \{\
+.nr;J 1
+.nr;0 \\nS \}
+.el\{\
+.ie\\$1C \{\
+.nr;J 2
+.nr;0 \\n(:P \}
+.el\{\
+.ie\\$1P \{\
+.nr;J 3
+.nr;0 \\n(:Q \}
+.el\{.if !\\n(;J \{\
+.nr;0 \\n(:P
+.nr;0 \\$1 \}\}\}\}\}
+.if0\\$1-99 .nr ;0 \\nS
+.if!\\n(;0 .)D "S:bad arg \\$1"
+.nr:Q \\n(:P
+.nr:P \\n(;0
+.ps\\n(:Pp
+.nr;J 0
+.if!\\n(!Q .nr !Q \\nS+2
+.if!\\n(.$-1 \{\
+.ie\\n(.$ \{\
+.nr;K 1
+.nr;7 \\n(.s+2 \}
+.el\{\
+.nr;K 3
+.nr;7 \\n(!Q \}\}
+.if\\n(.$-1 .if !\w\\$2 \{\
+.nr;K 2
+.nr;7 \\n(!P \}
+.if\w\\$2 \{\
+.ie\\$2D \{\
+.nr;K 1
+.nr;7 \\n(.s+2 \}
+.el\{\
+.ie\\$2C \{\
+.nr;K 2
+.nr;7 \\n(!P \}
+.el\{\
+.ie\\$2P \{\
+.nr;K 3
+.nr;7 \\n(!Q \}
+.el\{.if !\\n(;K \{\
+.nr;7 \\n(!P
+.nr;7 \\$2 \}\}\}\}\}
+.if0\\$2-99 .nr ;7 \\n(.s+2
+.if!\\n(;7 .)D "S:bad arg \\$2"
+.nr!Q \\n(!P
+.nr!P \\n(;7
+.vs\\n(!Pp
+.nr;K 0
+..
+.rnpn ]N
+.depn
+.nr:Z 1
+.]N \\$1
+..
+.deSA
+.if\\n(.$ \{.if \\$1-1 .)D "SA:bad arg:\\$1"
+.nr:h 0\\$1 \}
+'na
+.if\\n(:h 'ad
+..
+.deSK
+.br
+.nr;d 1
+.bp
+.nr;9 0\\$1-1
+.if\\n(;9+1 .rs
+.if\\n(;9+1 .SK \\n(;9
+.rr;9
+.nr;d 0
+..
+.deOP
+.SK
+.if!\\nP%2 .SK 1
+..
+.deSP
+.br
+.ie\\n(:D .)S \\$1
+.el.ie !'\\n(.z'' .)S \\$1
+.el\{.rr ;D ;E
+.nr;4 1v
+.if\\n(.$ .nr ;4 \\$1v
+.if!(\\n(nl=\\n(:N) .nr :A 0
+.nr;4 -\\n(:Au
+.if\\n(;4 \{.sp\\n(;4u
+.nr:A +\\n(;4u \}
+.nr:N \\n(nl \}
+..
+.de)S
+.br
+.if!'\\n(.z'\\*(}D' .rr ;D ;E
+.nr;4 1v
+.if\\n(.$ .nr ;4 \\$1v
+.if!(\\n(.d=\\n(;D) .nr ;E 0
+.nr;4 -\\n(;Eu
+.if\\n(;4 \{.sp\\n(;4u
+.nr;E +\\n(;4u \}
+.nr;D \\n(.d
+.ds}D \\n(.z
+..
+.deTS
+.if(\\n(:D=0)&(\\n(Ds>0) .SP
+.if\\$1H \{.br
+'ne5v     
+.wh\\n(nlu+\\n(.tu-2v #f
+.di>t
+.nr;A 1 \}
+..
+.deTH
+.if\\n(.du>0.5v \{.nr T. 0
+.T# 0 \}
+.br
+.di
+.nr;I \\n(.i
+.nr;B 1
+.if\\n(;T .if !\\$1N .nr ;T 0
+.in0
+.mk#a
+.mk#b
+.mk#c
+.mk#d
+.mk#e
+.mk#f
+.if\\n(;T=0 \{\
+.>t
+.nr;T 1	\}
+.in\\n(;Iu
+.mk#T
+..
+.deTE
+.if(\\n(:D=0)&(\\n(Ds>0) .SP
+.if(\\n(;A>0)&(\\n(;B=0) \{.br
+.di
+.)D "TE: used TS H but no TH" \}
+.rr;A ;B ;h ;D ;E
+.rmT#       
+.rr#a       
+.rma+ b+ c+ d+ e+ f+ g+ h+ i+ j+ k+ l+ n+ m+
+.rr32 33 34 35 36 37 38 40 79 80 81 82
+.rra| b| c| d| e| f| g| h| i| j| k| l| m|
+.rra- b- c- d- e- f- g- h- i- j- k- l- m-
+..
+.de)A
+.af:a 1
+.ds]a \\n(:a \\*(]a
+.ds]b \\n(:b \\*(]b
+.ds]c \\n(:c \\*(]c
+.ds]d \\n(:d \\*(]d
+.ds]e \\n(:e \\*(]e
+.ds]f \\n(:f \\*(]f
+.ds]h \\*(]g \\*(]h
+..
+.de)B
+.br
+.nr:g -1
+.)C nr :a ]a \\*(]a
+.)C nr :b ]b \\*(]b
+'in\\n(:bu
+'ti\\n(:bu
+.)C nr :c ]c \\*(]c
+.)C nr :d ]d \\*(]d
+.)C nr :e ]e \\*(]e
+.)C nr :f ]f \\*(]f
+.)C ds ]g ]h \\*(]h
+.af:a 1
+.if\\n(:e .af :a \\*(]g
+..
+.de)C
+.\\$1 \\$2 \\$4
+.ds\\$3 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.de)D
+'di
+'di
+.nr:D 0
+.fl
+********************
+.br
+ERROR:(\\n(.F)input line \\n(.c:\\$1
+.br
+********************
+.tm********************
+.tmERROR:(\\n(.F)input line \\n(.c:\\$1
+.tm********************
+.if!\\nD .ab \&
+..
+.deTB
+.nr!1 1
+.ie\\nN=5 .)F TABLE 1 \\n+(Tb "\\$1" "\\n(H1-" 0
+.el.)F TABLE 1 \\n+(Tb "\\$1" "\\$2" 0\\$3
+..
+.deEC
+.nr!2 1
+.ie\\nN=5 .)F Equation 2 \\n+(Ec "\\$1" "\\n(H1-" 0
+.el.)F Equation 2 \\n+(Ec "\\$1" "\\$2" 0\\$3
+..
+.deEX
+.nr!3 1
+.ie\\nN=5 .)F Exhibit 3 \\n+(Ex "\\$1" "\\n(H1-" 0
+.el.)F Exhibit 3 \\n+(Ex "\\$1" "\\$2" 0\\$3
+..
+.deFG
+.nr!0 1
+.ie\\nN=5 .)F Figure 0 \\n+(Fg "\\$1" "\\n(H1-" 0
+.el.)F Figure 0 \\n+(Fg "\\$1" "\\$2" 0\\$3
+..
+.de)F
+.nr;0 \w\\$5
+.nr;1 0
+.nr;1 0\\$6
+.ds}0 \\$3
+.if\\n(;0 .ds }0 \\$5\\$3
+.if\\n(;1*\\n(;0 .ds }0 \\$3\\$5
+.if\\n(;1-1*\\n(;0 .ds }0 \\$5
+.ds}0 \\$1\ \\*(}0
+.ie(\w\\$4)&(\\n(Of=0) .as }0 .\ \ 
+.el.if \\n(Of .as }0 " -\ 
+.nr;0 \w\\*(}0
+.ll\\nWu
+.nr;1 \\n(.lu-\\n(;0u-\w\\$4u+1u
+.if(\\n(:B<2)&(\\n(;1>0) \{\
+.in0  
+.ce\}
+.if!\\n(;1 \{\
+.if!\\n(.u .nr ;U 1  
+.if\\n(:B=2 .ce 0
+.fi
+.in\\n(;0u
+.ti-\\n(;0u \}
+\f3\\*(}0\fP\\$4
+.ll
+.in
+.if\\n(:B=2 .ce 9999
+.if\\n(;U \{\
+.nf
+.nr;U 0 \}
+.if(\\n(Lf=1&(\\$2=0)):(\\n(Lt=1&(\\$2=1)):\
+(\\n(Le=1&(\\$2=2)):(\\n(Lx=1&(\\$2=3)) \{\
+.ds}3
+.if\\n(:S .ds }3 \\n(H1
+.ie\\n(:y=1 \{\
+.ie\\n(:B=3 \{\
+\!\\!.am >L
+\!\\!.if \\$2=\\\\\\\\\\\\\\\\$1 .)T 1 1 "\\*(}0" "\\$4" \\\\\\\\nP \\*(}3
+\!\\!\\\\..
+'br\}
+.el\{\
+\!.am >L
+\!.if \\$2=\\\\\\\\$1 .)T 1 1 "\\*(}0" "\\$4" \\\\nP \\*(}3
+\!\\\\..
+'br\} \}
+.el\{\
+.am>L
+.if\\$2=\\\\$1 .)T 1 1 "\\*(}0" "\\$4" \\nP \\*(}3
+\\.. \} \}
+..
+.de)I
+.nr;9 0\\$1+1
+.ds}3 \\$\\n(;9
+.rr;9
+..
+.de)E
+.ds}3
+.if\\n(:S .ds }3 \\n(H1
+.am>C
+.)T \\n(;1 \\$1 "\\*(}0" "\\$2" \\nP \\*(}3
+\\..
+..
+.de)T
+.nr;0 \w\\$5
+.if\w\\$6 .nr ;0 +\w'-'u+\w\\$6u
+.if\\n(;0-\\n(:a .nr :a \\n(;0
+.)I \\$1 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6 \\n(H7
+.if\w\\$3-\\*(}3 .nr H\\$1 \w\\$3
+..
+.de)U
+.if!0\\$1-\\n(:b .sp\\n(:cu*.5v
+.)I \\$1 \\*(}0
+.nr;0 \\*(}3
+.)I \\$1 \\*(Ci
+.nr;1 \\*(}3
+.)I \\$1 \\*(}2
+.nr;2 \\*(}3
+.ds}3 \\$5
+.if\\n(.$-5 .ds }3 \\$6\(hy\\$5
+.nr:e \\n(:au-\w\\*(}3u+2n
+.ds}3 \h\\n(:eu\\*(}3
+.ds}y
+.nr;0 -\w\\$3
+.if\\n(;0 .as }y \h\\n(;0u
+.if2-0\\$1 .as }y "\\$3
+.if0\\$1-1 .ds }y "\\$3\\*(}y
+.if!0\\$2 .ds }y
+.ll\\nWu-\\n(:au-3n
+.in\\n(;2u
+.if!0\\$2 .in\\n(;1u
+.ti\\n(;1u
+.fi
+.di>A
+\!.cs 3 48
+.if!0\\$1-\\n(:d .if !\\n(:f \\*(}y\\$4\\\\f3\\a\\\\fP\\*(}3
+.if!0\\$1-\\n(:d .if \\n(:f \\*(}y\\$4\\t\\*(}3
+.if0\\$1-\\n(:d \\*(}y\\$4\\*(}3
+.br
+\!.br
+\!.cs 3
+.di
+.br
+.ll\\nWu
+.ne\\n(dnu+.5p-1v
+.ta\\nWu-\\n(:au-2n
+.nf
+.in0
+.na
+.>A
+..
+.de)Z
+.in0
+.ie!\\n(Cp \{\
+.SK
+.rs
+.sp3v
+.ce1 \}
+.el.sp 2v
+\\$1
+.sp1v
+.nr:a 0
+.nrH1 0
+.afH1 1
+.>L \\$2
+.rn)T )V
+.rn)U )T
+.ds}0 \\n(H1
+.dsCi 0
+.ds}2 \\n(H1
+.>L \\$2
+.rn)T )U
+.rn)V )T
+..
+.deTC
+.LC 0
+.if\\n(:F .FE
+.if\\n(:y .DE 
+.if\\n(!N=1 .NE 
+.)N
+.)w
+.if\\n(;R .RP 0 1
+.)R
+.rm)E )F DE DF DS FD FE FG FS H HU TB
+.if!\\nP-1 .if \\nN .if !\\nN-1 .rn }t }b
+.if!\\nP-1 .if \\nN .if !\\nN-1 .nr N 0 
+.rm}t }e }o
+.rs
+.if\\n(;C .nr ;C 2
+.bp
+.ie\\n(Oc .nr P 1 
+.el\{\
+.rm}f }p
+.nr;g 1 1
+.af;g i
+.ds}b ''- \\\\n(;g -''
+.am)b
+.nr;g +1
+\\..
+'br\}
+.nrN 0
+.rs
+.if!\\n(.$-4 .TX
+.if\\n(;C .ll \\n(:Lu
+.if!\\n(.$-4 .TY
+.ce99
+.if\\n(.$-4 \\$5
+.if\\n(.$-5 \\$6
+.if\\n(.$-6 \\$7
+.if\\n(.$-7 \\$8
+.if\\n(.$-8 \\$9
+.if\\n(.$-4 .sp
+.ce0
+.sp
+.if\\n(;C .ll \\n(:lu
+.nr;m \\n(.hu+2v
+.nr:b 1
+.if\w\\$1 .nr :b 0\\$1
+.nr:c 1
+.if\w\\$2 .nr :c 0\\$2
+.nr:d 2
+.if\w\\$3 .nr :d 0\\$3
+.nr:f 0
+.if\w\\$4 .nr :f 0\\$4
+.nrH1 0
+.afH1 1
+.nrH2 0
+.afH2 1
+.nrH3 0
+.afH3 1
+.nrH4 0
+.afH4 1
+.nrH5 0
+.afH5 1
+.nrH6 0
+.afH6 1
+.nrH7 0
+.afH7 1
+.nr:a 0
+.>C
+.rn)T )V
+.rn)U )T
+.ds}0 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6 \\n(H7
+.nrH2 +\\n(H1
+.nrH3 +\\n(H2
+.nrH4 +\\n(H3
+.nrH5 +\\n(H4
+.nrH6 +\\n(H5
+.nrH7 +\\n(H6
+.if!\w'\\*(Ci' .ds Ci 0 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6
+.ds}2 \\n(H1 \\n(H2 \\n(H3 \\n(H4 \\n(H5 \\n(H6 \\n(H7
+.>C
+.rm>C HX
+.rn)T )U
+.rn)V )T
+.if(\\n(Lf=1)&(\\n(!0>0) .)Z "\\*(Lf" 0
+.if(\\n(Lt=1)&(\\n(!1>0) .)Z "\\*(Lt" 1
+.if(\\n(Lx=1)&(\\n(!3>0) .)Z "\\*(Lx" 3
+.if(\\n(Le=1)&(\\n(!2>0) .)Z "\\*(Le" 2
+.)R
+..
+.deTY
+.ce
+CONTENTS
+..
+.deTL
+.nr:D 2 
+.nr;c 2 
+.nr;z 0 
+.nr:V 0 
+.nr:1 \\n(.i 
+.if\\nC=4 .ls 1 
+.if\\nC=5 .ls 1 
+.ds>1 \\$1
+.ds>2 \\$2
+'nr;y 1
+.eo
+'de>T AU
+..
+.deAU
+.ec
+.nr:D 1 
+.nr;c 1 
+.if!\\n(;y 'nf
+.if\\n(;y .>9 
+.rmTL
+.ll\\nWu
+.da>z
+'if\\nE 'ft 3
+.if(\\n(;z>0)&(\\n(Au>0) .sp 
+\\$1
+.if\\n(Au>0 \{.if \w\\$3 .ie \\$3HP HP\ \&\c
+.el\\$3\ \&\c
+.if\w\\$4 \\$4
+.if\w\\$3 .if !\w\\$4 \&
+.if\w\\$6 \\$6\ \&\c
+.if\w\\$5 x\\$5
+.if\w\\$6 .if !\w\\$5 \&
+'br\}
+.if\\n(.$-6 \\$7
+.if\\n(.$-7 \\$8
+.if\\n(.$-8 \\$9
+.br
+'if\\nE 'ft1
+.di
+.nr;z +\\n(dn
+.nrdn 0
+'in\\n(:1u
+.if!\\n(:V .ds }v \\$3-\\$4-\\$2
+.if\\n(:V .as }v /\\$2
+.da>v
+'if\\nE 'ft 3
+.sp3
+\\$1
+.br
+'if\\nE 'ft1
+.di
+.nr:V +\\n(dnu
+.nrdn 0
+.nr:H 0
+.ds}L \\$3
+.if'\\$3'AL' .ds }L }B
+.if'\\$3'ALC' .ds }L }B
+.if'\\$3'CP' .ds }L PY
+.if'\\$3'FJ' .ds }L HO
+.if'\\$3'HK' .ds }L HL
+.if'\\$3'HOH' .ds }L HO
+.if'\\$3'HOH' .nr :H 1
+.if'\\$3'HP' .ds }L }A
+.if'\\$3'HR' .ds }L RR
+.if'\\$3'INH' .ds }L }I
+.if'\\$3'IW' .ds }L IH
+.if'\\$3'IX' .ds }L IH
+.if'\\$3'LC' .ds }L WV
+.if'\\$3'LZ' .ds }L }K
+.if'\\$3'MO' .ds }L }M
+.if'\\$3'MT' .ds }L RR
+.if'\\$3'PK' .ds }L }P
+.if'\\$3'RD' .ds }L }E
+.if'\\$3'RR' .ds }L PY
+.if'\\$3'SF' .ds }L CP
+.if'\\$3'SZ' .ds }L }F
+.if'\\$3'WI' .ds }L }W
+.am>4
+.ps+1
+.ft2
+\\$1
+.br
+.ps
+.ft1
+.if\\\\n(:2 .sp .5v
+.if\\\\n(:2 \\*(}Z
+.if\\\\n(:2 .if \\n(:H \\\\*(}H
+.if\\\\n(:2 \\\\*(\\*(}L
+.if\\\\n(:2 .sp .5v
+.ds}z \\\\*(\\*(}L
+\\..
+..
+.de>9
+.di}z
+'ll\\nWu-34n
+'nh
+'na
+'fi
+'if\\nE 'ft 3
+.>T
+.if(\w'\\*(>1')&(\w'\\*(>2') \{\
+.ie'\\*(>1'\\*(>2' \{\
+.br
+Work Project No. and Filing Case \\*(>1
+.br\}
+.el\{\
+.br
+Work Project No. \\*(>1
+.br
+File Case \\*(>2
+.br\} \}
+.if(\w'\\*(>1'=0):(\w'\\*(>2'=0) \{\
+.ie\w'\\*(>1' \{\
+- Work\ Project\ No.\ \\*(>1
+.br\}
+.el.ie \w'\\*(>2' \{\
+- Case\ \\*(>2
+.br\}
+.el.br \}
+.ll\\nWu
+.di
+.if\\nE .ft1
+.nr:9 \\n(dn 
+.nrdn 0
+.nr;y 0
+'nf
+.rm>9
+..
+.deAT
+.da>v
+'if\\nE 'ft 3
+.if\\n(.$-0 \\$1
+.if\\n(.$-1 \\$2
+.if\\n(.$-2 \\$3
+.if\\n(.$-3 \\$4
+.if\\n(.$-4 \\$5
+.if\\n(.$-5 \\$6
+.if\\n(.$-6 \\$7
+.if\\n(.$-7 \\$8
+.if\\n(.$-8 \\$9
+.br
+'if\\nE 'ft
+.di
+.nr:V +\\n(dnu
+.nrdn 0
+..
+.deOK
+.nr:D 1 
+.nr;c 1  
+.de>7
+.ps-1
+.if\\n(.$-0 \\$1
+.if\\n(.$-1 \\$2
+.if\\n(.$-2 \\$3
+.if\\n(.$-3 \\$4
+.if\\n(.$-4 \\$5
+.if\\n(.$-5 \\$6
+.if\\n(.$-6 \\$7
+.if\\n(.$-7 \\$8
+.if\\n(.$-8 \\$9
+.ps
+\\..
+.rmOK
+..
+.deTM
+.nr:D 1 
+.nr;c 1 
+.de>8
+.if\\nE .ft 3
+.if\\n(.$-0 \\$1
+.if\\n(.$-1 \\$2
+.if\\n(.$-2 \\$3
+.if\\n(.$-3 \\$4
+.if\\n(.$-4 \\$5
+.if\\n(.$-5 \\$6
+.if\\n(.$-6 \\$7
+.if\\n(.$-7 \\$8
+.if\\n(.$-8 \\$9
+.if\\nE .ft1
+\\..
+.nr;x \\n(.$+1 
+.rmTM
+..
+.deAS
+.nr:D 3 
+.nr;c 3 
+.rmTL
+.nr:t 0\\$1 
+.if\\n(:t=1 .nr ;s \\n(:s 
+.nr:3 0
+.if\\n(.$-1 .nr :3 0\\$2n 
+.nr;N \\n(:1  
+'in\\n(:1u
+'fi
+.SA
+'nh
+'if\\n(Hy 'hy 14
+.di>3
+.ll0u-2u*\\n(:3u+\\nWu
+.ce
+.ul
+.ie'\\$3'ER' ERRATA
+.el.ie '\\$3'AD' ADDENDUM
+.elABSTRACT
+.SP 1.5
+.ns
+.nr:I 1
+.rmAS
+..
+.deAE
+.br
+.di
+'nf
+'nh
+.nr;3 \\n(dn
+.nr;6 \\n(;3 
+.ll\\nWu
+'in\\n(:1u
+.if\\n(:t=1 .nr :s \\n(;s 
+.rmAE
+..
+.deMT
+.if\\n(!N=1 .NE
+.nr:D 0 
+.nr;c 0  
+.if!\\n(;y 'nf
+.rmTL TM OK AS AE AF AU
+.ll\\nWu
+.rnTP >Y 
+.in\\n(:1u
+.rn>Y TP
+.rn)K >Y
+.ie\w\\$1u<2n .if !0\\$1=4 .if \\n(.$=2 .ds ]n \\$2
+.el.if \\n(.$=2 .ds ]n \\$2
+.if!\\n(.$ .>6
+.if\\n(.$ .if \w\\$1u-\w'0'u .>6 "\\$1"
+.if\\n(.$ .nr ;y 0\\$1
+.if\\n(.$ .if !\\n(;y .>6 ""
+.if\\n(.$ .if \\n(;y-4 .>x 
+.if\\n(.$ .if \\n(;y-3 .>5 "\\$2"
+.if\\n(.$ .if \\n(;y-2 .>6 "ADMINISTRATIVE MEMORANDUM"
+.if\\n(.$ .if \\n(;y-1 .>6 "INTERNAL MEMORANDUM"
+.if\\n(.$ .if \\n(;y .>6 "TECHNICAL MEMORANDUM"
+.)R
+.ft1
+.ft1
+.ta.5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i
+.ns
+.if\\nC=4 .ls 2 
+.if\\nC=5 .ls 2 
+.>Y
+.]N \\nP+1
+.rm>Y MT
+..
+.de>x
+.rm>6 >5 )Y )X
+.ta\\nWu-1.4i
+.br
+.rs
+.sp1
+.if\\n(Pv \{\
+.ce
+PRIVATE\h'-\w'PRIVATE'u'\l'\w'PRIVATE'u'
+.sp\}
+.sp|4v
+.}z
+.br
+.rs
+.mk:2
+.sp|12v
+.in\\nWu-1.4i
+.ti+6
+.ie\\nE \{\
+\f3\\*(DT\fP
+'br\}
+.el\{\
+\\*(DT
+'br\}
+.if\\n(:2u-\\n(nlu .sp |\\n(:2u
+.sp2v
+.rm>x
+..
+.de>6 
+.rm>5 >x )Y
+.di]t  
+.ta\\nWu-1.75i 
+.br
+.rs
+.sp1
+.if\\n(Pv \{\
+.ce
+PRIVATE\h'-\w'PRIVATE'u'\l'\w'PRIVATE'u'
+.sp\}
+.sp|1.25i
+.ie!(\\nA=3) \t\\*(]S 
+.el.if \w\\*(}Z \t\s16\f3\\*(}Z\fP\s0
+.vs12p
+.sp|1.9i
+.mk:2
+\!.po -\w'\s8subject:\s0'u+1n
+\s8subject:\s0
+.rt-1
+\!.po
+.}z
+.br
+.rt\\n(:2u
+.in\\nWu-1.4i
+.ps8
+.ti-6n
+date:
+.ps
+.rt-1
+.ie\\nE \{\
+\f3\\*(DT\fP
+'br\}
+.el\{\
+\\*(DT
+'br\}
+.sp
+.ps8
+.ti-6n
+from:
+.ps
+.rt-1
+.if\\nE .ft 3
+.>z
+.if\\nE .ft
+.in\\n(:1u
+.if\\n(;x \{.sp
+.in\\nWu-1.4i
+.>8
+.in\\n(:1u \}
+.br
+.if\\n(:9u-\\n(;zu-2v-\\n(;xv .sp \\n(:9u-\\n(;zu-2v-\\n(;xv
+.sp3
+.di
+.rs
+.ie\\n(;3 \{\
+.ie\\n(:t=2 \{\
+.af!S \\gP 
+.afP i
+.]t  
+.in+\\n(:3u
+.>3  
+.sp3
+.)N  
+.in-\\n(:3u
+.wh0 )k  
+.bp
+.nrP 1  
+.afP \\g(!S 
+.]t  
+.wh0 )h  
+.if\\n(:G \{\
+.nr:s +1  
+.da>y
+.>d
+\!.			br
+.di
+'nrdn +4v+.5p
+'nr:o +\\n(dnu
+.nrdn 0
+'if!\\n(.pu-\\n(nlu-.5p-\\n(:ou 'nr :o \\n(.pu-\\n(nlu-.5p
+'if!\\n(:ou-\\n(:mu 'nr :o \\n(:mu
+'ch)f -\\n(:ou 
+'br\}
+.tmWARNING:  Approved ITDS Document Cover Sheet not available with this package.
+.rmCS \}  
+.el.ie \\n(:t=1 .]t  
+.el\{\
+.]t  
+.in+\\n(:3u
+.>3  
+.sp3
+.in-\\n(:3u \} \}
+.el.]t  
+.ns
+.ne10
+.ce
+.ul
+.if!\\n(.$ TECHNICAL MEMORANDUM
+.if\\n(.$ .if \w\\$1 \\$1
+.SP 3 
+.ce0
+.ul0
+.if!\\n(:t=2 .)X
+.nr;M 1 
+.rm)X >6
+..
+.de>5
+.rm>6 >x )X
+.br
+.rs
+.sp1
+.ie\\n(Pv \{\
+.ce
+PRIVATE\h'-\w'PRIVATE'u'\l'\w'PRIVATE'u'
+.sp4\}
+.el'sp 5
+.in0
+.ds}A "South Plainfield, New Jersey 07080
+.ds}B "Allentown, Pennsylvania 18103
+.ds}E "Reading, Pennsylvania 19604
+.ds}F "Springfield, New Jersey 07081
+.ds}H "Crawford Hill Laboratory
+.ds}I "Indianapolis, Indiana 46250
+.ds}K "Lincroft, New Jersey 07738
+.ds}M "Morristown, New Jersey 07960
+.ds}P "Parsippany, New Jersey 07054
+.ds}W "Ward Hill, Massachusetts 01830
+.dsAK "Norcross, Georgia 30071
+.dsCB "Columbus, Ohio 43213
+.dsCH "Chester, New Jersey 07930
+.dsCP "Summit, New Jersey 07901
+.dsDR "Denver, Colorado 80234
+.dsHL "Short Hills, New Jersey 07078
+.dsHO "Holmdel, New Jersey 07733
+.dsIH "Naperville, Illinois 60566
+.dsIN "Indianapolis, Indiana 46206
+.dsMH "Murray Hill, New Jersey 07974
+.dsMV "North Andover, Massachusetts 01845
+.dsPY "Piscataway, New Jersey 08854
+.dsRR "Middletown, New Jersey 07748
+.dsWB "West Long Branch, New Jersey 07764
+.dsWH "Whippany, New Jersey 07981
+.dsWV "Warren, New Jersey 07060
+.ll\\nWu
+.fi
+.na
+.nh
+.di>6
+.ps+2
+.vs\\n(.sp+4p
+.if\\nE .ft3
+.nr;X 1
+.>T
+.nr;X 0
+.ps
+.vs\\n(.sp+2p
+.if\\nE .ft1
+.br
+.di
+.nf
+.ce1000
+.>6
+.nr:2 0
+.if\w\\$1 .nr :2 1
+.ul0
+.sp.5v
+.>4
+.br
+.if!\\n(:2 .sp.5v
+.if!\\n(:2 \\*(}Z
+.if!\\n(:2 .if \\n(:H \\*(}H
+.if!\\n(:2 \\*(}z
+.ce0
+.sp
+.if\\n(;3 .if !\\n(:t .in +\\n(:3u
+.if\\n(;3 .if !\\n(:t .>3
+.if\\n(;3 .if !\\n(:t .in -\\n(:3u
+.if\\n(;3 .if !\\n(:t .sp 
+.ns
+.br
+.)Y
+.rm)Y >6 PY MH WH HO RR }H WB }A }B }E HL }I
+.rmAK CP CH CB DR IN IH MV WV SG )N )M
+.rm}P }M }W }F }K
+.deNS
+.br
+.di
+.di>Y
+\\..
+.deNE
+.br
+.di
+\\..
+.rm>5
+..
+.de)K
+.ie(\\n(;F=5)&(\\n(:D) .)D "check WA, WE, IA, IE, LT sequence"
+.el.if \\n(:D .ie !\\n(:t=2 .)D "check TL, AU, AS, AE, MT sequence"
+.el.)D "check TL, AU, AS, AE, NS, NE, MT sequence"
+.rm)X )Y >T >x >z >1 >2 >3 >4 >5 >6 >7 >8 >9 }z
+.rr;x ;y ;z :D :1 :2 :3 :9 ;0 ;1 ;2 ;3 
+.rmTL AU TM AF AS AE OK
+.rm)K
+..
+.de)X
+.di>S
+\!.tm WARNING:  Approved ITDS Document Cover Sheet not available with this package.
+.di
+..
+.de)Y
+.di>S
+\!.bp
+\!.in 0
+\!.ce 1000
+\!.ul 1000
+.>6
+\!.ul 0
+\!.sp .5v
+.>4
+\!.br
+\!.if \\n(:2=0 .sp.5v
+\!.if \\n(:2=0 \\*(}Z
+\!.if \\n(:2=0 .if \\n(:H \\*(}H
+\!.if \\n(:2=0 \\*(}z
+\!.ce 0
+\!.sp 
+\!.in 0
+\!.in +\\n(:3u
+.>3
+\!.in -\\n(:3u
+\!.nr ;0 1
+.di
+.di>b
+.nf
+.na
+.>c
+.br
+.di
+.rm>b
+.if\\n(dn \{\
+.nr;c \\n(.pu-\\n(dnu-8v
+.da>S
+\!.ie \\n(;cu-\\\\n(nlu .sp \\n(;cu-\\\\n(nlu
+\!.el .sp .5v
+.nr;c 0
+\l'60p'
+.>c
+.di
+.br\}
+..
+.deCS
+.LC 0
+.if\\n(:F .FE
+.if\\n(:y .DE 
+.if\\n(!N=1 .NE 
+.)N
+.)w 
+.if\\n(;R .RP 0 1
+.if!\\nP-1 .if \\nN .if !\\nN-1 .rn }t }b
+.if!\\nP-1 .if \\nN .if !\\nN-1 .nr N 0 
+.rm}t }e }o
+.rm}b }f }p
+.br
+.)R
+.ll\\nWu
+.in0
+.nr!O \\nO
+.nr!W \\nW
+.br
+.rs
+.nf
+.>S
+.nrO \\n(!O
+.nrW \\n(!W
+.po\\nOu
+.ll\\nWu
+.lt\\nWu
+.)R 
+.ta.5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i
+.nr;0 0
+.nr;1 0
+.nr;2 0
+.rm>S
+..
+.deFC
+.)w
+.nf
+.ls1
+.in(\\n(.lu/2u)
+.rs
+.ne\\n(:Vu+3v+.5p
+.rmLT
+.ie\\n(;F \{\
+.sp2 
+.ie\\n(;F<3 \{\
+.ie\\n(.$ \\$1
+.elYours very truly, \}
+.el.if \\n(;F=3 \{\
+.in0
+.ie\\n(.$ \\$1
+.elYours very truly, \} \}
+.el\{\
+.sp
+.ie\\n(.$ \\$1
+.elYours very truly, \}
+.in
+.fi
+..
+.deSG
+.if\\n(:F .)D "SG:missing FE"
+.if\\n(:y .)D "SG:missing DE"
+.LC 0 
+.)w
+.)R 
+.in0
+.nf
+.ls1
+.ne5v+.5p
+.rs
+.ie\\n(;F \{\
+.ie\\n(;F<4 \{\
+.sp3
+.if\\n(;F<3 .in (\\n(.lu/2u)
+\\*(}8
+.if\w\\*(}9 \\*(}9 \}
+.el\{\
+.sp2
+.br
+.traAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ
+.ie\w\\*(}9 \\*(}8, \\*(}9
+.el\\*(}8
+.traabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz\}
+.in0
+.sp
+\\$1\}
+.el\{\
+.if!\\n(:V .)D "SG:no authors"
+.if\w\\$1 .as }v -\\$1
+.if\\n(.$>1 \{\
+.sp3
+\\*(}v
+.sp-4 \}
+.in(\\n(.lu/2u)
+.>v
+.in
+.if\\n(.$=1 \{\
+.sp-1
+\\*(}v
+'br\}
+.rm>v
+.fi\}
+..
+.deNS
+.if\\n(!N=1 .di 
+.if\\n(;M .br 
+.)R 
+.nr:D 1  
+.ds}4 "Copy to
+.nr;0 0\\$1
+.if\w\\$1u-\w'\0\0'u .nr ;0 50
+.if\\n(;0 .ds }4 "Copy (with att.) to
+.if\\n(;0-1 .ds }4 "Copy (without att.) to
+.if\\n(;0-2 .ds }4 "Att.
+.if\\n(;0-3 .ds }4 "Atts.
+.if\\n(;0-4 .ds }4 "Enc.
+.if\\n(;0-5 .ds }4 "Encs.
+.if\\n(;0-6 .ds }4 "U.S.C.
+.if\\n(;0-7 .ds }4 "Letter to
+.if\\n(;0-8 .ds }4 "Memorandum to
+.if\\n(;0-9 .ds }4 "Copy (with atts.) to
+.if\\n(;0-10 .ds }4 "Copy (without atts.) to
+.if\\n(;0-11 .ds }4 "Abstract only to
+.if\\n(;0-12 .ds }4 "Complete memorandum to
+.if\\n(;0-13 .ds }4 "Copy (\\$1) to
+.if\\n(.$-1 .ds }4 \&\\$1
+'in\\n(;N  
+.if!\\n(!N .ds }5 \\*(}4  
+.if\\n(!N  .da }C  
+.if!\\n(!N  .di }C  
+.if\\n(!N .if !\\n(;F .sp
+\!.ds }4 \\*(}4
+\\*(}4
+.nf
+.nr!N 1  
+..
+.de)N
+.br
+.rr!N
+.di]v
+.}C
+.br
+.di
+.rm]v
+.nr;0 \\n(dn
+.if\\n(;0 .)M
+..
+.de)M
+.nf
+.if!\\n(;F .sp
+.ne2v
+.if\\n(.tu<=2v \{\
+\&\\*(}5
+.ie!\\n(;C See next page
+.elSee next column
+'br\}
+.nr!U \\n(;0>=\\n(.tu
+.if\\n(!U \{\
+.ie!\\n(;C .ds ]w Continued next page
+.el.ds ]w Continued next column
+.ds]x \\\\*(}4\ \-\ contd.
+.ch)f -(\\n(:ou+1v) \}
+.}C
+.if\\n(!U \{\
+.rm]w ]x
+.ch)f -\\n(:ou \}
+.rm}C
+..
+.deNE
+.br
+.if\\n(!N=1 .di
+.nr:D 0
+.nr!N 2
+.if\\n(;M .)N  
+.)R 
+..
+.deAV
+.ne6v
+.in0
+.nf
+.if\\n(.$<2 \{\
+.sp
+APPROVED:
+'br\}
+.sp2
+\l'3i'\h'.3i\l'1.5i'
+\\$1\h'|4i-(\w'Da'u)'Date
+.in
+.fi
+..
+.deND
+.if!\\n(.$ .)D "ND:missing arg"
+.dsDT "\\$1
+..
+.deAF
+.ds}Z "\\$1
+.if\w\\n(}Z .nr A 3 '
+..
+.de)h
+'ev0
+'nh
+'if\\n(Hy 'hy 14
+'ev
+'ev2
+.nr;8 1
+.)k
+.rr;8
+.)R
+.nrP +1
+.if\\n(:Z \{.nr P \\n%
+.rr:Z \}
+.if\\n(:u*\\n(:S .nr P 1 
+.if\\n(:u=1 \{.nr H1 +1 
+.nr:u 2 \}
+'sp\\n(!X
+.TP
+.br
+.)R
+'ev
+.nr:I 2
+.nr:J \\n(nl
+'ns
+'if\\n(:q .)l 
+'nr:q 0
+.mk;r
+.mk;m
+.nr!B 0
+.if\\n(;d=0&\\n(:z>0 \{\
+'ie\\n(Df>3  \{')z
+')s \}
+'el'if \\n(Df>1 ')z \}
+.nr:I 3
+.nr!C \\n(.h
+.PX 
+'ns
+.if!((\\n(!C=\\n(.h)&(\\n(!B=0)) .mk ;m
+.nr;T 0
+.if\\n(;A>0 \{.nr ;h \\n(.i
+.in0
+.>t
+.nr;T 1
+.in\\n(;hu	\}
+.mk#T
+.nr:J \\n(nl
+.if!\\*(]x \\*(]x
+..
+.de)f
+.if!\\*(]w \\*(]w
+.nr!D 0
+.nr:N 0
+'nrdn 0
+'nr;y \\n(.pu-\\n(nlu-\\n(:mu
+'if\\n(:s \{'ie \\n(;y-4v .)o
+'el.)m \}
+'nr:s 0
+'nr:o \\n(:mu
+.ie\\n(;C=0 \{\
+.if\\n(;e \&\c
+'bp\}
+.el.ie \\n(;C=2 .)2
+.el.)1
+.rr;f
+.ie\\*(]w 'ch )f -\\n(:ou
+.el'ch )f -(\\n(:ou+1v)
+..
+.dePH
+.ds}t "\\$1
+..
+.deEH
+.ds}e "\\$1
+..
+.deOH
+.ds}o "\\$1
+..
+.dePF
+.ds}b "\\$1
+..
+.deEF
+.ds}f "\\$1
+..
+.deOF
+.ds}p "\\$1
+..
+.deTP
+'sp
+.)K
+.af;P \\gP
+.afP 1
+.nr;P \\nP
+.afP \\g(;P
+.af;P 1
+.ie\\n(Pv \{\
+.ie(\\n(Pv=1)&(\\n(;P>1) 'sp 2
+.el\{\
+.ce
+PRIVATE\h'-\w'PRIVATE'u'\l'\w'PRIVATE'u'
+.sp\} \}
+.el'sp 2
+.if!\\n(;P-1 .if \\nN 'sp
+.if!\\n(;P-1 .if \\n(:S .tl \\*(}t
+.if!\\n(;P-1 .if !\\nN .tl \\*(}t
+.if\\n(;P-1 .ie \w'\\*(]n' .tl '\\*(]n - \\nP'''
+.el.tl \\*(}t
+'if!\\n(;P%2 'tl \\*(}e
+'if\\n(;P%2 'tl \\*(}o
+'sp2
+..
+.dePM
+.ie\\$1 .		nr ;t 0
+.el.ie \\$1PM6 .	nr ;t 6
+.el.ie \\$1ILL .	nr ;t 5
+.el.ie \\$1PM5 .	nr ;t 5
+.el.ie \\$1RS .	nr ;t 4
+.el.ie \\$1PM4 .	nr ;t 4
+.el.ie \\$1CP .	nr ;t 3
+.el.ie \\$1PM3 .	nr ;t 3
+.el.ie \\$1RG .	nr ;t 2
+.el.ie \\$1PM2 .	nr ;t 2
+.el.nr ;t 1
+.ie\\n(;t=0 \{\
+.(B
+.(E 2 0
+.(B
+.(E 3 0 \}
+.el.ie \\n(;t=6 \{\
+.(B
+\!.	tl \\*(]m
+\!.	tl \\*(]o
+\!.     tl \\*(]p
+\!.     tl \\*(]q
+.(E 2 4v \}
+.el.ie \\n(;t=5 \{\
+.(B
+\!.	tl \\*(]i
+\!.	tl \\*(]j
+\!.	tl \\*(]k
+\!.	tl \\*(]l
+.(E 3 4v \}
+.el.ie \\n(;t=4 \{\
+.(B
+\!.	tl \\*(]U
+\!.	tl \\*(]V
+\!.	tl \\*(]W
+\!.	tl \\*(]X
+.(E 3 4v \}
+.el.ie \\n(;t=3 \{\
+.(B
+\!.	tl \\*(]I
+\!.	tl \\*(]J
+\!.	tl \\*(]K
+\!.	tl \\*(]L
+.(E 3 4v \}
+.el.ie \\n(;t=2 \{\
+.(B
+\!.	tl \\*(]A
+\!.	tl \\*(]F
+\!.	tl \\*(]G
+\!.	tl \\*(]H
+.(E 3 4v \}
+.el\{\
+.(B
+\!.	tl \\*(]M
+\!.	tl \\*(]O
+\!.	tl \\*(]Q
+\!.	tl \\*(]R
+.(E 3 4v \}
+..
+.de)b
+'ev2
+.nf
+.?1
+.?2
+.?3
+.?4
+.?5
+.br
+.)R
+.af;P \\gP
+.afP 1
+.nr;P \\nP
+.afP \\g(;P
+.af;P 1
+.ie!\\n(;P%2 .tl \\*(}f
+.el.tl \\*(}p
+.ie\\n(;P=1 \{\
+.ie\\nN=1 .tl \\*(}t
+.el.tl \\*(}b \}
+.el.tl \\*(}b
+.if\\nC .tl \\*(]C
+.)R
+'ev
+..
+.de)2
+.po\\nOu 
+.nr;C 1 
+'bp
+..
+.de)1
+.rt\\n(;mu
+.po+\\n(;ou 
+.nr;C 2 
+.nr:I 2
+.nr:J \\n(nl
+'ns
+'if\\n(:q .)l 
+'nr:q 0
+'if\\n(;d=0&\\n(:z>0 \{\
+'ie\\n(Df>3 \{')z
+')s  \}
+'el'if \\n(Df>1	')z  \}
+.nr:I 3
+.nr;T 0
+.if\\n(;A>0 \{.nr ;h \\n(.i
+.in0
+.>t
+.nr;T 1
+.in\\n(;hu	\}
+.mk#T
+.nr:J \\n(nl
+.if\\n(;C&\\n(;a=1&\\n(!K=1 'wh \\n(!Eu+1v )a 
+..
+.de2C 
+.if\\n(;C=0 \{\
+.br
+.)R
+.nr;C 1
+.if!\\n(.$ .nr ;l \\n(.lu*8u/17u 
+.if!\\n(.$ .nr ;o \\n(.lu*9u/17u 
+.if\\n(.$ .nr ;l \\$1u*1.3n
+.if\\n(.$ .nr ;o \\nWu-\\n(;lu
+.ev1
+.ll\\n(;lu
+.lt\\n(;lu
+.ev
+.ll\\n(;lu
+.lt\\n(;lu
+.nr:L \\nW
+.nrW \\n(.lu
+.SP
+.ns
+.mk;m \}
+..
+.de1C
+.if\\n(;C \{\
+.br
+.if\\n(;C>1 .sp |\\n(.hu
+.po\\nOu
+.rr;C
+.)R
+.nrW \\n(:Lu
+.rr:L
+.ev1
+.ll\\nWu
+.lt\\nWu
+.ev
+.ll\\nWu
+.lt\\nWu
+.SP .5
+.ns\}
+..
+.de)a
+'sp\\n(:0u
+'sp1
+.ch)a
+.nr!E 0
+.rr!E !K
+..
+.deWC
+.if\\n(.$ \{\
+.ie\\$1N \{.nr ;a 0
+.nr;b 0
+.nr;j 0
+.nr;p 1 \}
+.el.ie \\$1WD .nr ;a 1
+.el.ie \\$1WF .nr ;b 1
+.el.ie \\$1FF .nr ;j 1
+.el.ie \\$1FB .nr ;p 1
+.el.ie \\$1-WD .nr ;a 0
+.el.ie \\$1-WF .nr ;b 0
+.el.ie \\$1-FF .nr ;j 0
+.el.ie \\$1-FB .nr ;p 0
+.el')D "WC: unknown option"
+.if\\n(.$ .WC \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+'br\}
+..
+.de>W
+.if\\n(;C \{\
+.ev1
+.ll\\n(:Lu
+.lt\\n(:Lu
+.ev
+.nrW \\n(:Lu
+.nr;W 1 \}
+..
+.de>N
+.if(\\n(;l>0)&(\\n(;C=0) \{\
+.ev1
+.ll\\n(;lu
+.lt\\n(;lu
+.ev
+.nrW \\n(;lu
+.nr;W 2 \}
+..
+.de>R
+.ie\\n(;W=1 .nr W \\n(;lu
+.el.if \\n(;W=2 .nr W \\n(:Lu
+.if\\n(;W \{\
+.ev1
+.ll\\nWu
+.lt\\nWu
+.ev
+.nr;W 0 \}
+..
+.de)Q
+.ch)Q 200v
+.rs
+'sp70
+..
+.deBS
+.(B
+..
+.deBE
+.(E 4
+..
+.deVM
+.ie0\\$1>=0 .nr !X 0\\$1
+.el.nr !X 0
+.if0\\$2>=0 \{\
+.(B
+.rs
+.sp0\\$2v
+.(E 5 0\\$2 \}
+..
+.de(B
+.ev1
+.)R
+.di>K
+..
+.de(E
+.br
+.di
+.)R
+.ev
+.ie(\\n(dn=0)&(0\\$2=0) \{\
+.nr?\\$1 0
+.rm>K ?\\$1
+'br\}
+.el\{\
+.ie0\\$2>0 .nr ?\\$1 0\\$2
+.el.nr ?\\$1 \\n(dn \}
+.nr?0 \\n(:Uu
+.nr:U \\n(?1+\\n(?2+\\n(?3+\\n(?4+\\n(?5+1v
+.if(\\n(:Uu+\\n(:Mu)>(\\n(.pu-\\n(nlu-.5v) .SK
+.rn>K ?\\$1
+.nr:o +(\\n(:Uu-\\n(?0u)
+.ch)n -\\n(:ou
+.ch)f -\\n(:ou
+.nr:m \\n(:Mu+\\n(:Uu
+.ch)b -(\\n(:mu-2v)
+..
+.deFS
+'nr:s +1 
+.if\\n(:F .)D "FS:missing FE"
+.if\\n(:F .FE
+.if\\n(:y .)D "FS:missing DE"
+.if\\n(:y .DE
+.nr:F 1
+.if!\\n(!F \{\
+.ie\\n(;C .nr !F 2
+.el.nr !F 1  \}
+.ie(\\n(;C>0)&((\\n(;b=1):((\\n(;j=1)&(\\n(!F=1))) \{\
+.nr!F 1
+.>W  \}
+.el.if ((\\n(;C=0)&(\\n(;j=1)&(\\n(!F=2))  .>N   
+'ev1
+'di>b
+.nr:D 1
+.)R
+'nh
+'if\\n(:i 'hy 14
+'ad
+'if\\n(:j 'na
+'ps-2
+'vs\\n(.sp+1p
+'sp\\n(Fsu*3p
+'if\\n(.$ 'ds }y \\$1\ 
+'if!\\n(.$ 'ds }y \\*(]y.\ 
+'if\\n(:k \\*(}y\&\c
+'if!\\n(:k 'nr ;v \w\0\0.\ 
+'if!\\n(:k 'nr ;u \w\\*(}y
+'if!\\n(:k 'in +\\n(;vu
+'if!\\n(:k 'if !\\n(:l 'ti -\\n(;vu
+'if!\\n(:k 'if !\\n(:l 'if !\\n(;u-\\n(;v \\*(}y\h\\n(;vu-\\n(;uu\&\c
+'if!\\n(:k 'if !\\n(:l 'if \\n(;u-\\n(;v \\*(}y\&\c
+'if!\\n(:k 'if \\n(:l 'if \\n(;v-\\n(;u 'ti -\\n(;uu
+'if!\\n(:k 'if \\n(:l 'if !\\n(;v-\\n(;u 'ti -\\n(;vu
+'if!\\n(:k 'if \\n(:l \\*(}y\&\c
+..
+.deFE
+.if!\\n(:F .)D "FE:no FS active"
+.br
+'di
+.nr:D 0
+.if\\n(;c .nr :D \\n(;c
+'in0
+'nf
+'na
+.if!\\n% \{\
+'da>c
+.>b
+\!.	br
+'di
+.if!(\\n(:D=3) \{\
+.nr:G 1
+.da>d
+.>b
+\!.		br
+.di
+'br\}
+'br\}
+.if!((\\n%=0)*(\\n(:D=3)*(\\n(:t=1):(\\n(;X)) \{\
+'da>y
+.>b
+\!.	br
+'di
+'br\}
+'rm>b
+.)R
+'ev
+.nr:F 0
+.>R
+.if!((\\n%=0)*(\\n(:D=3)*(\\n(:t=1):(\\n(;X)) \{\
+.if!((\\n(!A=1):((\\n(;C=2)&(\\n(!F=1))) \{\
+'if!\\n(:s-1 'nr dn +4v+.5p
+'nr:o +\\n(dnu
+.nrdn 0
+'if!\\n(.pu-\\n(nlu-.5p-\\n(:ou 'nr :o \\n(.pu-\\n(nlu-.5p
+'if!\\n(:ou-\\n(:mu 'nr :o \\n(:mu
+'ch)f -\\n(:ou 
+'br\}\}
+..
+.de)o
+.ie(\\n(!F=1)&(\\n(;C=1) \{\
+.nr!A 1 \}
+.el.nr !A 0
+'ev1
+.)R
+'ps-2
+'vs\\n(.sp+1p
+'nf
+'nr;5 \\n(.pu-\\n(:ou+.5p
+.if!\\n(!H 'if \\n(;5u>\\n(nlu 'sp |\\n(;5u+.5p
+'nr;5 \\n(.pu-\\n(nlu-1v-\\n(:mu
+.ie\\n(;5u>0 \{\
+'sp
+.ti0
+.ie\\n(:n=0 \{.ie \n(.A=0 \l'72p'
+.el__________ \}
+.el\{.ie \n(.A=0 \l\\n(.lu
+.el_____________________________ \}
+'nr:n 0
+.br
+.if\\n(!A .wh (\\n(nlu-2v) )Q
+'br\}
+.el'sp 15i
+.rr;5
+'nr;Z 1
+'nrdn 0
+'ps
+'vs\\n(.sp+2p
+.>y
+.br
+'di
+.if\\n(dn=1v .nr dn 0
+.nr:n \\n(dn
+'nr;Z 0
+.if!\\n(;C=1 \{\
+.rr!A
+.if\\n(dn=0 .rr !F \}  
+'rm>y
+'nr:q \\n(dnu
+'nrdn 0
+'nr:s 0 
+.)R
+'ev
+..
+.de)n
+'if\\n(;Z \{
+'di>x
+'sp\\n(Fs  \}
+..
+.de)m
+'ev1
+.)R
+'ps-2
+'vs\\n(.sp+1p
+.nf
+'di>w
+.>y
+.br
+'di
+'rm>y
+'nr:q \\n(dn
+'nrdn 0
+'nr:s 0
+.if!\\(;C=1 .rr !A
+.)R
+'ps
+'vs\\n(.sp+2p
+'ev
+..
+.de)l
+'nr:s 1
+'di
+'ev1
+'di>b
+.)R
+'ps-2
+'vs\\n(.sp+1p
+'nh
+'nf
+.>x
+.>w
+.nr:F 1
+.FE
+'rm>x
+'rm>w
+..
+.deFD
+'nr:i 0 
+'nr:j 0 
+'nr:k 0 
+'nr:l 0 
+'nr;z 0
+'if\\n(.$ 'nr ;z \\$1
+'if\\n(;z-11 'nr ;z 0
+'if\\n(;z-7 'nr :l 1
+'if\\n(;z-7 'nr ;z -8
+'if\\n(;z-3 'nr :k 1
+'if\\n(;z-3 'nr ;z -4
+'if\\n(;z-1 'nr :j 1
+'if\\n(;z-1 'nr ;z -2
+'if\\n(;z 'nr :i 1
+'if\\n(.$-1 .nr :C 1
+..
+.deDS
+.nr:t 0
+.nr!K 1
+.)J "\\$1" "\\$2" "\\$3"
+..
+.deDF
+.nr:t 1
+.nr!K 0
+.)J "\\$1" "\\$2" "\\$3"
+..
+.de)J
+.nr;i \\n(.i
+.nr;q \\n(.u
+'di
+.if\\n(:D>1 \{.ie \\n(:t=0  .)D "DS:illegal inside TL or AS"
+.el.)D "DF:illegal inside TL or AS" \}
+.if\\n(:F \{.ie \\n(:t=0 .)D "DS:missing FE"
+.el.)D "DF:missing FE"
+.FE \}
+.if\\n(:y \{.ie \\n(:t=0 .)D "DS:missing DE"
+.el.)D "DF:missing DE"
+.DE \}
+.nr:y 1
+.if(\\n(;C>0)&(\\n(;a=1) .>W
+.if(\\n(;C=2&\\n(;a=1)&\\n(!K 'bp
+.ev1
+.)R
+'di>0
+.nr:D 1
+.nr;z 0+0\\$1
+.if\\$1L .nr ;z 0
+.if\\$1I .nr ;z 1
+.if\\$1C .nr ;z 2
+.if\\$1CB .nr ;z 3
+.if\\n(;z>3 .nr ;z 3
+.nr:B \\n(;z
+.if\\n(:t=0 .if \\n(;z<2 .ll -\\n(;iu
+.if\\n(;z=1 .in +\\n(Sin
+.if\\n(;z=2 \{.ce 9999
+.nr:t +2 \}
+.if\\n(:B=3 \{.nr :Y 1
+.nr:t +2
+.nr:X \\n(.i
+.di>X \}
+.nr;z 0+0\\$2
+.if\\$2N .nr ;z 0
+.if\\$2F .nr ;z 1
+.nf
+.if\\n(;z .fi
+.ll-0\\$3
+..
+.de)z
+.nr;w \\n(:x+1%26+1
+.if!((\\n(;C=2)&(\\n(!\\n(;w=1)) \{\
+.nr;d 1
+.ev1
+.SP .5
+.)R
+'nf
+'rs
+.nr:x \\n(:x+1%26
+.?\\n(;w
+.if\\n(!\\n(;w=1 .nr !B 1
+.rm?\\n(;w
+.rr?\\n(;w !\\n(;w
+.)R
+.if\\n(De \{\
+.if\\n(;e \&\c
+.bp
+.nr!B 0 \}
+.ie\\n(:I>1 \{\
+.if\\n(nl>\\n(:J .nr :I 0 \}
+.el.nr :I 0
+.SP .5
+.nr:J \\n(nl
+.ev
+'nr:z -1
+.nr;d 0
+.ne2 \}
+..
+.de)y
+'if\\n(:z \{\
+'nr;w \\n(:x+1%26+1
+'nr;z \\n(?\\n(;w
+.ie(\\nC=4):(\\nC=5) .nr ;Q 2
+.el.nr ;Q 1
+.if(\\n(:I=2):(\\n(;z+\\n(;pv+\\n(;Qv<\\n(.t):\
+((\\n(;z>(\\n(.p-\\n(;r-\\n(:m))&(\\n(nl<(\\n(.p-\\n(;r-\\n(:o/2u+\\n(;r))) \{\
+'ie\\n(:I<2  .if \\n(;p .br
+'el.if \\n(:Ju<\\n(nlu  .if \\n(;p .br
+')z  \}\}
+..
+.de)x
+'nr:v \\n(:z
+')y
+'if\\n(:v=\\n(:z \{\
+'nr;d 1
+\&\c
+'SP \\n(.tu+1v
+'nr;d 0	
+')z  \}
+..
+.de)w
+'if\\n(:z \{\
+')x
+')w \}
+..
+.de)u
+'if\\n+(:z>25 ')D "DF: too many displays"
+'nr:w \\n(:w+1%26
+'nr;w \\n(:w+1
+'rn>0 ?\\n(;w
+.nr!\\n(;w 1
+.if(\\n(;C>0)&(\\n(;a=0) .nr !\\n(;w 2
+.nr?\\n(;w \\n(:0
+'if!((\\n(;C>0)&(\\n(!\\n(;w=1)) 'if (\\n(:z=1)&((\\n(Df%2=1):(\\n(Df>5)) ')y
+..
+.de)s
+'nr:v \\n(:z
+'nr;Y \\n(:I
+'nr:I 3
+')y
+'ie\\n(:v>\\n(:z  ')s
+'el'nr :I \\n(;Y
+..
+.de)t
+.br
+.nr!L \\n(.L
+.ls1
+.)r
+.ti\\n(.iu
+.nf
+.if\\n(:t>1 .in -\\n(;iu  
+.rs
+.nr;d 1
+.>0
+.)R
+.nr;d 0
+.ie\\n(:I>1 \{\
+.if\\n(nl>\\n(:J .nr :I 0 \}  
+.el.nr :I 0
+.ls\\n(!L
+.in\\n(;iu
+.if!\\n(;q .nf
+.if\\n(Ds .SP .5
+.nr:J \\n(nl
+..
+.de)r
+.if\\n(Ds  .SP .5
+.if(\\n(:0>=\\n(.t)&((\\n(:0<(\\n(.p-\\n(;r-\\n(:m)):\
+(\\n(nl>(\\n(.p-\\n(;r-\\n(:o/2u+\\n(;r))) \{\
+.if\\n(;e \&\c
+.ne\\n(.tu+1v
+.if\\n(:I<2 .)r \}  
+..
+.deDE
+.if!\\n(:y .)D "DE:no DS or DF active"
+.nr!E \\n(nl
+.if\\n(:B=3 \{.br
+.di
+.if\\n(dl>\\n(:Y .nr :Y \\n(dl
+.if\\n(:Y<\\n(.l .in (\\n(.lu-\\n(:Yu)/2u 
+.nf
+.>X
+.fi
+.rm>X
+.in\\n(:Xu
+.rr:X \}
+.ce0
+.br
+'di
+.rr:D ;D ;E :B
+.)R
+.ll\\nWu
+.ev
+'nr:0 \\n(dn
+'nrdn 0
+.nr;x \\n(:t
+.if\\n(:t-1 .nr ;x -2
+.>R
+.if!\\n(;x .)t
+.if\\n(;x .)u
+.nr:y 0
+.nr:Y 0
+.nr;L 1
+..
+.de)R
+'fi
+'na
+.if\\n(:h 'ad
+'nh
+'if\\n(Hy 'hy 14
+'in0
+'ti0
+'ps\\n(:Pp
+'vs\\n(!Pp
+..
+.deRS
+.if\\n(;R=2 .)D "RS:missing RF"
+.nr;R 2 
+.nrRf +1 
+.if\\n(.$ .ds \\$1 \v'-.4m'\s-3[\\n(:R]\s0\v'.4m'
+.ie\\n(;C .ev 1
+.el.ev 2
+.)R
+'in\w\0\0.\ u
+'ti-\w\\*(]r.\ u
+.nr:D 1
+.da>r
+\!.ne 2
+\\*(]r.\ \&\c
+..
+.deRF
+.if!(\\n(;R=2) .)D "RF: no RS active"
+.nr;R 1
+.br
+\!.if \\\\n(Ls .sp .5
+.di
+'in
+.nr:D 0
+.ev
+..
+.deRP
+.if\\n(;R=2 .)D "RP: missing RF"
+.if\\n(;R \{\
+.nr;R 0 
+.if!(0\\$1) .nr :R 0 1 
+.)R
+.ie(0\\$2=2):(0\\$2=3) \{\
+.if\\n(;e \&\c
+'ne8
+.sp1 \}
+.el\{\
+.ie\\n(;e .SK
+.el\{\
+\&\c
+.bp
+'br\} \}
+.ce1
+.ul
+\\*(Rp
+.if\w\\*(Rp \{
+.am>C
+.)T 1 0 "" "\\*(Rp" \\nP 
+\\..
+'br\}
+.nf
+.>r
+.br
+.rm>r
+.)R
+.if(0\\$2=0):(0\\$2=2) .SK
+'br\}
+..
+.de)q
+.br
+.nr;e 1
+.LC 0
+.if\\n(:F .FE
+.if\\n(:y .DE 
+.if\\n(!N=1 .NE 
+.)N
+.nr;x 0 
+.if\\n(;R .RP 0 1
+\&\c
+.if(\\n(;C>0)&(\\n(:z>0) 'bp
+.)w 
+\&
+'nr:0 \\n(.pu-\\n(nlu-\\n(:ou
+'if\\n(:s 'if (\\n(:0<=0):((\\n(;C=2)&(\\n(!F=1)) 'nr ;x 1
+'if\\n(:q 'nr ;x 1
+'if\\n(;x \&\c
+'if\\n(;x 'bp
+.di]B
+.>y
+.di
+.nr!H \\n(dn
+.if\\n(!H\{\
+.nr!J \\n(.pu-\\n(dnu-\\n(:mu-4v
+.ie\\n(!J>\\n(nlu .ch )f \\n(!Ju
+.el'bp \}
+.wh-.5p )k
+.nr;e 0
+..
+.deWA
+.nr:D 2
+.rm2C AF AS AE AT AU AV CS OK TC TL TM MT
+.nr;F 5
+.)W WA
+.ds}8 \\$1
+.ds}9 \\$2
+.di]s
+.nf
+..
+.deWE
+.)W WE
+.br
+.di
+.nr!R \\n(dn
+..
+.deIA
+.nr:D 1
+.)W IA
+.ds}6 \\$1
+.ds}7 \\$2
+.di]u
+.nf
+..
+.deIE
+.)W IE
+.br
+.di
+..
+.deLO
+.rm2C AF AS AE AT AU AV CS OK TC TL TM MT
+.ie\\$1 .)D "Required argument missing"
+.el.ie \\$1SA \{\
+.nr!V 1
+.ie\w\\$2 .ds }a \\$2
+.el.ds }a To Whom It May Concern:\}
+.el.ie \\$1AT \{\
+.ds}j ATTENTION:  \\$2
+.nr!Y 1 \}
+.el.ie \\$1RN \{\
+.ds}k In reference to:  \\$2
+.nr!6 1 \}
+.el.ie \\$1CN \{\
+.nr!9 1
+.ie\w\\$2 .ds }l \\$2
+.el.ds }l CONFIDENTIAL \}
+.el.ie \\$1SJ \{\
+.ds}m \\$2
+.nr!M 1 \}
+.el.)D "LO argument not recognized" 
+..
+.deLT
+.nr:D 0
+.)W LT
+.rnTP >Y 
+.br
+.rn>Y TP
+.ie\\$1 .(1
+.el.	ie \\$1BL .	(1
+.el.ie \\$1SB .	(2
+.el.ie \\$1FB .	(3
+.el.ie \\$1SP .	(4
+.el.)D "LT argument not recognized."
+.nr;M 1
+..
+.de(1
+.nr;F 1
+.rm(2 (3 (4
+.nf
+.in(\\n(.lu/2u)
+.rs
+.sp11
+.ie\\n(!R .]s
+.el.sp 3
+\\*(DT
+.if\\n(!9 \{\
+.sp
+.in0
+\\*(}l \}
+.if\\n(!6 \{\
+.sp
+.in(\\n(.lu/2u)
+\\*(}k \}
+.ie(\\n(!9:\\n(!6) .sp 2  
+.el.sp 4
+.in0
+.if\w\\*(}6 \\*(}6
+.if\w\\*(}7 \\*(}7
+.]u
+.if\\n(!Y \{\
+.sp
+\\*(}j \}
+.if\\n(!V \{\
+.sp
+\\*(}a \}
+.if\\n(!M \{\
+.sp
+SUBJECT:  \\*(}m \}
+.rmWA WE IA IE LO
+.fi
+..
+.de(2
+.nr;F 2
+.rm(1 (3 (4
+.rs
+.sp11
+.nf
+.in(\\n(.lu/2u)
+.ie\\n(!R .]s
+.el.sp 3
+\\*(DT
+.if\\n(!9 \{\
+.in0
+.sp
+\\*(}l \}
+.if\\n(!6 \{\
+.sp
+.in(\\n(.lu/2u)
+\\*(}k \}
+.ie(\\n(!9:\\n(!6) .sp 2
+.el.sp 4
+.in0
+.if\w\\*(}6 \\*(}6
+.if\w\\*(}7 \\*(}7
+.]u
+.if\\n(!Y \{\
+.sp
+\\*(}j \}
+.if\\n(!V \{\
+.sp
+\\*(}a \}
+.if\\n(!M \{\
+.sp
+.ti5
+SUBJECT:  \\*(}m \}
+.rmWA WE IA IE LO
+.nrPt 1
+.fi
+..
+.de(3
+.nr;F 3
+.rm(2 (1 (4
+.rs
+.sp11
+.nf
+.ie\\n(!R .]s
+.el.sp 3
+\\*(DT
+.if\\n(!9 \{\
+.sp
+\\*(}l \}
+.if\\n(!6 \{\
+.sp
+\\*(}k \}
+.ie(\\n!9:\\n!6) .sp 2
+.el.sp 4
+.if\w\\*(}6 \\*(}6
+.if\w\\*(}7 \\*(}7
+.]u
+.if\\n(!Y \{\
+.sp
+\\*(}j \}
+.if\\n(!V \{\
+.sp
+\\*(}a \}
+.if\\n(!M \{\
+.sp
+SUBJECT:  \\*(}m \}
+.rmWA WE IA IE LO
+.fi
+..
+.de(4
+.nr;F 4
+.rm(2 (3 (1
+.rs
+.sp11
+.br
+.nf
+.ie\\n(!R .]s
+.el.sp 3
+\\*(DT
+.if\\n(!9 \{\
+.sp
+\\*(}l \}
+.if\\n(!6 \{\
+.sp
+\\*(}k \}
+.ie(\\n!9:\\n!6) .sp 2
+.el.sp 4
+.if\w\\*(}6 \\*(}6
+.if\w\\*(}7 \\*(}7
+.]u
+.if\\n(!Y \{\
+.sp
+\\*(}j\}
+.if\\n(!M \{\
+.sp2
+.br
+.traAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ
+\\*(}m
+.br
+.traabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz
+.sp\}
+.rmWA WE IA IE LO
+.fi
+..
+.de)W
+.ie\\$1WA .nr !8 1
+.el.ie \\$1WE \{\
+.ie\\n(!8=1 .nr !8 2
+.el.)D "WA macro missing"\}
+.el.ie \\$1IA \{\
+.ie\\n(!8=2 .nr !8 3
+.el.)D "WA or WE macro missing"\}
+.el.ie \\$1IE \{\
+.ie\\n(!8=3 .nr !8 4
+.el.)D "WA, WE, or IA macro missing"\}
+.el.if \\$1LT \{\
+.ie\\n(!8=4 .nr !8 0
+.el.)D "WA, WE, or IE macro missing"\}
+..
+.de)k
+.if "\\*(.T"aps"\{\
+.	po0
+.	lt7.5i
+.	ps10
+.	vs10p
+.	ft1
+.	tl'--''--'
+.	ft
+.	vs
+.	po
+.	ps
+.	lt\}
+..
+.nr:r .6i 
+.nr:m .8i 
+'nr:i 0 
+'nr:j 0 
+'nr:k 0 
+'nr:l 0 
+.nr:n 0 
+.nr:p 0 1 
+.nr:o 0 
+.nr:z 0 1 
+.nr:y 0 
+.nr:x 0
+.af;w a
+.nr:w 0
+.nr:F 0
+.nr:R 0 1 
+.ds]r \\n(:R
+.ds]y \\n(:p
+'wh0 )h
+.nr:o \n(:mu 
+'wh-\n(:mu )f
+'ch)f 15i
+'wh-\n(:mu )n 
+'ch)f -\n(:mu
+'wh-\n(:ru )b
+.nr:M \n(:mu
+.if\*(]ZMM DEFINED \{\
+.tmERROR: MM package read twice
+.ab	\}
+.ds]Z MM DEFINED
+.if!\w'\gE' .nr E 1
+.if!\nL .nr L 11i
+.pl\nLu
+.if!\w'\gO' .nr O 1.3i
+.po\nOu
+.if\nP .nr P -1
+.nrP \nP 1
+.if!\nS .nr S 10
+.if!\nW .nr W 6i
+.if\n(mo-0 .ds DT January
+.if\n(mo-1 .ds DT February
+.if\n(mo-2 .ds DT March
+.if\n(mo-3 .ds DT April
+.if\n(mo-4 .ds DT May
+.if\n(mo-5 .ds DT June
+.if\n(mo-6 .ds DT July
+.if\n(mo-7 .ds DT August
+.if\n(mo-8 .ds DT September
+.if\n(mo-9 .ds DT October
+.if\n(mo-10 .ds DT November
+.if\n(mo-11 .ds DT December
+.asDT " \n(dy, 20\n(yr
+.S D D
+'ev0
+.)R
+.ll\nWu
+.lt\nWu
+'ev
+'ev1
+.)R
+.ll\nWu
+.lt\nWu
+'ev
+'ev2
+.)R
+.ll\nWu
+.lt\nWu
+'ev
+.PH "''- \\\\nP -''
+.if\nC=3 \{.ds ]C D\ R\ A\ F\ T
+.PF "''\\\\*(DT'' \}
+.if\nC=4 \{.ds ]C D\ R\ A\ F\ T
+.PF "''\\\\*(DT''
+.ls2
+.nrPt 1
+.nrPi 10 \}
+.if\nC=5 .ls 2 
+.if\nC=2 .ds ]C ''DATE FILE COPY''
+.if\nC=1 .ds ]C ''OFFICIAL FILE COPY''
+.if(\nN=3):(\nN=5) \{.nr :S 1
+.PF "''\\\\n(H1-\\\\nP''"
+.PH \}
+.if\nN=4 \{.PH
+.nrN 0 \}
+.if\nD .PH "'\\*(RE line # \\\\n(.c'- \\\\nP -''
+.if\nA=1 .AF
+'em)q
+.ds` \\k:\h-\\n(.wu*8u/10u\h\\n(.fu/2u*2u+1u-\\n(.fu*.2m\(ga\h|\\n:u
+.ds' \\k:\h-\\n(.wu*8u/10u\h\\n(.fu/2u*2u+1u-\\n(.fu*.2m+.07m\(aa\h|\\n:u
+.ds^ \\k:\h-\\n(.wu*8u/10u\h\\n(.fu/2u*2u+1u-\\n(.fu*.15m-.07m\
+\h\\n(.fu-1u/2u*.02m^\h|\\n:u
+.ds~ \\k:\h-\\n(.wu*8u/10u\h\\n(.fu/2u*2u+1u-\\n(.fu*.2m-.07m\
+\h\\n(.fu-1u/2u*.05m~\h|\\n:u
+.ds, \\k:\h-\\n(.wu*85u/100u\v.07m,\v-.07m\h|\\n:u
+.ds: \\k:\h-\\n(.wu*85u/100u\h\\n(.fu/2u*2u+1u-\\n(.fu*3u*.06m\
+\h3u-\\n(.fu/2u*.05m-.1m\
+\v-.6m\z.\h\\n(.fu-1u/2u*.05m+.2m.\v.6m\h|\\n:u
+.ds; \\k:\h-\\n(.wu*75u/100u\h\\n(.fu/2u*2u+1u-\\n(.fu*3u*.09m\
+\h3u-\\n(.fu/2u*.06m-.15m\h\\n(.fu-1u/2u*.04m\
+\v-.85m\z.\h.3m.\v.85m\h|\\n:u
+.if!\*(.Taps .rm )k
diff --git a/tmac/name.sed b/tmac/name.sed
new file mode 100644
index 00000000..cafc0540
--- /dev/null
+++ b/tmac/name.sed
@@ -0,0 +1,4 @@
+s/\([A-Z]\)\./\1/g
+s/\([A-Z]\)[a-z]*/\1/g
+s/ //g
+s/^/.ds T1 /
diff --git a/tmac/sendcover b/tmac/sendcover
new file mode 100644
index 00000000..bb17c137
--- /dev/null
+++ b/tmac/sendcover
@@ -0,0 +1,5 @@
+#!/bin/rc
+T=/tmp/cs$pid
+cstrans $T $1
+rc $T
+rm $T
diff --git a/tmac/strings.mm b/tmac/strings.mm
new file mode 100644
index 00000000..0cba509c
--- /dev/null
+++ b/tmac/strings.mm
@@ -0,0 +1,61 @@
+'\"                Copyright (c) 1997 Lucent
+'\"                  All Rights Reserved
+'\"     
+'\"#ident	"@(#)macros:strings.mm	3.1"
+'\"	UNIX Memorandum Macros, DWB 3.1, April 1990
+'\"	Company-specifics:  Lucent Bell Laboratories
+'''\"	'''\"tab  begins comments.
+'''\"	No comments should appear on the same line as the string definition.
+'''\"	
+'''\"	The following string is used by the macro MT.
+'''\"	]S defined as logo character
+.ds ]S \s36\(LH\s0
+'''\"	}Z defined as Company Name
+.ds }Z Lucent Bell Laboratories
+'''\"
+'''\"   Strings for proprietary markings at bottom of page.
+'''\"	Free Strings:  ]Q ]R ]H ]L ]V ]W ]X ]k ]l
+'''\"	
+'''\"	Register ;V = user-specified year for copyright date
+.nr ;V \n(yr
+'''\"	LUCENT PROPRIETARY MARKINGS
+'''\"	The following strings are used by the macro PM:
+'''\"	
+'''\"	Marking Type:  PROPRIETARY
+'''\"	Invocation:  .PM 1  or  .PM P
+'''\"	Strings: ]M ]O
+.ds ]M \f2LUCENT \- PROPRIETARY\fP
+.ds ]O \f1Use pursuant to Company Instructions.\fP
+'''\"
+'''\"	Marking Type:  RESTRICTED
+'''\"	Invocation:  .PM 2  or  .PM RS
+'''\"	Strings: ]A ]F ]G
+.ds ]A \f2LUCENT \- PROPRIETARY (RESTRICTED)\fP
+.ds ]F \f1Solely for authorized persons having a need to know
+.ds ]G pursuant to Company Instructions.\fP
+'''\"
+'''\"	Marking Type:  REGISTERED
+'''\"	Invocation:  .PM 3  or  .PM RG
+'''\"	Strings:  ]I ]J ]K
+.ds ]I \f2LUCENT \- PROPRIETARY (REGISTERED)\fP
+.ds ]J \f1Solely for authorized persons having a need to know
+.ds ]K and subject to cover sheet instructions.\fP
+'''\"
+'''\"	Marking Type:  SEE COVER PAGE
+'''\"	Invocation:  .PM 4  or  .PM CP
+'''\"	Strings: ]U
+.ds ]U \f1SEE PROPRIETARY NOTICE ON COVER PAGE\fP
+'''\"
+'''\"	Marking Type:  COPYRIGHT
+'''\"	Invocation:  .PM 5  or  .PM CR
+'''\"	Strings: ]i ]j
+.ds ]i \f1Copyright \(co 20\\n(;V Lucent\fP
+.ds ]j \f1All Rights Reserved.\fP
+'''\"
+'''\"	Marking Type:  UNPUBLISHED WORK
+'''\"	Invocation:  .PM 6  or  .PM UW
+'''\"	Strings: ]M ]m ]o ]p ]i ]q ]j
+.ds ]m \f1THIS DOCUMENT CONTAINS PROPRIETARY INFORMATION OF
+.ds ]o LUCENT AND IS NOT TO BE DISCLOSED OR USED EXCEPT IN
+.ds ]p ACCORDANCE WITH APPLICABLE AGREEMENTS.\fP
+.ds ]q \f1Unpublished & Not for Publication\fP
diff --git a/tmac/tmac.an b/tmac/tmac.an
new file mode 100644
index 00000000..84744f64
--- /dev/null
+++ b/tmac/tmac.an
@@ -0,0 +1,524 @@
+.fp 1 R LucidaSans
+.fp 2 I LucidaSansI
+.fp 3 B LucidaSansB
+.fp 5 L LucidaCW
+.if n .uf 4
+.if n .bd 3
+.if n .rm bd
+'''\"	PWB Manual Entry Macros - 1.36 of 11/11/80
+'''\"	Nroff/Troff Version	@(#)1.36
+'''\"  Option -rs1 short (9") pages
+'''\"  Option -rp# set no. of first page, put no. of pgs. on stderr
+'''\"  Option -rd1 give modified date instead of printed date
+... temporary fixes for neat manual printing...
+.deth
+.tmwrong version of man entry macros - use -man6
+.ab
+..
+.ifn .ds Tm \uTM\d
+.ift .ds Tm \v'-0.5m'\s-4TM\s+4\v'0.5m'
+.de}E
+.}f
+.in\\n()Ru+\\n(INu
+.ll\\n(LLu
+.lt\\n(LLu
+.pl\\n()Lu
+..
+.deDT
+.ift .ta 3.6m 7.2m 10.8m 14.4m 18m 21.6m 25.2m 28.8m 32.4m 36m 39.6m 43.2m 46.8m
+.ifn .ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n
+..
+.de HY
+.hy14
+..
+.de}f
+.ift .vs \\n()Vp
+.ps\\n()S
+.ft1
+..
+.de}H
+.ev1
+.}C
+.}E
+.ie\\n()s 'sp |2v
+.el'sp |3v
+.".ps\\n()S-1
+.tl \\*(]H\\*(]L\\*(]H
+.ft1
+.ps\\n()S
+.ie\\n()s 'sp 1.5v
+.el'sp 3v
+.ev
+.ns
+.if \\n(CL .2C
+..
+.de}F
+.ev1
+.}E
+.if\\n()s 'sp |\\n(.pu-1v-1p
+.if\\n()t 'sp |\\n(.pu-3v
+.ifn 'sp |\\n(.pu-4v
+.ifn .tl Page %\\*(]D\\*(]W
+.ift .tl %
+.ev
+'bp
+..
+.ifn .ig
+.de}C
+.if "\\*(.T"aps"\{\
+.	po0i
+.	lt7.5i
+.	if\\n()s .tl \l0.25i\l0.25i\h1i\l0.25i
+.	if\\n()t .tl \l0.25i\l0.25i
+.	lt
+.	po\}
+..
+.de}M
+.}N
+.wh-.5p }C
+.ll\\n(LLu
+.}P
+..
+.de}K
+.}N
+.pl1
+.ll\\n(LLu
+..
+.de}P
+.nr )P \\n%+1-\\np
+.if \\nq .tm \\n(.F \\n()P \\np
+.bp
+.if \\nq .nr p \\n%
+..
+.deTH
+.PD
+.nrIN \\n()Mu
+.ift .ds ]H \\$1\^(\^\\$2\^)
+.ifn .ds ]H \\$1(\\$2)
+.if\\n()s .ds ]D
+.if\\n()t .ds ]D Plan 9
+.ifn .ds ]D Plan 9
+.ds]L
+.if!\\$3 .ds ]L (\^\\$3\^)
+.if!\\$4 .ds ]D \\$4
+.wh0 }H
+.wh-\\n(:mu }F
+.em}M
+.if\\n(nl .}P
+.nr)I \\n()Mu
+.nr)R 0
+.}E
+.DT
+.ifn \{.na
+.nh\}
+.ift \{.bd S 3 3
+.HY \}
+\Xhtml <B>
+\Xhtml [<A HREF="/sys/man/index.html">manual index</A>]
+\Xhtml [<A HREF="/sys/man/\\$2/INDEX.html">section index</A>]
+\Xhtml </B>
+..
+.deSH
+.PD
+.}X 0 "\\$1"
+.nr)E 2
+\&\Xhtml <H4>\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6\Xhtml </H4>
+..
+.deSS
+.PD
+.}X 3n "" ""
+.nr)E 2
+\Xhtml <H4>\&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6\Xhtml </H4>
+..
+.de}X
+.}E
+.ti\\$1
+.sp\\n(PDu
+.ne1.1v
+.nr)R 0
+.fi
+'''ss12
+'''if\\$2SYNOPSIS .ss 18
+.it1 }N
+.if!\\$3 .SM
+.ft 3
+..
+.de}2
+.nr)E 0
+.}E
+.nr)I \\n()Mu
+.ns
+.ft1
+..
+.deSM
+.nh
+.ps\\n()S-1
+.if!\\$1 \&\\$1
+.if!\\$2 \&\\$2
+.if!\\$3 \&\\$3
+.if!\\$4 \&\\$4
+.if!\\$5 \&\\$5
+.if!\\$6 \&\\$6
+.if!\\$1 .ps \\n()S
+.if\\$1 .it 1 }N
+.HY
+..
+.deI
+.nh
+.ft2
+.it1 }N
+.if!\\$1 \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
+.HY
+..
+.deB
+.nh
+.it1 }N
+.ie!\\$1 \%\&\f5\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
+.el .ft5
+.HY
+..
+.deL
+.nh
+.it1 }N
+.ift \{.ie!\\$1 \%\&\f5\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
+.el .ft5 \}
+.ifn \{.ft5
+.if!\\$1 \{.ie\\$2 `\\$1'
+.el .ie\\$3 `\\$1 \\$2'
+.el .ie\\$4 `\\$1 \\$2 \\$3'
+.el .ie\\$5 `\\$1 \\$2 \\$3 \\$4'
+.el .ie\\$6 `\\$1 \\$2 \\$3 \\$4 \\$5'
+.el `\\$1 \\$2 \\$3 \\$4 \\$5 \\$6'\}\}
+.HY
+..
+.deRI
+.nh
+.}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.HY
+.}f
+..
+.deIR
+.nh
+.}S 2 1 \& "\Xhtml manref start \\$1 \\$2\\$1" "\\$2\Xhtml manref end \\$1 \\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.HY
+.}f
+..
+.deIB
+.nh
+.ift .}S 2 5 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.ifn .}S 2 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.HY
+.}f
+..
+.deRB
+.nh
+.ift .}S 1 5 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.ifn .}S 1 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.HY
+.}f
+..
+.deBR
+.nh
+.ift .}S 5 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.ifn .}S 1 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.HY
+.}f
+..
+.deBI
+.nh
+.ift .}S 5 2 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.ifn .}S 1 2 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.HY
+.}f
+..
+.de LR
+.nh
+.ift \%\&\f5\\$1\f1\\$2
+.ifn \%`\\$1'\\$2
+.HY
+..
+.de RL
+.nh
+.ift \%\&\f1\\$1\\f5\\$2\\f1\\$3
+.ifn \%\\$1`\\$2'\\$3
+.HY
+..
+.de}S
+.ds]F
+.if\\$12 .if !\\$5 .ds ]F \^
+.if\\$22 .if !\\$5 .ds ]F \^
+.ie!\\$4 .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
+.el\\$3
+.}f
+..
+.deEX
+.ift .ft5
+.nf
+..
+.deEE
+.ft1
+.fi
+..
+.de}p
+.sp\\n(PDu
+.ne1.1v
+.}E
+.nr)I \\n()Mu
+.ns
+..
+.dePP  \"indirect PP so we can attach html - see tmac.anhtml
+.}p
+..
+.deP
+.PP
+..
+.deLP
+.PP
+..
+.dePD
+.ift .nr PD .4v
+.ifn .nr PD 1v
+.if!\\$1 .nr PD \\$1v
+..
+.deHP
+.sp\\n(PDu
+.ne1.1v
+.if!\\$1 .nr )I \\$1n
+.ll\\n(LLu
+.in\\n()Ru+\\n(INu+\\n()Iu
+.ti\\n()Ru+\\n(INu
+.}f
+..
+.deIP
+.ie!\\$1 \{.TP "\\$2"
+\&\\$1\}
+.el\{.sp\\n(PDu
+.ne1.1v
+.if!\\$2 .nr )I \\$2n
+.}f
+.ll\\n(LLu
+.in\\n()Ru+\\n(INu+\\n()Iu
+.lg\}
+..
+.deTP
+.if!\\$1 \{.nr )I \\$1n
+.if\\$10 .nr )I \\n()M\}
+.sp\\n(PDu
+.ne1.1v
+.in\\n()Ru
+.lg0
+.ns
+.it1 }N
+.nr)E 1
+.di]B
+..
+.deTF
+.IP "" "\w'\f5\\$1\ \ \fP'u"
+.PD0
+..
+.de}1
+.ds]X \&\\*(]B\\
+.rm]B
+.nr)E 0
+.if!\\$1 .nr )I \\$1n
+.}f
+.ll\\n(LLu
+.in\\n()Ru+\\n(INu+\\n()Iu
+.ti\\n(INu
+.ie!\\n()Iu+\\n()Ru-\w\\*(]Xu-3p \{\\*(]X
+.br\}
+.el\\*(]X\h|\\n()Iu+\\n()Ru\c
+.}f
+.lg
+..
+.de}N
+.if\\n()E .br
+.if\\n()E1 .di
+.if\\n()E0 .}f
+.if\\n()E1 .}1
+.if\\n()E2 .}2
+..
+.deRS
+.nr]\\n+()p \\n()I
+.nr)\\n()p \\n()R
+.ie!\\$1 .nr )R +\\$1n
+.el.nr )R +\\n()I
+.nr)I \\n()Mu
+.}E
+..
+.deRE
+.if!\\$1 \{.ie \\$10 .nr )p 1 1
+.el.nr )p \\$1 1 \}
+.ds]i \\*(]I\\n()p
+.ds]r \\*(]R\\n()p
+.nr)I \\*(]i
+.nr)R \\*(]r
+.if\\n()p .nr )p -1
+.}E
+..
+'''\"	.2C begin 2-column display, by diversion
+'''\"   CC=amount of text that will fit on page
+'''\"	CL=1 multicolumn in effect, else 0
+'''\"	CI saved indent
+'''\"	CB contains diverted text
+.de 2C
+.ne 2
+.nf
+.nr CC \\n(.t/1v*2v
+.nr CI \\n(IN
+.nr IN 0
+.di CB
+.nr CL 1
+.}E
+.dt \\n(CCu C1
+..
+'''\"	.1C return to 1-column
+.de 1C
+.nr CL 0
+.C1
+.fi
+..
+'''\"	end of diversion, at end of page or return to 1-column
+'''\"	CC=pos of nominal column end
+.de C1
+.dt
+\!.C3
+.di
+.if \\n(dn \{.nr CC \\n(dnu/2u+\\n(nlu
+.wh \\n(CCu C2
+.mk
+.nf
+.nr IN \\n(CIu
+.}E
+.CB \}
+..
+'''\"	end of first column retrieved from diversion
+'''\"	CC=pos of actual column end
+.de C2
+.wh \\n(CCu
+.mk CC
+.po +(\\n(LLu/2u)u
+.rt
+.if \\n(dn>1v .ns
+..
+'''\"	end of second column
+.de C3
+.br
+.po -(\\n(LLu/2u)u
+.if \\n(CC>\\n(nl .sp |\\n(CCu
+.ne 2
+..
+.dePM
+.if\\$1 .nr !K 0
+.if\w\\$1 \{\
+.ie\\$1P .nr !K 1
+.el.ie \\$1BP .nr !K 3
+.el.ie \\$1BR .nr !K 4
+.el.nr !K 2 \}
+.if\\n(!K .wh -(\\n(:mu+5v) )G
+..
+.de)G
+.if\\n(!K 'sp 2v
+.ie\\n(!K=1 \{\
+.iet .bd1 3
+.el.bd1 0
+.tlPRIVATE
+.bd1
+.tlThis information should not be disclosed to unauthorized persons.
+.tlIt is meant solely for use by authorized Bell System employees. \}
+.el.ie \\n(!K=3 \{\
+.iet .bd1 3
+.el.bd1 0
+.tlBELL LABORATORIES PROPRIETARY
+.bd1
+.tlNot for use or disclosure outside Bell Laboratories except by
+.tlwritten approval of the director of the distributing organization. \}
+.el.ie \\n(!K=4 \{\
+.iet .bd1 3
+.el.bd1 0
+.tlBELL LABORATORIES RESTRICTED
+.bd1
+.tlThe information herein is meant solely for use by authorized
+.tlBell Laboratories employees and is not to be disclosed to others. \}
+.el.if \\n(!K=2 \{\
+.iet .bd1 3
+.el.bd1 0
+.tlNOTICE
+.bd1
+.tlNot for use or disclosure outside the
+.tlBell System except under written agreement. \}
+..
+.nr)s 0
+.ift .if \ns .nr )s 1
+.nr)t 0
+.ift .if !\ns .nr )t 1
+.if\n()s \{.nr )L 9i
+.nrLL 4.75i
+.nr)O .75i
+.nr)S 8
+.nr)V 9 \}
+.if\n()t \{.nr )L 11i
+.nrLL 6.5i
+.nr)O 1i
+.nr)S 9
+.nr)V 11 \}
+.ift \{.ds R ®
+.dsS \s\n()S
+..\}
+.ifn \{.nr )L 11i
+.nrLL 6.5i
+.nr)O .463i
+.if '\*(.T'think' \{.nrLL 80n
+.nr)O 0\}
+.if '\*(.T'thinksmall' \{.nrLL 142n
+.vs 9p
+.nr)O 0\}
+.dsR (Reg.)
+.dsS
+..\}
+.if\nT .nr LL 80n
+.if\nV>1 \{
+.nrLL 82n
+.nr)L 84v
+.rmul \}
+.nr)p 0 1
+.ds]I \\\\n(]
+.ds]R \\\\n()
+.if\nd0 .nr m \n(mo-1
+.if\nm0 .ds ]m January
+.if\nm1 .ds ]m February
+.if\nm2 .ds ]m March
+.if\nm3 .ds ]m April
+.if\nm4 .ds ]m May
+.if\nm5 .ds ]m June
+.if\nm6 .ds ]m July
+.if\nm7 .ds ]m August
+.if\nm8 .ds ]m September
+.if\nm9 .ds ]m October
+.if\nm10 .ds ]m November
+.if\nm11 .ds ]m December
+.ifn \{.nr m \nm+1
+.nr yD (\n(yr%100
+.af yD 01
+.ie\nd .ds ]W (last mod. \nm/\nd/\ny)
+.el.ds ]W (printed \n(mo/\n(dy/\n(yD)
+..\}
+.if\n()s .ds ]W
+.if\n()t \{.ie \nd .ds ]W \*(]m \nd, 20\ny
+.el.ds ]W \*(]m \n(dy, 20\n(yr
+..\}
+.pl\n()Lu
+.ll\n(LLu
+.lt\n(LLu
+.po\n()Ou
+.ift .tr \``\''
+.}f
+.if\n()s .nr :m 3.5v
+.if\n()t .nr :m 6v
+.ifn .nr :m 7v
+.ift .nr )M 3.6m
+.ifn .nr )M 5n
+.em}K
+.nr q \np
+.if!\np .nr p 1
+.pn \np
diff --git a/tmac/tmac.anhtml b/tmac/tmac.anhtml
new file mode 100644
index 00000000..536248a0
--- /dev/null
+++ b/tmac/tmac.anhtml
@@ -0,0 +1,14 @@
+.so #9/sys/lib/tmac/tmac.an
+.de }H
+..
+.de }F
+..
+.hy 0
+.de HY
+.hy 0
+..
+.nr LL 20i
+.dePP
+\Xhtml <P>
+.}p
+..
diff --git a/tmac/tmac.antimes b/tmac/tmac.antimes
new file mode 100644
index 00000000..ed0f5b1b
--- /dev/null
+++ b/tmac/tmac.antimes
@@ -0,0 +1,509 @@
+'''\"	PWB Manual Entry Macros - 1.36 of 11/11/80
+'''\"	Nroff/Troff Version	@(#)1.36
+'''\"  Option -rs1 short (9") pages
+'''\"  Option -rp# set no. of first page, put no. of pgs. on stderr
+'''\"  Option -rd1 give modified date instead of printed date
+... temporary fixes for neat manual printing...
+.deth
+.tmwrong version of man entry macros - use -man6
+.ab
+..
+.ifn .ds Tm \uTM\d
+.ift .ds Tm \v'-0.5m'\s-4TM\s+4\v'0.5m'
+.de}E
+.}f
+.in\\n()Ru+\\n(INu
+.ll\\n(LLu
+.lt\\n(LLu
+.pl\\n()Lu
+..
+.deDT
+.ift .ta 3.6m 7.2m 10.8m 14.4m 18m 21.6m 25.2m 28.8m 32.4m 36m 39.6m 43.2m 46.8m
+.ifn .ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n
+..
+.de HY
+.hy14
+..
+.de}f
+.ift .vs \\n()Vp
+.ps\\n()S
+.ft1
+..
+.de}H
+.ev1
+.}C
+.}E
+.ie\\n()s 'sp |2v
+.el'sp |3v
+.".ps\\n()S-1
+.tl \\*(]H\\*(]L\\*(]H
+.ft1
+.ps\\n()S
+.ie\\n()s 'sp 1.5v
+.el'sp 3v
+.ev
+.ns
+.if \\n(CL .2C
+..
+.de}F
+.ev1
+.}E
+.if\\n()s 'sp |\\n(.pu-1v-1p
+.if\\n()t 'sp |\\n(.pu-3v
+.ifn 'sp |\\n(.pu-4v
+.ifn .tl Page %\\*(]D\\*(]W
+.ift .tl %
+.ev
+'bp
+..
+.ifn .ig
+.de}C
+.if "\\*(.T"aps"\{\
+.	po0i
+.	lt7.5i
+.	if\\n()s .tl \l0.25i\l0.25i\h1i\l0.25i
+.	if\\n()t .tl \l0.25i\l0.25i
+.	lt
+.	po\}
+..
+.de}M
+.}N
+.wh-.5p }C
+.ll\\n(LLu
+.}P
+..
+.de}K
+.}N
+.pl1
+.ll\\n(LLu
+..
+.de}P
+.nr )P \\n%+1-\\np
+.if \\nq .tm \\n(.F \\n()P \\np
+.bp
+.if \\nq .nr p \\n%
+..
+.deTH
+.PD
+.nrIN \\n()Mu
+.ift .ds ]H \\$1\^(\^\\$2\^)
+.ifn .ds ]H \\$1(\\$2)
+.if\\n()s .ds ]D
+.if\\n()t .ds ]D Plan 9
+.ifn .ds ]D Plan 9
+.ds]L
+.if!\\$3 .ds ]L (\^\\$3\^)
+.if!\\$4 .ds ]D \\$4
+.wh0 }H
+.wh-\\n(:mu }F
+.em}M
+.if\\n(nl .}P
+.nr)I \\n()Mu
+.nr)R 0
+.}E
+.DT
+.ifn \{.na
+.nh\}
+.ift \{.bd S 3 3
+.HY \}
+..
+.deSH
+.PD
+.}X 0 "\\$1" smaller
+.nr)E 2
+\&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6
+..
+.deSS
+.PD
+.}X 3n "" ""
+.nr)E 2
+\&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6
+..
+.de}X
+.}E
+.ti\\$1
+.sp\\n(PDu
+.ne1.1v
+.nr)R 0
+.fi
+'''ss12
+'''if\\$2SYNOPSIS .ss 18
+.it1 }N
+.if!\\$3 .SM
+.ft 3
+..
+.de}2
+.nr)E 0
+.}E
+.nr)I \\n()Mu
+.ns
+.ft1
+..
+.deSM
+.nh
+.ps\\n()S-1
+.if!\\$1 \&\\$1
+.if!\\$2 \&\\$2
+.if!\\$3 \&\\$3
+.if!\\$4 \&\\$4
+.if!\\$5 \&\\$5
+.if!\\$6 \&\\$6
+.if!\\$1 .ps \\n()S
+.if\\$1 .it 1 }N
+.HY
+..
+.deI
+.nh
+.ft2
+.it1 }N
+.if!\\$1 \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
+.HY
+..
+.deB
+.nh
+.it1 }N
+.ie!\\$1 \%\&\f5\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
+.el .ft5
+.HY
+..
+.deL
+.nh
+.it1 }N
+.ift \{.ie!\\$1 \%\&\f5\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
+.el .ft5 \}
+.ifn \{.ft5
+.if!\\$1 \{.ie\\$2 `\\$1'
+.el .ie\\$3 `\\$1 \\$2'
+.el .ie\\$4 `\\$1 \\$2 \\$3'
+.el .ie\\$5 `\\$1 \\$2 \\$3 \\$4'
+.el .ie\\$6 `\\$1 \\$2 \\$3 \\$4 \\$5'
+.el `\\$1 \\$2 \\$3 \\$4 \\$5 \\$6'\}\}
+.HY
+..
+.deRI
+.nh
+.}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.HY
+.}f
+..
+.deIR
+.nh
+.}S 2 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.HY
+.}f
+..
+.deIB
+.nh
+.ift .}S 2 5 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.ifn .}S 2 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.HY
+.}f
+..
+.deRB
+.nh
+.ift .}S 1 5 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.ifn .}S 1 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.HY
+.}f
+..
+.deBR
+.nh
+.ift .}S 5 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.ifn .}S 1 1 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.HY
+.}f
+..
+.deBI
+.nh
+.ift .}S 5 2 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.ifn .}S 1 2 \%\& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+.HY
+.}f
+..
+.de LR
+.nh
+.ift \%\&\f5\\$1\f1\\$2
+.ifn \%`\\$1'\\$2
+.HY
+..
+.de RL
+.nh
+.ift \%\&\f1\\$1\\f5\\$2\\f1\\$3
+.ifn \%\\$1`\\$2'\\$3
+.HY
+..
+.de}S
+.ds]F
+.if\\$12 .if !\\$5 .ds ]F \^
+.if\\$22 .if !\\$5 .ds ]F \^
+.ie!\\$4 .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
+.el\\$3
+.}f
+..
+.deEX
+.ift .ft5
+.nf
+..
+.deEE
+.ft1
+.fi
+..
+.dePP
+.sp\\n(PDu
+.ne1.1v
+.}E
+.nr)I \\n()Mu
+.ns
+..
+.deP
+.PP
+..
+.deLP
+.PP
+..
+.dePD
+.ift .nr PD .4v
+.ifn .nr PD 1v
+.if!\\$1 .nr PD \\$1v
+..
+.deHP
+.sp\\n(PDu
+.ne1.1v
+.if!\\$1 .nr )I \\$1n
+.ll\\n(LLu
+.in\\n()Ru+\\n(INu+\\n()Iu
+.ti\\n()Ru+\\n(INu
+.}f
+..
+.deIP
+.ie!\\$1 \{.TP "\\$2"
+\&\\$1\}
+.el\{.sp\\n(PDu
+.ne1.1v
+.if!\\$2 .nr )I \\$2n
+.}f
+.ll\\n(LLu
+.in\\n()Ru+\\n(INu+\\n()Iu
+.lg\}
+..
+.deTP
+.if!\\$1 \{.nr )I \\$1n
+.if\\$10 .nr )I \\n()M\}
+.sp\\n(PDu
+.ne1.1v
+.in\\n()Ru
+.lg0
+.ns
+.it1 }N
+.nr)E 1
+.di]B
+..
+.deTF
+.IP "" "\w'\f5\\$1\ \ \fP'u"
+.PD0
+..
+.de}1
+.ds]X \&\\*(]B\\
+.rm]B
+.nr)E 0
+.if!\\$1 .nr )I \\$1n
+.}f
+.ll\\n(LLu
+.in\\n()Ru+\\n(INu+\\n()Iu
+.ti\\n(INu
+.ie!\\n()Iu+\\n()Ru-\w\\*(]Xu-3p \{\\*(]X
+.br\}
+.el\\*(]X\h|\\n()Iu+\\n()Ru\c
+.}f
+.lg
+..
+.de}N
+.if\\n()E .br
+.if\\n()E1 .di
+.if\\n()E0 .}f
+.if\\n()E1 .}1
+.if\\n()E2 .}2
+..
+.deRS
+.nr]\\n+()p \\n()I
+.nr)\\n()p \\n()R
+.ie!\\$1 .nr )R +\\$1n
+.el.nr )R +\\n()I
+.nr)I \\n()Mu
+.}E
+..
+.deRE
+.if!\\$1 \{.ie \\$10 .nr )p 1 1
+.el.nr )p \\$1 1 \}
+.ds]i \\*(]I\\n()p
+.ds]r \\*(]R\\n()p
+.nr)I \\*(]i
+.nr)R \\*(]r
+.if\\n()p .nr )p -1
+.}E
+..
+'''\"	.2C begin 2-column display, by diversion
+'''\"   CC=amount of text that will fit on page
+'''\"	CL=1 multicolumn in effect, else 0
+'''\"	CI saved indent
+'''\"	CB contains diverted text
+.de 2C
+.ne 2
+.nf
+.nr CC \\n(.t/1v*2v
+.nr CI \\n(IN
+.nr IN 0
+.di CB
+.nr CL 1
+.}E
+.dt \\n(CCu C1
+..
+'''\"	.1C return to 1-column
+.de 1C
+.nr CL 0
+.C1
+.fi
+..
+'''\"	end of diversion, at end of page or return to 1-column
+'''\"	CC=pos of nominal column end
+.de C1
+.dt
+\!.C3
+.di
+.if \\n(dn \{.nr CC \\n(dnu/2u+\\n(nlu
+.wh \\n(CCu C2
+.mk
+.nf
+.nr IN \\n(CIu
+.}E
+.CB \}
+..
+'''\"	end of first column retrieved from diversion
+'''\"	CC=pos of actual column end
+.de C2
+.wh \\n(CCu
+.mk CC
+.po +(\\n(LLu/2u)u
+.rt
+.if \\n(dn>1v .ns
+..
+'''\"	end of second column
+.de C3
+.br
+.po -(\\n(LLu/2u)u
+.if \\n(CC>\\n(nl .sp |\\n(CCu
+.ne 2
+..
+.dePM
+.if\\$1 .nr !K 0
+.if\w\\$1 \{\
+.ie\\$1P .nr !K 1
+.el.ie \\$1BP .nr !K 3
+.el.ie \\$1BR .nr !K 4
+.el.nr !K 2 \}
+.if\\n(!K .wh -(\\n(:mu+5v) )G
+..
+.de)G
+.if\\n(!K 'sp 2v
+.ie\\n(!K=1 \{\
+.iet .bd1 3
+.el.bd1 0
+.tlPRIVATE
+.bd1
+.tlThis information should not be disclosed to unauthorized persons.
+.tlIt is meant solely for use by authorized Bell System employees. \}
+.el.ie \\n(!K=3 \{\
+.iet .bd1 3
+.el.bd1 0
+.tlBELL LABORATORIES PROPRIETARY
+.bd1
+.tlNot for use or disclosure outside Bell Laboratories except by
+.tlwritten approval of the director of the distributing organization. \}
+.el.ie \\n(!K=4 \{\
+.iet .bd1 3
+.el.bd1 0
+.tlBELL LABORATORIES RESTRICTED
+.bd1
+.tlThe information herein is meant solely for use by authorized
+.tlBell Laboratories employees and is not to be disclosed to others. \}
+.el.if \\n(!K=2 \{\
+.iet .bd1 3
+.el.bd1 0
+.tlNOTICE
+.bd1
+.tlNot for use or disclosure outside the
+.tlBell System except under written agreement. \}
+..
+.nr)s 0
+.ift .if \ns .nr )s 1
+.nr)t 0
+.ift .if !\ns .nr )t 1
+.if\n()s \{.nr )L 9i
+.nrLL 4.75i
+.nr)O .75i
+.nr)S 9
+.nr)V 10 \}
+.if\n()t \{.nr )L 11i
+.nrLL 6.5i
+.nr)O 1i
+.nr)S 10
+.nr)V 12 \}
+.ift \{.ds R \(rg
+.dsS \s\n()S
+..\}
+.ifn \{.nr )L 11i
+.nrLL 6.5i
+.nr)O .463i
+.if '\*(.T'think' \{.nrLL 80n
+.nr)O 0\}
+.if '\*(.T'thinksmall' \{.nrLL 142n
+.vs 9p
+.nr)O 0\}
+.dsR (Reg.)
+.dsS
+..\}
+.if\nT .nr LL 80n
+.if\nV>1 \{
+.nrLL 82n
+.nr)L 84v
+.rmul \}
+.nr)p 0 1
+.ds]I \\\\n(]
+.ds]R \\\\n()
+.if\nd0 .nr m \n(mo-1
+.if\nm0 .ds ]m January
+.if\nm1 .ds ]m February
+.if\nm2 .ds ]m March
+.if\nm3 .ds ]m April
+.if\nm4 .ds ]m May
+.if\nm5 .ds ]m June
+.if\nm6 .ds ]m July
+.if\nm7 .ds ]m August
+.if\nm8 .ds ]m September
+.if\nm9 .ds ]m October
+.if\nm10 .ds ]m November
+.if\nm11 .ds ]m December
+.ifn \{.nr m \nm+1
+.ie\nd .ds ]W (last mod. \nm/\nd/\ny)
+.el.ds ]W (printed \n(mo/\n(dy/\n(yr)
+..\}
+.if\n()s .ds ]W
+.if\n()t \{.ie \nd .ds ]W \*(]m \nd, 20\ny
+.el.ds ]W \*(]m \n(dy, 20\n(yr
+..\}
+.pl\n()Lu
+.ll\n(LLu
+.lt\n(LLu
+.po\n()Ou
+.fp 5 L CW
+.ift .tr \``\''
+.}f
+.if\n()s .nr :m 3.5v
+.if\n()t .nr :m 6v
+.ifn .nr :m 7v
+.ift .nr )M 3.6m
+.ifn .nr )M 5n
+.em}K
+.nr q \np
+.if!\np .nr p 1
+.pn \np
diff --git a/tmac/tmac.bits b/tmac/tmac.bits
new file mode 100644
index 00000000..e410e290
--- /dev/null
+++ b/tmac/tmac.bits
@@ -0,0 +1,44 @@
+.ds Bf b		\" default format; use i for icons and faces
+.ds Bn /tmp/btroff\n($$	\" temporary file, reused on each macro call
+.ds Bp /usr/lib/btroff	\" bitmap filter
+.de BM
+.if \\n(.$=1 .ds Bf \\$1
+.if \\n(.$=2 \{.	\" copy request, perhaps diverted
+.ie '\\n(.z'' .Bm \\$1 \\$2
+.el \!.BM \\$1 \\$2\}
+.if \\n(.$=4 \{.	\" size request, numerator only
+.nr Bz \\$2
+.sy \\*(Bp -s -\\*(Bf -d\\n(Bz \\$1 | awk '{\
+	print ".nr \\$3 " $1; \
+	print ".nr \\$4 " $2; \
+	exit }' >\\*(Bn
+.so \\*(Bn
+.sy /bin/rm -f \\*(Bn \}
+.if \\n(.$=5 \{.	\" size request, numerator and denominator
+.nr Bz \\$2
+.sy \\*(Bp -s -\\*(Bf -d\\n(Bz \\$1 | awk '{\
+	print ".nr \\$4 " $1 "/\\$3"; \
+	print ".nr \\$5 " $2 "/\\$3"; \
+	exit }' >\\*(Bn
+.so \\*(Bn
+.sy /bin/rm -f \\*(Bn \}
+..
+.de Bm			\" copy request, for real
+.if \\n(.P>0 \{.	\" maybe
+.fl
+.ie '\\$2'0' \{.	\" ask driver to read the bits
+.br
+\\X'Bitmap \\$1'
+.sp -1 \}
+.el \{.			\" use the Bitmap font
+.sy \\*(Bp -\\*(Bf -d\\$2 \\$1 >\\*(Bn
+.fp 9 BM Bitmap
+.ft 9
+.ps \\$2
+.cf \\*(Bn	\" next line is for pm to consume
+\!n0 1
+.ft
+.ps
+.sy /bin/rm -f \\*(Bn \}
+.fl \}
+..
diff --git a/tmac/tmac.cs b/tmac/tmac.cs
new file mode 100644
index 00000000..5bb76da2
--- /dev/null
+++ b/tmac/tmac.cs
@@ -0,0 +1,1150 @@
+'''\"					coversheet to match version 8/06/87
+'''\"						from comp center 1.30 7/20/87
+'''\"					1/22/97 spacing change in addresses;
+'''\"						email on separate line - mdm
+'''\" registers
+'''\"	a - abstract continuation flag - 0 (no), >0 (yes)
+'''\"	b - mercury selections counter
+'''\"	c - distribution continuation flag - 0 (no), 1 (yes)
+'''\"	d - flag for length calculation
+'''\"	e - complete copy basic distribution length
+'''\"	g - complete copy overflow distribution length
+'''\"	h - cover sheet basic distribution length
+'''\"	i - cover sheet overflow distribution length
+'''\"	k - keyword flag - 0 (none), 1 (some) - reused as scratch
+'''\"	l - number of vertical units per line - troff
+'''\"	m - memorandum type flag - 1 TM, 2 IM, 3 TC
+'''\"	n - document number counter
+'''\"	o - title flag - 0 (no), 1 (yes - vertical size of title diversion)
+'''\"	p - proprietary notice flag - 0 (none), 1 (default), 2(BR)
+'''\"	r - security flag - 0 (no), 1 (yes)
+'''\"	s - software flag - 0 (no), 1 (yes)
+'''\"	t - mark title position
+'''\"	u - author count
+'''\"	q v w x y z- scratch - but remembered
+'''\"	aa - ship to itds
+'''\" strings
+'''\"	a) b)- mercury info
+'''\"	d) - date
+'''\"	k) - keywords
+'''\"	N1 - first document number
+'''\"	p) q) r)- proprietary 1
+'''\"	s) - time stamp string
+'''\"	t) - memo type (TM, IM, TC)
+'''\"	v) - document nos
+'''\"	w) - filing case nos
+'''\"	x) - work project nos
+'''\"	e( - earlier document
+'''\"	m( n( o( p(- authors 1-3 sig
+'''\"	r( - responsible person
+'''\"	s( - S software string
+'''\"	t( - memo type ("for Technical Memorandum", etc.)
+'''\"	x( - Mailing Label or DRAFT
+'''\"	N2 N3- 2nd 3rd document number
+'''\" 	Fi - up to 3 filing cases
+'''\"	Xi - up to 3 work program numbers
+'''\" diversions
+'''\"	WB - abstract
+'''\"	ZI - author info section
+'''\"	ZC - complete copy addressee primary
+'''\"	ZO - complete copy addressee overflow
+'''\"	ZS - cover sheet addressee primary
+'''\"	ZD - cover sheet addressee overflow
+'''\"	ZN - document number info
+'''\"	WT - title
+'''\"
+'''\" initialization
+'''\"
+'''\"		get ms if not loaded
+.if !\n(PS .so /usr/lib/tmac/tmac.s
+.	\" to foil ms
+.if !'\*(d)'' \{\
+.	tm You're trying to load the coversheet macros twice - havoc will result
+.	tm I'm quitting to keep you from wasting paper
+.	ex \}
+.rn FE F6
+.nr ST 0
+.nr CS 1
+.ch NP 16i
+.ch FO 16i
+.ch FX 16i
+.ch BT 16i
+.nr FM .01i
+.nr 1T 1
+.nr BE 1
+.nr PI 5n
+.if !\n(PD .nr PD 0.3v
+.pl 11i
+.de FT
+.fp 1 H
+.fp 2 HI
+.fp 3 HB
+.fp 4 HX
+.ps 10
+.vs 12
+..
+.de FB
+.ie !'\\*(TF'' .FP \\*(TF
+.el .FP times
+.ps 10
+.vs 12
+..
+.FT
+.de FE
+.F6
+.nr F4 +\\n(FP
+..
+.nr a 0 1
+.nr b 0 1
+.nr c 0
+.nr d 0
+.nr e 0
+.nr g 0
+.nr h 6
+.nr i 0
+.nr k 0
+.nr m 0
+.nr n 0 1
+.nr o 0
+.nr p 1
+.nr q 0
+.nr r 0
+.nr s 0
+.nr t 0
+.nr u 0 1
+.nr v 0
+.nr w 0
+.nr x 0
+.nr y 0
+.nr z 0
+.nr dv 0
+.if '\*(.T'aps' .nr dv 1
+'''\"	initialize units per vertical space
+.nr l 120
+.nr lp 66
+.nr np 2 1
+.af np i
+.nr tp 2 1
+.nr tc 2
+.af tc i
+.nr la 0
+.nr a1 0
+.nr a2 0
+.nr ar 0
+.nr u! 1
+.nr ud 1
+.nr ra 1
+.di ZI
+.di
+.di ZN
+.di
+.di ZC
+.di
+.di ZO
+.di
+.di ZS
+.di
+.di ZD
+.di
+'''\"initialize date string - keep for 1st pg of tm
+.if \n(mo-0 .ds d) January
+.if \n(mo-1 .ds d) February
+.if \n(mo-2 .ds d) March
+.if \n(mo-3 .ds d) April
+.if \n(mo-4 .ds d) May
+.if \n(mo-5 .ds d) June
+.if \n(mo-6 .ds d) July
+.if \n(mo-7 .ds d) August
+.if \n(mo-8 .ds d) September
+.if \n(mo-9 .ds d) October
+.if \n(mo-10 .ds d) November
+.if \n(mo-11 .ds d) December
+.as d) " \n(dy, 20\n(yr
+.ds DY \*(d)
+'''			\" initialize strings
+.ds m!
+.ds m(
+.ds n!
+.ds n(
+.ds o!
+.ds o(
+.ds x!
+.ds y!
+.ds z!
+'''			\" initialize proprietary notice
+.ds o) "Lucent Technologies \(em PROPRIETARY
+.ds p) "Use pursuant to Company Instructions
+.ds q)
+.ds r)
+'''			\" initialize trademark symbol
+.ds MT \v'-0.5m'\s-4TM\s+4\v'0.5m'
+.ds s) 0
+'''			\"initialize csmacro version string
+.ds ve MCSL (07/12/90)
+....in 0
+'''\"
+'''			\" macros to collect information
+'''\"
+.de DT 				\" macro for date
+'''\"					store date if non-empty
+.if !'\\$1'' .ds d) \\$1 \\$2 \\$3 \\$4
+.ds DY \\$1 \\$2 \\$3 \\$4
+..
+.de TI				\" macro for title -TI = mm(TL)
+.br
+.nr aa 0
+.nr TV 1
+.ds x( "Mailing Label \}
+.in 0
+.fi
+.ll 4.25i
+'''\"					diversion for title ZT = mm(tI)
+.di WT
+..
+.de AH				\" macro for author info AH = mm(AU)
+'''\"		name loc dept ext room mail_addr company
+'''\"					don't count author unless non-empty
+.br
+.di
+.if !'\\$1'' .nr u \\n+u
+.nr AV \\nu
+.if \\nu=1 \{\
+.	br
+'''\"					end title diversion on first author
+.	di
+.	nr o \\n(dn
+.	ll
+.	nf
+.	ds d! \\$3
+.	nr m2 \\$3/10 \}
+.ta 0.3i 3.i 4i 5.5i
+.br
+.ds D\\nu \\$2 \\$3
+.ds \\nuL \\$5, x\\$4
+'''\"					append to author list ZI = mm(aV)
+.da ZI
+	\\$1	\\$2 \\$5	\\$4	\\$7
+.br
+.da
+.if !'\\$6'' \{\
+.da ZI
+	(\\$6)
+.br
+.da \}
+'''\"					end append; info for signature lines
+.AA \\nu "\\$1" \\$3 \\$2 "\\$4" \\$5 \\$6
+.ta 0.5i 1.0i 1.5i 2.0i 2.5i
+..
+.de AA
+.\"ft 3
+.di M\\$1
+\\$2
+.di
+.di A\\$1
+\\$2
+.if !'\\$3'' Org. \\$3
+.if !'\\$4'' \\$4 \\$6
+.if !'\\$5'' \\$5
+.if !'\\$7'' \\$7
+.sp .05i
+.br
+.di
+.ft
+.sy echo \\$2 >/tmp/tt\\n($$
+.sy sed -f /usr/lib/tmac/name.sed /tmp/tt\\n($$ >/tmp/tx\\n($$
+.so /tmp/tx\\n($$
+.sy rm /tmp/tx\\n($$ /tmp/tt\\n($$
+.if \\$1<2 .ds T1 \\*(T1-gre
+.da G9
+\\$4-\\$3-\\*(T1
+.br
+.da
+.if !'\\*(d!'\\$3' \{\
+.	nr u! \\n(u!+1
+.	nr m3 \\$3/10
+.	if !\\n(m2=\\n(m3 .nr ud \\n(ud+1 \}
+.ie \\$1<4 \{\
+.	as m! \\l'2.25i'	
+.	as m( 	\\$2 \}
+.el .ie \\$1<7 \{\
+.	as n! \\l'2.25i'	
+.	as n(	\\$2 \}
+.el \{\
+.	as o! \\l'2.25i'	
+.	as o(	\\$2 \}
+..
+.de TO	\"begin list of im to people
+.nr TO 1
+.di 1T
+..
+.de ET		\"end list of im to people & output pg
+.di
+.SR
+..
+.de AP				\" at&t responsible person AP = mm(rP)
+.br
+.di
+.if !'\\$1'' .ds r( \\$1
+.rm AP
+..
+.de SA				\" macro for abstract info SA = mm(AS)
+.br
+.ie \\n(.$ \{\ 
+.ds a( \\$1
+.if '\\$1'no' .ds a(\}
+.el .ds a( ABSTRACT
+.nr CS 0
+.di
+.fi
+.nr LL 7.0i
+.FB
+.ft 1
+.di WB				\" WB = mm(aS)
+..
+.de SE 				\" macro for end of abstract info SE = mm(AE)
+.br
+.di
+.nr la \\n(dn
+.nr CS 1
+.ll
+.FT
+.ft 1
+.nf
+..
+.de KW				\" macro for keyword info KW = mm(OK)
+.ds k)
+.if !'\\$1'' .as k) \\$1
+.if !'\\$2'' .as k); \\$2
+.if !'\\$3'' .as k); \\$3
+.if !'\\$4'' .as k); \\$4
+.if !'\\$5'' .as k); \\$5
+.if !'\\$6'' .as k); \\$6
+.if !'\\$7'' .as k); \\$7
+.if !'\\$8'' .as k); \\$8
+.if !'\\$9'' .as k); \\$9
+'''\"					set k flag if we have some keywords
+.ie !'\\*(k)'' .nr k 1
+.el .nr k 0
+..
+.de TY				\" macro for document type TY = mm(MT)
+.if '\\$1'TM' \{\
+.	nr m 1
+.	ds t) TM
+.	ds QF TECHNICAL MEMORANDUM
+.	ds t( "for Technical Memorandum \}
+.if '\\$1'IM' \{\
+.	nr m 2
+.	ds t) IM
+.	ds QF INTERNAL MEMORANDUM
+.	ds t( "for Internal Memorandum \}
+.if '\\$1'TC' \{\
+.	nr m 3
+.	ds t) TC
+.	ds QF TECHNICAL CORRESPONDENCE
+.	ds t( "for Technical Correspondence \}
+.ie '\\$2'y' .nr s 1
+.el .nr s 0
+..
+.de NU				\" macro for document number info NU = mm(dN fC wP)
+.ie \\ns=1 .ds s( S
+.el .ds s(
+.ie \\n(wp=0 \{\
+.	ie '\\$5'' .ds CX 000000-0000
+.	el .ds CX \\$5
+.	ds X1 \\*(CX
+.	nr wp \\n(wp+1 \}
+.el \{\
+.	ds CX \\$5
+.	if !'\\$5'' \{\
+.		if \\n(wp=1 .ds X2 \\*(CX
+.		if \\n(wp=2 .ds X3 \\*(CX
+.		if \\n(wp=3 .ds X4 \\*(CX
+.		if \\n(wp=4 .ds X5 \\*(CX
+.		nr wp \\n(wp+1
+.		ds x) s\}\}
+.if !'\\$4'' \{\
+.	ie !\\n(fc=0 \{\
+.		if \\n(fc=1 .ds F2 \\$4
+.		if \\n(fc=2 .ds F3 \\$4
+.		if \\n(fc=3 .ds F4 \\$4
+.		if \\n(fc=4 .ds F5 \\$4
+.		ds w) s
+.		nr fc \\n(fc+1 \}
+.	el \{\
+.		ds F1 \\$4
+.		nr fc \\n(fc+1 \} \}
+.ie !'\\$1'' \{\
+.	ds NN \\$1-\\$2-\\$3\\*(t)\\*(s(
+.	if \\nn=0 .ds N1 \\*(NN
+.	if \\nn=1 \{\
+.		ds v) s
+.		ds N2 \\*(NN\}
+.	if \\nn=2 .ds N3 \\*(NN
+.	if \\nn=3 .ds N4 \\*(NN
+.	if \\nn=4 .ds N5 \\*(NN
+.	ie \\nn<4 .as x! \\l'2.25i'	
+.	el ie \\nn<7 .as y! \\l'2.25i'	
+.	el .as z! \\l'2.25i'	
+.	nr n \\n+n \}
+.if !'\\$6'' \{\
+.	ie !\\n(a!=0 \{\
+.		if \\n(a!=1 .as Z1 "	\\$6
+.		if \\n(a!=2 .as Z1 \\$6
+.		nr a! \\n(a!+1 \}
+.	el \{\
+.		ds Z1 "	\\$6
+.		nr a! \\n(a!+1 \} \}
+.el .ds NN
+.ta 0.8i 3.5i 5.55i
+.br
+.da ZN				\" ZN = mm(dM fC wO)
+	\\*(NN	\\$4	\\*(CX
+.br
+.da
+.ta 0.5i 1.0i 1.5i
+..
+.de MY				\" macro for mercury selections MY = mm(mE)
+.ds a)
+.ds b)
+.if '\\$1'y' \{\
+.	as a) "	CHM - Chemistry and Materials
+.	nr b \\n+b \}
+.if '\\$2'y' \{\
+.	as a) "	CMM - Communications
+.	nr b \\n+b \}
+.if '\\$3'y' \{\
+.	as a) " 	CMP - Computing
+.	nr b \\n+b
+.	if \\nb=3 .rn a) b) \}
+.if '\\$4'y' \{\
+.	as a) "	ELC - Electronics
+.	nr b \\n+b
+.	if \\nb=3 .rn a) b) \}
+.if '\\$5'y' \{\
+.	as a) "	LFS - Life Sciences
+.	nr b \\n+b
+.	if \\nb=3 .rn a) b) \}
+.if '\\$6'y' \{\
+.	as a) "	MAS - Mathematics and Statistics
+.	nr b \\n+b
+.	if \\nb=3 .rn a) b) \}
+.	if \\nb<6 \{\
+.	if '\\$7'y' \{\
+.		as a) "	PHY - Physics
+.		nr b \\n+b
+.		if \\nb=3 .rn a) b) \} \}
+.	if \\nb<6 \{\
+.	if '\\$8'y' \{\
+.		as a) "	MAN - Manufacturing
+.		nr b \\n+b \} \}
+.if \\nb=3 .rn b) a)
+..
+.de RL				\" lucent distribution ok RL = mm(rA or fA)
+.if '\\$1'n' .nr ra 2
+.rm RL
+..
+.de ED				\" earlier document number ED = mm(eD)
+.if !'\\$1'' .ds e( \\$1
+.rm ED
+..
+.de PR				\" macro for proprietary marking PR = mm(PM)
+.if '\\$1'BP' .nr p 1
+.if '\\$1'BR' \{\
+.	nr p 2
+.	ds o) "Lucent Technologies \(em PROPRIETARY (RESTRICTED)
+.	ds p) "Solely for authorized persons having a need to know
+.	ds q) "     pursuant to Company Instructions \}
+.if '\\$1'0' .nr p 0
+..
+.de GS				\" GS = mm(gS)
+.nr r 1
+..
+.de CI
+..
+.de XE
+'''\"				basic distribution leng-to be tailored-set e & h
+.if \\nd=0 \{\
+.	nr d 1
+.	if \\nr=0 .nr e \\ne+2
+.	if \\nu<=3 .nr e \\ne+3
+.	if \\nu<=6 .nr e \\ne+3
+.	if \\nu<=9 .nr e \\ne+3
+.	if \\nn<=3 .nr e \\ne+2
+.	if \\nn<=6 .nr e \\ne+2
+.	if \\nn<=9 .nr e \\ne+2
+.	if \\n(ra<=2 .nr e \\ne-3
+.	nr e \\ne+27
+.	nr h \\ne \}
+..
+.de CO				\" macro for complete copy addressees CO = mm(cC)
+.XE
+.ta 2.0i
+.nf
+.br
+.ie \\ne>0 \{\
+.	da ZC				\" ZC = mm(cA)
+.	ds y( \\$1
+.	ie '\\$1'y' .so /usr/lib/tmac/complet.1127
+.	el .if  !'\\$1'' .so /usr/lib/tmac/complet.\\*(y(
+.	dt \\ne OC \}
+.el .da ZC
+..
+.de OC				\" macro for complete copy overflow - OC = mm(cD)
+.ta 2.0i
+.br
+.da
+.da ZO				\" ZO = mm(cO)
+.ie \\n(ar>0 .dt \\n(arv ZW
+.el .dt 55 ZW
+..
+.de ZW
+.br
+.da
+.ie \\n(dn>0 .g (\\n(dn)/\\nl+4
+.da CZ
+..
+.de CV				\" macro for cover sheet only addresses CV = mm(cS)
+.XE
+.ta 2.0i
+.nf
+.br
+.ie \\nh>0 \{\
+.	da ZS				\" ZS = mm(dA)
+.	ds y( \\$1
+.	ie '\\$1'y' .so /usr/lib/tmac/cover.1127
+.	el .if !'\\$1'' .so /usr/lib/tmac/cover.\\*(y(
+.	dt \\nh OV \}
+.el .da ZD
+..
+.de OV				\" macro for cover sheet only overflow OV = mm(cT)
+.ta 2.0i
+.br
+.da
+.da ZD				\" ZD = mm(cO)
+.ie \\n(ar>0 .dt \\n(arv WW
+.el .dt 55 WW
+..
+.de WW
+.br
+.da
+.if \\n(dn>0 .nr i (\\n(dn)/\\nl+4	\" was ie with no el
+.da DZ
+..
+.de CE				\" ending all distribution diversions CE = mm(cE)
+.br
+.if "\\n(.z"ZC" \{\
+.	nr g 0
+.	rm OC \}
+.if "\\n(.z"ZO" \{\
+.	nr g -1
+.	rm OC \}
+.if "\\n(.z"CZ" \{\
+.	nr g -2
+.	rm OC \}
+.if "\\n(.z"ZS" \{\
+.	nr i 0
+.	rm OV \}
+.if "\\n(.z"ZD" \{\
+.	nr i -1
+.	rm OV \}
+.if "\\n(.z"DZ" \{\
+.	nr i -2
+.	rm )V \}
+.da
+.if \\ng=-1 \{\
+.	ie \\n(dn>0 .nr g (\\n(dn)/\\nl+4
+.	el .nr g 0 \}
+.if \\ni=-1 \{\
+.	ie \\n(dn>0 .nr i (\\n(dn)/\\nl+4
+.	el .nr i 0 \}
+..
+'''\"
+'''\" macros to help format document
+'''\"
+.de HD
+.po .5i	\"was .25
+.if "\\*(.T"aps" .tl '--''--'
+.sp|0.2i
+..
+.de FC				\" footer macro FC = mm(fO)
+.pl 11.0i
+'bp
+..
+.de ST			\" macro for abstract overflow trap ST = mm(yY)
+.ZB
+.rm ST				\" ZB = mm(aT)
+..
+.de ZB
+.ch ST 16i			\" macro for abstract overflow trap ZB = mm(aT)
+.if \\na>0 \{\
+.	ft 2
+.	ce
+(continued)
+.	ft 1 \}
+.pl 11.0i
+.nr a \\n+a
+.rn ZB XX
+'bp
+.rn XX ZB
+.wh -0.35i ZB
+.HC				\" HC = mm(cH)
+.HX				\" HX = mm(tH)
+'sp 0.05i
+.ce
+.ft 3
+Abstract (continued)
+.ft 1
+.in 0.2i
+'sp 1
+.FB
+..
+.de TK				\" macro for thick lines TKK = mm(tK)
+.ps 24
+\l'7.5i'
+.ps
+..
+.de HX				\" macro for Title headings and text HX = mm(tH)
+.TK
+'sp 0.05i
+'''\"					mark t - Title heading
+.mk t
+.ft 3
+Title:
+.ft
+'sp|\\ntu
+.in 0.7i
+.WT
+.in 0
+.ta 0.5i
+.nr q \\no/\\nl
+.ie \\nq>2 'sp|\\ntu+\\nq
+.el 'sp|\\ntu+2
+.TK
+.					\" m1 - mark end of title section - save
+.mk m1
+..
+.de HC				\" macro for continuation header HC = mm(cH)
+.nr np \\n+(np
+.nf
+.in 0
+.FT
+.ft 3
+.ta 4.80i
+.nr tc \\n(tp
+	\\*(N1\f2 (page \\n(np of \\n(tc)
+.sp 0.1i
+..
+.de DL				\" macro for distribution list headers DL = mm(dH)
+.ft 3
+.ta 1.0i 4.75i
+	\\$1	\\$2
+.sp 0.05i
+.ft 1
+.ta 0.5i 1.0i
+..
+.de EJ				\" macro for ejecting continuation page EJ = mm(eP)
+'bp
+.wh 0 HD
+'''\"				put out continuation page header & title section
+.HC
+.HX
+..
+.de CP				\" macro for continuation page CP = mm(cP)
+'''\"					calc vert. units for cc overflow (if any)
+.ie \\nv<=\\n(.t .nr v 1
+.el .nr v 0
+.if \\nv=1 .if \\nw<=\\n(.t .nr v 2
+.				\" check if cont page needs to be ejected
+.in 0
+.if \\nc=1 \{\
+.				\" - if no abstract overflow
+.	if \\na=0 .EJ
+.	if \\na>0 \{\
+.				\"or if abstract over but no room for list overfl
+.		ie \\nv<2 .EJ
+.				\" just tk line if abstract over & room for list
+.		el .TK \}
+.	FT
+.	ie \\ne=0 \{\
+.		if \\ng>4 .if \\ni>4 .DL "Complete Copy" "Cover Sheet Only"
+.		if \\ng>4 .if !\\ni>4 .DL "Complete Copy" ""
+.		if !\\ng>4 .if \\ni>4 .DL "" "Cover Sheet Only" \}
+.	el \{\
+.		if \\ng>4 .if \\ni>4 .DL "Complete Copy (continued)" "Cover Sheet Only (continued)"1
+.		if \\ng>4 .if !\\ni>4 .DL "Complete Copy (continued)" ""
+.		if !\\ng>4 .if \\ni>4 .DL "" "Cover Sheet Only (continued)" \}
+.	mk z
+.	nr q \\n(.t/\\nl
+'''\"					put out complete copy list overflow
+.	in 0.2i
+.	ZO
+.	in 0
+.	mk x
+.	sp|\\nzu
+.	in 4i
+'''\"					put out cover sheet list overflow
+.	ZD
+.	mk y
+.	in 0
+.	if \\nx-\\ny .sp|\\nxu
+.	TK \}
+..
+.de ZP					\"compute total pages and diversion lengths
+'''\"				calculate vert. units for cc overflow (if any)
+.ie \\ng>4 .nr v (\\ng)*\\nl
+.el .nr v 0
+'''\"					also for cs overflow (if any)
+.ie \\ni>4 .nr w (\\ni)*\\nl
+.el .nr w 0
+.ie \\nv>\\nw .nr j \\nv
+.el .nr j \\nw
+.					\" set c=1 if either g or i >0
+.if \\ng>4 .nr c 1
+.if \\ni>4 .nr c 1
+.					\" calculate total pages in job (default 2)
+.					\" a1 - page 1 portion abstract (units)
+.nr a1 \\nyu-\\nxu-1v
+.ie \\n(la>\\n(a1 \{\
+.					\" ar - remainder abstract (units)
+.	nr ar \\n(la-\\n(a1
+.	nr tp \\n+(tp
+.					\" a2 - available continuation page space
+.					\" m1 is mark after tk line after title
+.					\" 2v for Abstract (continued) + one blank
+.	nr a2 11.0i-\\n(m1-2v
+.	ZZ \}
+.el .if \\nc>0 .nr tp \\n+(tp
+..
+.de ZZ				\" ZZ = mm(t1)
+.ie \\n(ar>\\n(a2 \{\
+.	nr ar \\n(ar-\\n(a2
+.	nr tp \\n+(tp
+.	ZZ \}
+.el .if \\n(ar+\\nj>\\n(a2 .nr tp \\n+(tp
+..
+'''\"
+'''\" main macro to handle output of cover sheet
+'''\"		mm(CS)
+.de SC
+.nr CS 0
+.nr ST 1
+.if \\nu=0 \{\
+.	tm WARNING: author must be supplied \}
+.if \\no=0 \{\
+.	tm WARNING: document title must be supplied \}
+.if \\nm=0 \{\
+.	tm WARNING: memorandum type undefined or unknown \}
+.if \\nm=1 .if \\nb=0 \{\
+.	tm WARNING: technical memoranda must have at least one mercury class \}
+.if \\nn=0 \{\
+.	tm WARNING: document number must be supplied \}
+.XE
+.ll 7.5i
+.ft 1
+.if \\n(nl .bp
+.in 0
+.HD
+'''\" the rs is to restore spacing - ditches big space at top
+.rs
+.sp1
+.sp 0.05i
+.nf
+.ps 16
+.ft 3
+.ta 4.85i
+.					\" put out page 1 heading
+	Document Cover Sheet
+.wh 0 HD
+.sp 0.1i
+.ta 0.15i 4.55i
+	\s36\(FA\s0	\\*(t( 
+.ft
+.ps 10
+.HX
+.sp 0.05i
+.ft 3
+.ie \\nu>1 .ds u) s
+.el .ds u)
+.ta 0.5i 3.0i 3.95i 5.25i
+	Author\\*(u) (Computer Address)	Location	Phone Number	Company (if other than BL)
+.ft
+'''\"					output author info
+.ZI
+.if !'\\*(r('' \{\
+.	ta 0.3i 2.6i
+	\\*(r(	(Responsible BL Person) \}
+.TK
+.sp 0.05i
+.ft 3
+.ta 1.0i 3.3i 5.55i
+	Document No\\*(v).	Filing Case No\\*(w).	Project No\\*(x).
+.ft
+.sp 0.05i
+'''\"					output document number
+.ZN
+.TK
+'''\"					output keywords if they exist
+.if \\nk>0 \{\
+.	ft 3
+Keywords:
+.	ft
+.	sp 0.05i
+.	ti 0.2i
+\\*(k)
+.	TK \}
+'''\"					output mercury info if it exists
+.if \\nb>0 \{\
+.	ft 3
+MERCURY Announcement Bulletin Sections
+.	ft
+.	sp 0.05i
+.	ta 0.6i 3.1i 5.6i
+.	ps 8
+.	if \\nb>3 \\*(b)
+\\*(a)
+.	ps
+.	TK \}
+.ft 3
+Abstract
+.ft
+.mk x
+.nr b1 \\nx/\\n(.v+1
+.nr b2 (\\n(b1*\\n(.v)-\\nx
+.sp \\n(b2u
+.mk x
+'''\" calculate position (19v includes 2v to print version at bottom of page)
+.nr y \\n(lpv-19v
+.if \\n(F4>0 .nr y \\ny-\\n(F4
+.sp|\\nyu
+.sp -1
+.ZP
+'''\"					handle abstract page 1 continuation
+.ie \\n(la>\\n(a1 \{\
+.	ce
+.	ft2
+(continued on page iii)
+.	ft1
+.	br \}
+.el .sp1
+.if \\n(F4>0 \{\
+.	FA
+.	FG \}
+.TK
+.ps 8
+.vs 10
+.nr qq \\$1+\\$2+\\n(tp
+\f3Total Pages\f1 (including document cover sheet):  \\s+2\\n(qq\\s-2
+.ie !'\\*(e('' \{\
+Supersedes or amends document number \\*(e(. \}
+.el .sp
+.ps
+.vs
+.mk z
+.sp .67i
+'''\"					output proprietary notice if it exists
+.if \\np>0 \{\
+.ft 2
+.ti (4i-\\w'\\*(o)'u)/2u
+\\*(o)
+.ft
+.ti (4i-\\w'\\*(p)'u)/2u
+\\*(p)
+.ti (4i-\\w'\\*(q)'u)/2u
+\\*(q) \}
+.sp |\\nzu+11v
+.ta 5.35i
+\\s8\\*(ve\\s0
+.ie !'\\*(s)'' \{\
+\s8Timestamp: \\*(s)\s0	BELL LABORATORIES \}
+.el \{\
+	BELL LABORATORIES \}
+.sp|\\nzu
+.sp 1
+.ft 3
+.ti 5.25i
+\\*(x(
+.ft
+.sp|\\nxu
+.in 0.2i
+.nf
+'''\"					abstract
+.if !\\n(la=\\n(a1 \{\
+.	wh -0.25i ST \}
+.pl \\nyu
+.ta 0.5i 1.0i 1.5i 2.0i 2.5i
+.FB
+.ft 1
+'''\"					output the abstract
+.WB
+.if \\n(la=\\n(a1 .sp-1
+.rn ZB XX
+.wh -0.25i FC
+'''\"					output continuation page
+.CP
+'bp
+.FT
+.ft 1
+.in 0
+.wh 0 HD
+.nf
+.ft 3
+.ta 5.00i
+.nr tc \\n(tp
+Initial Distribution Specifications	\\*(N1\f2 (page ii of \\n(tc)\f3
+.ft 1
+.TK
+.if \\ne>0 \{\
+.	DL "     Complete Copy" "     Cover Sheet Only"
+.	mk z
+'''\"					put out complete copy list
+.	in 0.2i
+.	ZC
+.	in 0
+.	if !\\ng=0 \{\
+.		ft 2
+.		ti 1.25i
+(continued)
+.		ft 1 \}
+.	sp|\\nzu
+.	in 4i
+'''\"					put out cover sheet list
+.	ZS
+.	if !\\ni=0 \{\
+.		ft 2
+.		ti 4.75i
+(continued)
+.		ft 1 \}
+.	in 0
+'''\"					starter space value - then tailor
+.	sp|5
+.	sp \\ne
+.	TK \}
+.if \\nr=1 \{\
+\f3Government Security Classified\f1
+.	ft 1
+.	sp -0.05i
+.	TK \}
+\f3Future Lucent Technologies Distribution by ITDS\f1
+.ti 0.5i
+.sp 0.05i
+.ie \\n(ra=2 \{\
+\f3DO NOT RELEASE\f1 to any Lucent Technologies employee without appropriate approval for each request. \}
+.el \{\
+\f3RELEASE\f1 to any Lucent Technologies employee (excluding contract employees). \}
+.TK
+'''\"					put out author signature section
+.ft 3
+Author Signature\\*(u)
+.ft 1
+.sp1
+.ta 2.635i 5.25i
+\\*(m!
+.ta 0.25i 2.875i 5.5i
+\\*(m(
+.if \\nu>3 \{\
+.	sp 0.1i
+.	ta 2.635i 5.25i
+\\*(n!
+.	ta 0.25i 2.875i 5.5i
+\\*(n( \}
+.if \\nu>6 \{\
+.	sp 0.1i
+.	ta 2.635i 5.25i
+\\*(o!
+.	ta 0.25i 2.875i 5.5i
+\\*(o( \}
+.sp -0.1i
+.TK
+'''\"					output organizational approval section
+.ie \\np>1 \{\
+\f3Organizational Approval\f1  (Department Head approval \f3required\ff1 for \f2\\*(o)\f1.) \}
+.el \{\
+\f3Organizational Approval\f1  (Optional) \}
+.sp 1
+.ta 2.635i 5.25i
+\\*(x!
+.	ta 0.25i 2.875i 5.5i
+\\*(Z1
+.if \\nn>3 \{\
+.	sp .1i
+.ta 2.635i 5.25i
+\\*(y! \}
+.if \\nn>6 \{\
+.	sp .1i
+\\*(z! \}
+.sp -0.1i
+.TK
+'''\"					recipient section always output
+.ft 3
+For Use by Recipient of Cover Sheet:
+.ft 1
+.ps -3
+.vs -4
+.sp.05i
+.mk z
+ Computing network users may order copies via the \f2library \-k\f1 command;
+  for information, type \f2man library\f1 after the UNIX prompt.
+'''.sp1
+.rn fo xx
+ Otherwise:
+  Enter PAN if BL (or SS# if non-BL). \l'1.5i'
+  Return this sheet to any ITDS location.
+.sp|\\nzu
+.in 4i
+Internal Technical Document Service
+'''.sp1
+.ta 1i 2i 3i
+( ) AK 2H-28	( ) IH 7M-103	( ) DR 2F-19	( ) NW-ITDS
+( ) ALC 1B-102	( ) MV 1L-19	( ) INH 1C-114	( ) PR 5-2120
+( ) CB 30-2011	( ) WH 3E-204	( ) IW 2Z-156
+( ) HO 4F-112		( ) MT 3B-117
+.in
+.ps
+.vs
+.SR
+..
+.	\"IZ - initialization
+.de IZ
+.FB
+.nr TN 0
+.em EM
+.po 1i
+.nr PO 1i
+.if \\n(FM=0 .nr FM 1i
+.nr YY 0-\\n(FMu
+.if !\\n(PD .if n nr PD 1v
+.if t .if !\\n(PD .nr PD 0.3v
+.wh 0 NP
+.wh \\n(.pu-\\n(FMu FO
+.ch FO 16i
+.wh \\n(.pu-\\n(FMu FX
+.ch FO \\n(.pu-\\n(FMu
+.if t .wh -\\n(FMu/2u BT
+.if n .wh -\\n(FMu/2u-1v BT
+..
+.\"		macro to restore ms foiling
+.de SR
+.nr BE 0
+.nr 1T 1
+.nr FM 0
+.nr PD 0
+.nr HM 0
+.nr KG 0
+.nr FP 0
+.nr GA 0
+.nr FP 0
+.\" changed rn F5 FE added rn FJ FS
+.rn FK FE
+.rn FJ FS
+.if '\\$1'' .bp
+.if !'\\$1'' \{\
+.di ZA
+.ce
+\\*(a(
+.sp
+.WB
+.di
+.rn ZA WB\}
+.nr FC -1
+.nr % 1
+.IZ
+.rm IZ
+.if '\\$1'' .RT
+.ds MN \\*(N1 \\*(N2 \\*(N3 \\*(N4 \\*(N5
+.nr MM \\nn
+.nr MC \\n(fc
+.nr MG \\n(wp
+.nr NA \\nu
+.if '\\n(ST'1' \{\
+'''.so /usr/lib/tmac/tmac.rscover XXX
+.so \*(.P/lib/tmac/tmac.rscover
+. \" a line for troff to eat
+.S1 \}
+.ll 6i
+.nr LL 6i
+.rr a b c d e f g h i j k
+.rr l m n o p q r s t u
+.rr v w x y z np tp nc tc
+.rr ud u! m2 dv
+.rr lp np la a1 a2 ar wp fc m1
+.rm DT TI AH SE KW TY NU MY
+.rm PR CI CO OC CV OV CE HD
+.rm FC ST TK HX HC DL EJ
+.rm CP SC a) b) k) N1 p) q) r)
+.rm N2 N3 N4 N5 X1 X2 X3 X4 X5
+.rm X1 X2 X3 X4 X5 F1 F2 F3 F4
+.rm F5
+.rm d) o) s) ve m! n! o! e( r(
+.rm x! y! z! x( d! ve u)
+.rm t) w) x) y) z) a( b( c( m(
+.rm n( o( p( s( t( SA ZI ZC ZO
+.rm ZS ZD ZN FT FB CX NN GS
+.rm ZB XX ZP ZZ
+.rm TM IM MF MR LT OK RP TR
+.rm TX AU AX AI AE SY S2 S0
+.rm S3
+..
+.de RP
+.nr ST 2
+.SS
+..
+.de TR
+.nr ST 3
+.ds MN \\$1
+.SS
+..
+.de SS		\"RP or TR rename the world so old macros called
+.rm SG
+.nr CS 0
+.nr BE 0
+.nr 1T 0
+.nr FM 0
+.nr PD 0
+.nr HM 0
+.nr KG 0
+.nr FP 0
+.nr GA 0
+.nr FP 0
+.ll 6i
+.nr LL 6i
+.\" changed rn F5 FE added rn FJ FS
+.rn F6 FE
+.nr FC -1
+.nr % 1
+.IZ
+.rm IZ
+.pn 0
+.de TI
+.TL
+\\..
+.de SA
+.AB \\\\$1
+\\..
+.de SE
+.AE
+\\..
+.de AH
+.AU
+\\\\$1
+\\..
+.de DT
+.ND \\\\$1 \\\\$2 \\\\$3
+\\..
+.br
+.rr a b c d e f g h i j k
+.rr l m n o p q r s t u
+.rr v w x y z np tp nc tc
+.rr ud u! m2 dv
+.rr lp np la a1 a2 ar wp fc m1
+.rm DT KW TY NU MY
+.rm PR CI OC OV HD
+.rm FC ST TK HX HC DL EJ
+.rm CP SC a) b) k) N1 p) q) r)
+.rm d) o) s) ve m! n! o! e( r(
+.rm x! y! z! x( d! ve u)
+.rm t) w) x) y) z) a( b( c( m(
+.rm n( o( p( s( t( ZI ZC ZO
+.rm ZS ZD ZN FT FB CX NN GS
+.rm ZB XX ZP ZZ
+.rm TM IM MF MR LT
+..
diff --git a/tmac/tmac.e b/tmac/tmac.e
new file mode 100644
index 00000000..a274c774
--- /dev/null
+++ b/tmac/tmac.e
@@ -0,0 +1,997 @@
+.nr _0 \n(.c
+.\"**********************************************************************
+.\"*									*
+.\"*	******  - M E   N R O F F / T R O F F   M A C R O S  ******	*
+.\"*									*
+.\"*	Produced for your edification and enjoyment by:			*
+.\"*		Eric Allman						*
+.\"*		Electronics Research Laboratory				*
+.\"*		U.C. Berkeley.						*
+.\"*									*
+.\"*	VERSION 2.9	First Release: 11 Sept 1978			*
+.\"*	See file \*(||/revisions for revision history			*
+.\"*									*
+.\"*	Documentation is available.					*
+.\"*									*
+.\"**********************************************************************
+.\"
+.\"	@(#)tmac.e	2.9	12/10/80
+.\" This version has had comments stripped; an unstripped version is available.
+.if !\n(.V .tm You are using the wrong version of NROFF/TROFF!!
+.if !\n(.V .tm This macro package works only on the version seven
+.if !\n(.V .tm release of NROFF and TROFF.
+.if !\n(.V .ex
+.if \n(pf \
+.	nx \*(||/null.me
+.de @C
+.nr _S \\n(.s
+.nr _V \\n(.v
+.nr _F \\n(.f
+.nr _I \\n(.i
+.ev \\$1
+.ps \\n(_Su
+.vs \\n(_Vu
+.ft \\n(_F
+'in \\n(_Iu
+.xl \\n($lu
+.lt \\n($lu
+.rr _S
+.rr _V
+.rr _F
+.rr _I
+.ls 1
+'ce 0
+..
+.de @D
+.ds |p "\\$3
+.nr _d \\$1
+.ie "\\$2"C" \
+.	nr _d 1
+.el .ie "\\$2"L" \
+.	nr _d 2
+.el .ie "\\$2"I" \
+.	nr _d 3
+.el .ie "\\$2"M" \
+.	nr _d 4
+.el \
+.	ds |p "\\$2
+..
+.de @z
+.if !"\\n(.z"" \
+\{\
+.	tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z)
+.	di
+.	ex
+.\}
+.if \\n(?a \
+.	bp
+.rm bp
+.rm @b
+.if t \
+.	wh -1p @m
+.br
+..
+.de @I
+.rm th
+.rm ac
+.rm lo
+.rm sc
+.rm @I
+..
+.de he
+.ie !\\n(.$ \
+\{\
+.	rm |4
+.	rm |5
+.\}
+.el \
+\{\
+.	ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+.	ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+.\}
+..
+.de eh
+.ie !\\n(.$ \
+.	rm |4
+.el \
+.	ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.de oh
+.ie !\\n(.$ \
+.	rm |5
+.el \
+.	ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.de fo
+.ie !\\n(.$ \
+\{\
+.	rm |6
+.	rm |7
+.\}
+.el \
+\{\
+.	ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+.	ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+.\}
+..
+.de ef
+.ie !\\n(.$ \
+.	rm |6
+.el \
+.	ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.de of
+.ie !\\n(.$ \
+.	rm |7
+.el \
+.	ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.de ep
+.if \\n(nl>0 \
+\{\
+.	wh 0
+.	rs
+.	@b
+.\}
+..
+.de @h
+.if (\\n(.i+\\n(.o)>=\\n(.l \
+.	tm Line \\n(c. -- Offset + indent exceeds line length
+.if t .if (\\n(.l+\\n(.o)>7.75i \
+.	tm Line \\n(c. -- Offset + line length exceeds paper width
+.nr ?h \\n(?H
+.rr ?H
+.nr ?c \\n(?C
+.rr ?C
+.rn |4 |0
+.rn |5 |1
+.rn |6 |2
+.rn |7 |3
+.nr _w 0
+.nr ?W 0
+.nr ?I 1
+.ev 2
+.rs
+.if t .@m
+.if \\n(hm>0 \
+.	sp |\\n(hmu
+.if \\n($T=2 \\!.
+.@t $h
+.if \\n(tm<=0 \
+.	nr tm \n(.Vu
+.sp |\\n(tmu
+.ev
+.mk _k
+.if \\n(?n .nm 1
+.nr $c 1
+.ie \\n(?s \
+\{\
+.	rr ?s
+.	rs
+'	@b
+.\}
+.el \
+.	@n
+..
+.de @m
+.@O 0
+.lt 7.5i
+.tl '\(rn''\(rn'
+.@O
+.lt
+..
+.de @n
+.if \\n(bm<=0 \
+.	nr bm \\n(.Vu
+.if (\\n(_w<=\\n($l)&(\\n(?W=0) \
+\{\
+.	nr _b (\\n(ppu*\\n($ru)/2u
+.	if \\n(_bu>((\\n(bmu-\\n(fmu-(\\n(tpu*\\n($ru))/2u) \
+.		nr _b (\\n(ppu*\\n($ru)-\n(.Vu
+.	nr _b +\\n(bmu
+.\}
+.nr _B \\n(_bu
+.ch @f
+.wh -\\n(_bu @f
+.nr ?f 0
+.if \\n(?o \
+\{\
+.	(f _
+.	nf
+.	|o
+.	fi
+.	)f
+.	rm |o
+.\}
+.nr ?o 0
+.if \\n(?T \
+\{\
+.	nr _i \\n(.i
+.	in \\n($iu
+.	|h
+.	in \\n(_iu
+.	rr _i
+.	mk #T
+.	ns
+.\}
+.if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \
+\{\
+.	nr ?a 0
+.	@k |t
+.	if \\n(?w \
+.		mk _k
+.	nr ?w 0
+.\}
+.os
+.$H
+.ns
+..
+.de @f
+.ec
+.if \\n(?T \
+\{\
+.	nr T. 1
+.	T# 1
+.	br
+.\}
+.ev 2
+.ce 0
+.if \\n(?b \
+\{\
+.	nr ?b 0
+.	@k |b
+.\}
+.if \\n(?f \
+.	@o
+.ie \\n($c<\\n($m \
+.	@c
+.el \
+.	@e
+.ev
+..
+.de @o
+.nf
+.ls 1
+.in 0
+.wh -\\n(_Bu @r
+.|f
+.fi
+.if \\n(?o \
+.	di
+.	if \\n(dn=0 \
+\{\
+.		rm |o
+.		nr ?o 0
+.	\}
+.	nr dn \\n(_D
+.	rr _D
+.\}
+.rm |f
+.ch @r
+..
+.de @c
+.rs
+.sp |\\n(_ku
+.@O +\\n($lu+\\n($su
+.nr $c +1
+.@n
+..
+.de @e
+.@O \\n(_ou
+.rs
+.sp |\\n(.pu-\\n(fmu-(\\n(tpu*\\n($ru)
+.@t $f
+.nr ?h 0
+.bp
+..
+.de @t
+.if !\\n(?h \
+\{\
+.	sz \\n(tp
+.	@F \\n(tf
+.	lt \\n(_Lu
+.	nf
+.	\\$1
+.	br
+.\}
+..
+.de $h
+.rm |z
+.if !\\n(?c \
+\{\
+.	if e .ds |z "\\*(|0
+.	if o .ds |z "\\*(|1
+.\}
+.if !\(ts\\*(|z\(ts\(ts \
+'	tl \\*(|z
+.rm |z
+..
+.de $f
+.rm |z
+.if \\n(?c \
+\{\
+.	if e .ds |z "\\*(|0
+.	if o .ds |z "\\*(|1
+.\}
+.if \(ts\\*(|z\(ts\(ts \
+\{\
+.	if e .ds |z "\\*(|2
+.	if o .ds |z "\\*(|3
+.\}
+.if !\(ts\\*(|z\(ts\(ts \
+'	tl \\*(|z
+.rm |z
+..
+.de @r
+.di |o
+.nr ?o 1
+.nr _D \\n(dn
+.ns
+..
+.rn bp @b
+.de bp
+.nr $c \\n($m
+.ie \\n(nl>0 \
+.	@b \\$1
+.el \
+\{\
+.	if \\n(.$>0 \
+.		pn \\$1
+.	if \\n(?I \
+.		@h
+.\}
+.br
+.wh 0 @h
+..
+.rn ll xl
+.de ll
+.xl \\$1
+.lt \\$1
+.nr $l \\n(.l
+.if (\\n($m<=1):(\\n($l>\\n(_L) \
+.	nr _L \\n(.l
+..
+.rn po @O
+.de po
+.@O \\$1
+.nr _o \\n(.o
+..
+.de hx
+.nr ?H 1
+..
+.de ix
+'in \\$1
+..
+.de bl
+.br
+.ne \\$1
+.rs
+.sp \\$1
+..
+.de n1
+.nm 1
+.xl -\w'0000'u
+.nr ?n 1
+..
+.de n2
+.nm \\$1
+.ie \\n(.$ \
+.	xl -\w'0000'u
+.el \
+.	xl \\n($lu
+..
+.de pa
+.bp \\$1
+..
+.de ro
+.af % i
+..
+.de ar
+.af % 1
+..
+.de m1
+.nr _0 \\n(hmu
+.nr hm \\$1v
+.nr tm +\\n(hmu-\\n(_0u
+.rr _0
+..
+.de m2
+.nr tm \\n(hmu+\\n(tpp+\\$1v
+..
+.de m3
+.nr bm \\n(fmu+\\n(tpp+\\$1v
+..
+.de m4
+.nr _0 \\n(fmu
+.nr fm \\$1v
+.nr bm +\\n(fmu-\\n(_0u
+..
+.de sk
+.if \\n(.$>0 \
+.	tm Line \\n(c. -- I cannot skip multiple pages
+.nr ?s 1
+..
+.de re
+.ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
+..
+.if t .ig
+.de re
+.ta 0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i
+..
+.de ba
+.ie \\n(.$ \
+.	nr $i \\$1n
+.el \
+.	nr $i \\n(siu*\\n($0u
+..
+.de hl
+.br
+\l'\\n(.lu-\\n(.iu'
+.sp
+..
+.de pp
+.lp \\n(piu
+..
+.de lp
+.@p
+.if \\n(.$ \
+.	ti +\\$1
+.nr $p 0 1
+..
+.de ip
+.if (\\n(ii>0)&(\\n(ii<1n) \
+.	nr ii \\n(iin
+.nr _0 \\n(ii
+.if \\n(.$>1 \
+.	nr _0 \\$2n
+.@p \\n(_0u
+.if \\w"\\$1" \
+\{\
+.	ti -\\n(_0u
+.	ie \\w"\\$1">=\\n(_0 \
+\{\
+\&\\$1
+.		br
+.	\}
+.	el \&\\$1\h'|\\n(_0u'\c
+.\}
+.rr _0
+..
+.de np
+.nr $p +1
+.ip (\\n($p)
+..
+.de @p
+.@I
+.if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation
+.in \\n($iu+\\n(pou
+.if \\n(.$ \
+.	in +\\$1n
+.ce 0
+.fi
+.@F \\n(pf
+.sz \\n(ppu
+.sp \\n(psu
+.ne \\n(.Lv+\\n(.Vu
+.ns
+..
+.de sh
+.rn sh @T
+.so \\*(||/sh.me
+.sh "\\$1" "\\$2" \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
+.rm @T
+..
+.de $p
+.if (\\n(si>0)&(\\n(.$>2) \
+.	nr $i \\$3*\\n(si
+.in \\n($iu
+.ie !"\\$1\\$2"" \
+\{\
+.	sp \\n(ssu
+.	ne \\n(.Lv+\\n(.Vu+\\n(psu+(\\n(spu*\\n($ru*\\n(.Lu)
+.	ie \\n(.$>2 \
+.		ti -(\\n(siu-\\n(sou)
+.	el \
+.		ti +\\n(sou
+.	@F \\n(sf
+.	sz \\n(spu
+.	if \\$3>0 \
+.		$\\$3
+.	if \w"\\$2">0 \\$2.
+.	if \w"\\$1">0 \\$1\f1\ \  \"
+.\}
+.el \
+.	sp \\n(psu
+.@F \\n(pf
+.sz \\n(ppu
+..
+.de uh
+.rn uh @T
+.so \\*(||/sh.me
+.uh "\\$1"
+.rm @T
+..
+.de 2c
+.br
+.if \\n($m>1 \
+.	1c
+.nr $c 1
+.nr $m 2
+.if \\n(.$>1 \
+.	nr $m \\$2
+.if \\n(.$>0 \
+.	nr $s \\$1n
+.nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
+.xl \\n($lu
+.mk _k
+.ns
+..
+.de 1c
+.br
+.nr $c 1
+.nr $m 1
+.ll \\n(_Lu
+.sp |\\n(.hu
+.@O \\n(_ou
+..
+.de bc
+.sp 24i
+..
+.de (z
+.rn (z @V
+.so \\*(||/float.me
+.(z \\$1 \\$2
+.rm @V
+..
+.de )z
+.tm Line \\n(c. -- unmatched .)z
+..
+.de (t
+.(z \\$1 \\$2
+..
+.de )t
+.)z \\$1 \\$2
+..
+.de (b
+.br
+.@D 3 \\$1 \\$2
+.sp \\n(bsu
+.@(
+..
+.de )b
+.br
+.@)
+.if (\\n(bt=0):(\\n(.t<\\n(bt) \
+.	ne \\n(dnu
+.ls 1
+.nf
+.|k
+.ec
+.fi
+.in 0
+.xl \\n($lu
+.ev
+.rm |k
+.sp \\n(bsu+\\n(.Lv-1v
+..
+.de @(
+.if !"\\n(.z"" .tm Line \\n(c. -- Illegal nested keep \\n(.z
+.@M
+.di |k
+\!'rs
+..
+.de @M
+.nr ?k 1
+.@C 1
+.@F \\n(df
+.vs \\n(.su*\\n($Ru
+.nf
+.if "\\*(|p"F" \
+.	fi
+.if \\n(_d=4 \
+.	in 0
+.if \\n(_d=3 \
+\{\
+.	in +\\n(biu
+.	xl -\\n(biu
+.\}
+.if \\n(_d=1 \
+.	ce 10000
+..
+.de @)
+.br
+.if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened
+.nr ?k 0
+.di
+.in 0
+.ce 0
+..
+.de (c
+.if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests
+.di |c
+..
+.de )c
+.if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c
+.br
+.di
+.ev 1
+.ls 1
+.in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
+.nf
+.|c
+.ec
+.in
+.ls
+.ev
+.rm |c
+..
+.de (q
+.br
+.@C 1
+.fi
+.sp \\n(qsu
+.in +\\n(qiu
+.xl -\\n(qiu
+.sz \\n(qp
+..
+.de )q
+.br
+.ev
+.sp \\n(qsu+\\n(.Lv-1v
+.nr ?k 0
+..
+.de (l
+.br
+.sp \\n(bsu
+.@D 3 \\$1 \\$2
+.@M
+..
+.de )l
+.br
+.ev
+.sp \\n(bsu+\\n(.Lv-1v
+.nr ?k 0
+..
+.de EQ
+.rn EQ @T
+.so \\*(||/eqn.me
+.EQ \\$1 \\$2
+.rm @T
+..
+.de TS
+.rn TS @W
+.so \\*(||/tbl.me
+.TS \\$1 \\$2
+.rm @W
+..
+.de sz
+.ps \\$1
+.vs \\n(.su*\\n($ru
+.bd S B \\n(.su/3u
+..
+.de r
+.nr _F \\n(.f
+.ul 0
+.ft 1
+.if \\n(.$ \&\\$1\f\\n(_F\\$2
+.rr _F
+..
+.de i
+.nr _F \\n(.f
+.ul 0
+.ft 2
+.if \\n(.$ \&\\$1\f\\n(_F\\$2
+.rr _F
+..
+.de b
+.nr _F \\n(.f
+.ul 0
+.ie t \
+.	ft 3
+.el \
+.	ul 10000
+.if \\n(.$ \&\\$1\f\\n(_F\\$2
+.if \\n(.$ \
+.	ul 0
+.rr _F
+..
+.de rb
+.nr _F \\n(.f
+.ul 0
+.ft 3
+.if \\n(.$ \&\\$1\f\\n(_F\\$2
+.rr _F
+..
+.de u
+\&\\$1\l'|0\(ul'\\$2
+..
+.de q
+\&\\*(lq\\$1\\*(rq\\$2
+..
+.de bi
+.ft 2
+.ie t \&\k~\\$1\h'|\\n~u+(\\n(.su/3u)'\\$1\fP\\$2
+.el \&\\$1\fP\\$2
+..
+.de bx
+.ie \\n($T \&\f2\\$1\fP\\$2
+.el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
+..
+.de @F
+.nr ~ \\$1
+.if \\n~>0 \
+\{\
+.	ul 0
+.	ie \\n~>4 \
+\{\
+.		if n .ul 10000
+.		if t .ft 3
+.	\}
+.	el \
+.		ft \\n~
+.\}
+.rr ~
+..
+.de (f
+.rn (f @U
+.so \\*(||/footnote.me
+.(f \\$1 \\$2
+.rm @U
+..
+.de )f
+.tm Line \\n(c. -- unmatched .)f
+..
+.de $s
+\l'2i'
+.if n \
+.	sp 0.3
+..
+.de (d
+.rn (d @U
+.so \\*(||/deltext.me
+.(d \\$1 \\$2
+.rm @U
+..
+.de )d
+.tm Line \\n(c. -- unmatched .)d
+..
+.de (x
+.rn (x @U
+.so \\*(||/index.me
+.(x \\$1 \\$2
+.rm @U
+..
+.de )x
+.tm Line \\n(c. -- unmatched .)x
+..
+.de th
+.so \\*(||/thesis.me
+.rm th
+..
+.de +c
+.ep
+.if \\n(?o:\\n(?a \
+\{\
+.	bp
+.	rs
+.	ep
+.\}
+.nr ?C 1
+.nr $f 1 1
+.ds * \\*[1\\*]\k*
+.if \\n(?R \
+.	pn 1
+.bp
+.in \\n($iu
+.rs
+.ie \\n(.$ \
+.	$c "\\$1"
+.el \
+.	sp 3
+..
+.de ++
+.nr _0 0
+.if "\\$1"C" \
+.	nr _0 1
+.if "\\$1"RC" \
+.	nr _0 11
+.if "\\$1"A" \
+.	nr _0 2
+.if "\\$1"RA" \
+.	nr _0 12
+.if "\\$1"P" \
+.	nr _0 3
+.if "\\$1"B" \
+.	nr _0 4
+.if "\\$1"AB" \
+.	nr _0 5
+.if \\n(_0=0 \
+.	tm Line \\n(c. -- Bad mode to .++
+.nr ?R 0
+.if \\n(_0>10 \
+.\{
+.	nr ?R 1
+.	nr _0 -10
+.\}
+.nr ch 0 1
+.if (\\n(_0=3):(\\n(_0=5) \
+.	pn 1
+.ep
+.if \\n(_0=1 \
+\{\
+.	af ch 1
+.	af % 1
+.\}
+.if \\n(_0=2 \
+\{\
+.	af ch A
+.	af % 1
+.\}
+.if \\n(_0=3 \
+.	af % i
+.if \\n(_0=4 \
+.	af % 1
+.if \\n(_0=5 \
+.	af % 1
+.if \\n(.$>1 \
+.	he \\$2
+.if !\\n(_0=\\n(_M .if \\n(_M=3 \
+.	pn 1
+.nr _M \\n(_0
+.rr _0
+..
+.de $c
+.sz 12
+.ft B
+.ce 1000
+.if \\n(_M<3 \
+.	nr ch +1
+.ie \\n(_M=1 CHAPTER\ \ \\n(ch
+.el .if \\n(_M=2 APPENDIX\ \ \\n(ch
+.if \w"\\$1" .sp 3-\\n(.L
+.if \w"\\$1" \\$1
+.if (\\n(_M<3):(\w"\\$1") \
+.	sp 4-\\n(.L
+.ce 0
+.ft
+.sz
+.ie \\n(_M=1 \
+.	$C Chapter \\n(ch "\\$1"
+.el .if \\n(_M=2 \
+.	$C Appendix \\n(ch "\\$1"
+..
+.de tp
+.hx
+.bp
+.br
+.rs
+.pn \\n%
+..
+.de ac
+.rn ac @T
+.so \\*(||/acm.me
+.ac "\\$1" "\\$2"
+.rm @T
+..
+.de lo
+.so \\*(||/local.me
+.rm lo
+..
+.if \n(mo=1 .ds mo January
+.if \n(mo=2 .ds mo February
+.if \n(mo=3 .ds mo March
+.if \n(mo=4 .ds mo April
+.if \n(mo=5 .ds mo May
+.if \n(mo=6 .ds mo June
+.if \n(mo=7 .ds mo July
+.if \n(mo=8 .ds mo August
+.if \n(mo=9 .ds mo September
+.if \n(mo=10 .ds mo October
+.if \n(mo=11 .ds mo November
+.if \n(mo=12 .ds mo December
+.if \n(dw=1 .ds dw Sunday
+.if \n(dw=2 .ds dw Monday
+.if \n(dw=3 .ds dw Tuesday
+.if \n(dw=4 .ds dw Wednesday
+.if \n(dw=5 .ds dw Thursday
+.if \n(dw=6 .ds dw Friday
+.if \n(dw=7 .ds dw Saturday
+.ds td \*(mo \n(dy, 20\n(yr
+.if (1m<0.1i)&(\nx!=0) \
+.	vs 9p
+.rr x
+.nr $r \n(.v/\n(.s
+.nr $R \n($r
+.nr hm 4v
+.nr tm 7v
+.nr bm 6v
+.nr fm 3v
+.nr tf 3
+.nr tp 10
+.hy 14
+.nr bi 4n
+.nr pi 5n
+.nr pf 1
+.nr pp 10
+.nr qi 4n
+.nr qp -1
+.nr ii 5n
+.nr $m 1
+.nr $s 4n
+.ds || #9/sys/lib/tmac/me
+.bd S B 3
+.ds [ \u\x'-0.25v'
+.ds ] \d
+.ds < \d\x'0.25v'
+.ds > \u
+.ds - --
+.if t \
+\{\
+.	ds [ \v'-0.4m'\x'-0.2m'\s-3
+.	ds ] \s0\v'0.4m'
+.	ds < \v'0.4m'\x'0.2m'\s-3
+.	ds > \s0\v'-0.4m'
+.	ds - \-
+.	nr fi 0.3i
+.\}
+.if n \
+\{\
+.	nr fi 3n
+.\}
+.nr _o \n(.o
+.if n .po 1i
+.if \n(.V=1v \
+.	nr $T 2
+.if \n(.T=0 \
+.	nr $T 1
+.if t \
+\{\
+.	nr $T 0
+.	po -0.5i
+.\}
+.if \nv \
+.	po 1i
+.if \n($T \
+\{\
+.	if \n($T=1 \
+.		po 0
+.	ds [ [
+.	ds ] ]
+.	ds < <
+.	ds > >
+.\}
+.nr ps 0.5v
+.if \n($T \
+.	nr ps 1v
+.if t .nr ps 0.35v
+.nr bs \n(ps
+.nr qs \n(ps
+.nr zs 1v
+.nr xs 0.2v
+.nr fs 0.2v
+.if \n($T \
+.	nr fs 0
+.if n .nr es 1v
+.if t .nr es 0.5v
+.wh 0 @h
+.nr $l \n(.lu
+.nr _L \n(.lu
+.nr $c 1
+.nr $f 1 1
+.ds * \*[1\*]\k*\"
+.nr $d 1 1
+.ds # [1]\k#\"
+.nr _M 1
+.ds lq \&"\"
+.ds rq \&"\"
+.if t \
+.	ds lq ``
+.if t \
+.	ds rq ''
+.em @z
+.de sc
+.so \\*(||/chars.me
+.rm sc
+..
+.ll 6.0i
+.lt 6.0i
diff --git a/tmac/tmac.jsdisp b/tmac/tmac.jsdisp
new file mode 100644
index 00000000..5680cd2d
--- /dev/null
+++ b/tmac/tmac.jsdisp
@@ -0,0 +1,63 @@
+.		\" DS - display.  If .DS C, center; L, left-adjust; I, indent.
+.de DS
+.KS
+.nf
+.\\$1D \\$2 \\$1
+.ft 1
+.ps \\n(PS
+.if \\n(VS>40 .vs \\n(VSu
+.if \\n(VS<=39 .vs \\n(VSp
+..
+.de D
+.ID \\$1
+..
+.de CD
+.XD
+.ce 1000
+..
+.de ID
+.XD
+.if t .in +0.5i
+.if n .in +8
+.if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(OIu
+.if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n
+..
+.de LD
+.XD
+..
+.de XD
+.nf
+.nr OI \\n(.i
+.SP \\n(DVu
+.sp \\n(DVu
+..
+.		\" BD - block display: save everything, then center it.
+.de BD
+.XD
+.nr BD 1
+.nf
+.in \\n(OIu
+.di DD
+..
+.		\"DE - display end
+.de DE
+.ce 0
+.if \\n(BD>0 .DF
+.nr BD 0
+.in \\n(OIu
+.KE
+.SP \\n(DVu
+.sp \\n(DVu
+.fi
+..
+.		\" DF - finish a block display to be recentered.
+.de DF
+.di
+.if \\n(dl>\\n(BD .nr BD \\n(dl
+.if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u
+.nr EI \\n(.l-\\n(.i
+.ta \\n(EIuR
+.nf
+.DD
+.in \\n(OIu
+..
diff --git a/tmac/tmac.m b/tmac/tmac.m
new file mode 100644
index 00000000..90adf553
--- /dev/null
+++ b/tmac/tmac.m
@@ -0,0 +1,3 @@
+'''\"	TMAC.M @(#)tmacs.src	1.7
+.if n .so #9/sys/lib/tmac/mmn
+.if t .so #9/sys/lib/tmac/mmt
diff --git a/tmac/tmac.mcs b/tmac/tmac.mcs
new file mode 100644
index 00000000..4753b934
--- /dev/null
+++ b/tmac/tmac.mcs
@@ -0,0 +1,2014 @@
+'''\"	@(#)dcs:csmacros	2.3	5/2/89	
+'''\" registers
+'''\"	a - abstract continuation flag - 0 (no), >0 (yes - number of overflow pages)
+'''\"	b - mercury selections counter
+'''\"	c - distribution continuation flag - 0 (no), 1 (yes)
+'''\"	d - distribution length calculation flag - 0 (no), 1 (yes)
+'''\"	e - complete copy basic distribution length
+'''\"	g - complete copy overflow distribution length
+'''\"	h - cover sheet basic distribution length
+'''\"	i - cover sheet overflow distribution length
+'''\"	j - scratch
+'''\"	k - keyword flag - 0 (none), 1 (some)
+'''\"	l - number of vertical units per line - troff and nroff
+'''\"	m - memorandum type flag - 1 TM, 2 IM, 3 TC
+'''\"	n - document number counter
+'''\"	o - title flag - 0 (no), 1 (yes - vertical size of title diversion)
+'''\"	p - proprietary notice flag - 0 (none), 1 (default notice), 2(BR)
+'''\"	q - scratch
+'''\"	r - security flag - 0 (no), 1 (yes)
+'''\"	s - software flag - 0 (no), 1 (yes)
+'''\"	t - mark title position
+'''\"	u - author count
+'''\"	v - scratch
+'''\"	w - scratch
+'''\"	x - mark scratch position
+'''\"	y - mark scratch position
+'''\"	z - mark scratch position
+'''\"	ra - release to Lucent flag - 0 (no decision), 1 (yes), 2 (no)
+'''\"	an - length abstract footnote diversion
+'''\"	fn - length footnote diversion
+'''\"	as - "in abstract" flag - 0 (no), 1 (yes)
+'''\"	ds - "in display" flag - 0 (no), 1 (yes)
+'''\"	fs - "in footnote" flag - 0 (no), 1 (yes)
+'''\"	bd - block center display flag - 0 (no), 1 (yes)
+'''\"	dv - device flag - 0 (default), 1 (APS-5), 2 (i10), 3 (xerox), 4 (i300), 5 (qms1200), 6 (postscript)
+'''\"	lp - lines per page (nroff - xerox)
+'''\"	tp - total pages (decimal)
+'''\"	tc - total pages (in small roman)
+'''\"	np - page number this page (decimal)
+'''\"	nc - page number this page (in small roman)
+'''\"	lt - vertical size of title diversion (in lines)
+'''\"	lo - vertical size of copy overflow trap (in lines)
+'''\"	la - vertical size of abstract diversion
+'''\"	a1 - vertical size of page 1 portion of abstract
+'''\"	a2 - vertical size of overflow page portion of abstract
+'''\"	ar - vertical size remainder of abstract
+'''\"	fi - save current fill/no-fill (.u)
+'''\"	in - save current indent (.i)
+'''\"	si - standard indent - ens (for paragraphs, displays & equations)
+'''\"	ps - initial point size (.s)
+'''\"	ts - temp point size (only in S macro)
+'''\"	vs - initial vertical spacing (.v)
+'''\"	tv - temp vertical spacing (only in S macro)
+'''\"	b1, b2 - scratch calculations
+'''\"	g1, g2, g3, g4, g5 - complete copy overflow - additional diversion lengths
+'''\"	i1, i2, i3, i4, i5 - cover sheet only overflow - additional diversionlengths
+'''\"	m1 - mark scratch position
+'''\"	:b, :c, :d, :e - scratch (lists only)
+'''\"	:h - SA macro only
+'''\"	ls - nested list level (lists only)
+'''\"	dt - display type (displays & equations)
+'''\"	fc - filing case flag
+'''\"	wp - work project number flag
+'''\"	en - entity flag - 1 (BL), 2 (IS), 3 (TI), 4 (CH)
+'''\"	lg - Lucent logo flag - 0 (not defined), 1 (defined)
+'''\"	oa - organizational approval name counter
+'''\"	aa - ship to itds
+'''\" strings
+'''\"	a) - mercury info
+'''\"	b) - mercury info
+'''\"	c) - mercury info
+'''\"	e) - equation label
+'''\"	k) - keywords
+'''\"	m) - Mailing Label/DRAFT
+'''\"	n) - first document number
+'''\"	o) - proprietary classification heading
+'''\"	p) - proprietary string 1
+'''\"	q) -     "         "    2
+'''\"	r) -     "         "    3
+'''\"	s) - timestamp string
+'''\"	t) - memo type (TM, IM, TC)
+'''\"	u) - trailing s if multiple author
+'''\"	v) - trailing s if multiple document number
+'''\"	w) - trailing s if multiple filing case
+'''\"	x) -  trailing s if multiple work project number
+'''\"	y) - used in lists
+'''\"	z) - used in lists
+'''\"	a( -
+'''\"	e( - earlier document number
+'''\"	m( - authors 1-3 sig
+'''\"	n( - authors 4-6 sig
+'''\"	o( - authors 7-9 sig
+'''\"	p( - authors 10-12 sig
+'''\"	r( - responsible person
+'''\"	s( - S software string
+'''\"	t( - memo type ("for Technical Memorandum", etc.)
+'''\"	u( - organizational approval 1-3 sig
+'''\"	v( - organizational approval 4-6 sig
+'''\"	w( - organizational approval 7-9 sig
+'''\"	x( - organizational approval 10-12 sig
+'''\"	Tm - trademark
+'''\"	lG - Lucent logo
+'''\"	10 - used in equations
+'''\"	ve - csmacros version
+'''\"	e1,e2,e3,e4 - entity info
+'''\" diversions
+'''\"	aS - abstract
+'''\"	aV - author info section
+'''\"	cA - complete copy addressee primary
+'''\"	cO - complete copy addressee overflow
+'''\"	cU, cV, cW, cX, cY, cZ - complete copy addressee overflow (previously lost)
+'''\"	dA - cover sheet addressee primary
+'''\"	dO - cover sheet addressee overflow
+'''\"	dU, dV, dW, dX, dY, dZ - cover sheet only addressee overflow (previously lost)
+'''\"	dM - document number info
+'''\"	dS - display
+'''\"	eQ - equation
+'''\"	fB - filing case info
+'''\"	tI - title
+'''\"	wO - work project number info
+'''\"	aN - abstract footnote
+'''\"	fN - footnote
+'''\"
+'''\" macros to collect information
+'''\"	aC - Lucent company
+'''\"	tS - timestamp
+'''\"	TL - title
+'''\"	AU - author
+'''\"	FS - footnote start
+'''\"	FE - footnote end
+'''\"	AS - abstract start
+'''\"	AE - abstract end
+'''\"	OK - keyword info
+'''\"	MT - document type
+'''\"	dN - document number info
+'''\"	oA - organization approval name
+'''\"	eD - earlier document number
+'''\"	fC - filing case
+'''\"	fD - full date
+'''\"	wP - work project info
+'''\"	mE - mercury selections (7 argument version)
+'''\"	mC - mercury codes (three argument version)
+'''\"	Mc - mercury codes (one argument version)
+'''\"	PM - proprietary marking
+'''\"	gS - government security
+'''\"	rA - release to Lucent employees (superceded by fA)
+'''\"	fA - future Lucent distribution (supercedes rA)
+'''\"	sF - software-related
+'''\"	cC - complete copy addressee list start
+'''\"	cD - complete copy overflow
+'''\"	cS - cover sheet only addressee list start
+'''\"	cT - cover sheet only overflow
+'''\"	zZ - complete copy overflow (previously lost)
+'''\"	fF - complete copy overflow (aux)
+'''\"	wW - cover sheet overflow (previously lost)
+'''\"	gG - cover sheet only overflow (aux)
+'''\"	cE - addressee list end
+'''\"	eE - addressee list end (aux)
+'''\" macros to help format document
+'''\"	B  - change to bold font
+'''\"	I  - change to italic font
+'''\"	R  - change to roman font
+'''\"	S  - set point size and vertical spacing
+'''\"	sP - space 1 vertical space
+'''\"	P  - paragraph
+'''\"	HC - set hyphenation indicator
+'''\"	iN - font and size re-initialization
+'''\"	DS - display start
+'''\"	DE - display end
+'''\"	EQ - equation start
+'''\"	EN - equation end
+'''\"	VL - variable-item list
+'''\"	ML - marked list
+'''\"	LI - list item
+'''\"	LE - list end
+'''\"	hD - header 
+'''\"	fO - footer
+'''\"	yY - abstract overflow
+'''\"	aT - abstract overflow trap
+'''\"	tK - thick lines
+'''\"	bE - empty box
+'''\"	bX - box with X
+'''\"	tH - title heading
+'''\"	cH - continuation header
+'''\"	dH - distribution list headers
+'''\"	oH - overflow distribution list headers
+'''\"	eP - eject distribution continuation page
+'''\"	cP - continuation page
+'''\"	dP - continuation page (aux)
+'''\"	tP - compute pages and diversion lengths
+'''\"	t1 -     "               "
+'''\"	dL - compute basic distribution length
+'''\"	CS - output cover sheet
+'''\" initialization
+'''\"
+'''\"	registers
+.nr a 0 1
+.nr b 0 1
+.nr c 0
+.nr d 0
+.nr e 0
+.nr g 0
+.nr g1 0
+.nr g2 0
+.nr g3 0
+.nr g4 0
+.nr g5 0
+.nr h 6
+.nr i 0
+.nr i1 0
+.nr i2 0
+.nr i3 0
+.nr i4 0
+.nr i5 0
+.nr j 0
+.nr k 0
+.nr m 0
+.nr n 0 1
+.nr o 0
+.nr p 1
+.nr q 0
+.nr r 0
+.nr s 0
+.nr t 0
+.nr u 0 1
+.nr v 0
+.nr w 0
+.nr x 0
+.nr y 0
+.nr z 0
+.nr an 0
+.nr fn 0
+.nr as 0
+.nr ds 0
+.nr fs 0
+.nr bd 0
+.nr tp 0
+.nr tc 0
+.af tc i
+.nr np 2
+.nr nc 2
+.af nc i
+.nr la 0
+.nr a1 0
+.nr a2 0
+.nr ar 0
+.nr fi 0
+.nr in 0
+.nr :b 0
+.nr :c 0
+.nr :d 0
+.nr :e 0
+.nr :h 0
+.nr ls 0 1
+.nr dt 0
+.nr fc 0 1
+.nr wp 0 1
+.nr en 1
+.nr lg 0
+.nr ra 0
+.nr oa 0 1
+'''\"	initialize lines per page
+.nr lp 66
+.if n .nr lp 65
+'''\" initialize device register
+.nr dv 0
+.if '\*(.T'aps' .nr dv 1
+.if '\*(.T'i10' .nr dv 2
+.if '\*(.T'X97.tim10p' .nr dv 3
+.if '\*(.T'X97.tim12p' .nr dv 3
+.if '\*(.T'X97.ti10p' .nr dv 3
+.if '\*(.T'X97.ti12p' .nr dv 3
+.if '\*(.T'i300' .nr dv 4
+.if '\*(.T'qms' .nr dv 5
+.if '\*(.T'post' .nr dv 6
+'''\"	initialize font positions
+.ie \n(dv=3 \{\
+.fp 1 R
+.fp 2 I
+.fp 3 B
+.fp 4 I \}
+.el .ie \n(dv=5 \{\
+.fp 1 R
+.fp 2 I
+.fp 3 B
+.fp 4 S \}
+.el \{\
+.fp 1 H
+.fp 2 HI
+.fp 3 HB
+.fp 4 HX \}
+'''\"	initialize units per vertical space
+.if t .nr l 120
+.if \n(dv=2 .nr l 40
+.if \n(dv=3 .nr l 50
+.if \n(dv=5 .nr l 50
+.if n .nr l 40
+'''\"	initialize standard indent
+.nr si 5
+'''\"	diversions
+.di aV
+.di
+.di dM
+.di
+.di cA
+.di
+.di cO
+.di
+.di cU
+.di
+.di cV
+.di
+.di cW
+.di
+.di cX
+.di
+.di cY
+.di
+.di cZ
+.di
+.di dA
+.di
+.di dO
+.di
+.di dU
+.di
+.di dV
+.di
+.di dW
+.di
+.di dX
+.di
+.di dY
+.di
+.di dZ
+.di
+.di fB
+.di
+.di wO
+.di
+'''\" initialize Lucent logo
+'''\" eventually substitute LH for Lb (DWB 2)
+.ie \n(dv=5 .ds lG \s10\f(ATx\fP\f\\nv\fP\s0
+.el .ds lG \s36\(LH\s0
+'''\" initialize entity strings
+.ds e1 "LUCENT-BL
+.ds e2 "LUCENT
+.ds e3 "LUCENT BELL LABORATORIES
+.ds e4 "Department Head
+'''\" initialize trademark symbol string
+.if t .ds Tm \v'-0.5m'\s-4TM\s+4\v'0.5m'
+.if n .ds Tm \uTM\d
+'''\" initialize timestamp string
+.ds s) 0
+'''\"	initialize responsible person string
+.ds r( 0
+'''\"	initialize earlier document number string
+.ds e( 0
+'''\"	initialize csmacro version string
+.ds ve MCS (04/30/89)
+'''\"	initialize point size, vertical space & indent
+.nr ps 10
+.ps \\n(ps
+.nr vs 12
+.if t .vs \\n(vsp
+.in 0
+'''\"
+'''\" macros to collect information
+'''\"
+.de aC				\" macro for Lucent company (entity)
+.					\" set en=1 if BL (default)
+.					\" set en=2 if IS
+.					\" set en=3 if TI
+.					\" set en=4 if CH (Corporate Headquarters)
+.if '\\$1'BL' .nr en 1
+.if '\\$1'IS' .nr en 2
+.if '\\$1'TI' .nr en 3
+.if '\\$1'CH' .nr en 4
+.if \\n(en=1 \{\
+.ds e1 "LUCENT-BL
+.ds e2 "LUCENT
+.ds e3 "LUCENT BELL LABORATORIES
+.ds e4 "Department Head
+.br\}
+.if \\n(en=2 \{\
+.ds e1 "LUCENT-IS
+.ds e2 "LUCENT
+.ds e3 "LUCENT INFORMATION SYSTEMS
+.ds e4 "Department Head
+.br\}
+.if \\n(en=3 \{\
+.ds e1 "Lucent Technologies, Inc.
+.ds e2 "Lucent
+.ds e3 "LUCENT TECHNOLOGIES, INC.
+.ds e4 "Manager
+.br\}
+.if \\n(en=4 \{\
+.ds e1 "Lucent
+.ds e2 "Lucent
+.ds e3 "        Lucent
+.ds e4 "Department Head
+.br \}
+.rm aC
+..
+.de tS				\" macro for timestamp
+'''\"				if timestamp string=0, store arg #1 if non-empty.
+.if '\\*(s)'0' \{\
+.if !'\\$1'' \{\
+.ie '\\$2'1' .ds s) "D R A F T
+.el .ds s) "Timestamp: \\$1 \} \}
+..
+.de TL				\" macro for title
+.if \\nu>0 \{\
+.tm ERROR: coversheet file set up incorrectly - document title must be supplied before author
+.ab	\}
+.br
+.fi
+.nr aa 1		\" set default to send cover to ITDS
+.ie !'\\n(.F'stdin' \{\
+.	ie !'\\n(.F'-' \{\
+.		sy /usr/lib/tmac/timestamp \\n(.F>/tmp/tp\\n($$
+.		so /tmp/tp\\n($$
+.		sy /bin/rm /tmp/tp\\n($$
+.		br \}			\" don't remove br - gets around troff bug
+.	el \{\
+.		nr aa 0
+.		tm Coversheet not sent to library. input is '-' \} \}
+.el \{\
+.	nr aa 0
+.	tm Coversheet not sent to library. input is 'stdin' \}
+.ie '\\$1'' \{\
+.	ds m) "Mailing Label \}
+.el \{
+.	nr aa 0
+.	tm Coversheet not sent to library. DRAFT document
+.	ds m) \\s+2DRAFT\\s-2 \} \}
+.ll 6.0i
+'''\"					diversion for title
+.di tI
+.rm TL
+..
+.de AU				\" macro for author info
+'''\"					don't count author unless non-empty
+.if !\\$1 .nr u \\n+u
+.if \\nu=1 \{\
+.br
+'''\"					end title diversion on first author
+.di
+.nr lt (\\n(dn)/(\\nl)
+.nr o \\n(dn
+.ll
+.nf \}
+.ta 0.3i 2.6i 3.0i 4.0i 5.4i
+.br
+'''\"					append to author list
+.da aV
+	\\$1	\\$3	\\$6	\\$5	\\$7
+.br
+.da
+'''\"					end append; info for signature lines
+.if \\nu=1 .ds m(	\\$1
+.if \\nu=2 .as m( 	\\$1
+.if \\nu=3 .as m(	\\$1
+.if \\nu=4 .ds n(	\\$1
+.if \\nu=5 .as n(	\\$1
+.if \\nu=6 .as n(	\\$1
+.if \\nu=7 .ds o(	\\$1
+.if \\nu=8 .as o(	\\$1
+.if \\nu=9 .as o(	\\$1
+.if \\nu=10 .ds p(	\\$1
+.if \\nu=11 .as p(	\\$1
+.if \\nu=12 .as p(	\\$1
+..
+.de rP				\" macro for responsible person
+.if !'\\$1'' .ds r( \\$1
+.rm rP
+..
+.de FS				\" macro for footnote start
+.if \\n(fs>0 \{\
+.tm Footnote within footnote - illegal.
+.FE \}
+.if \\n(ds>0 \{\
+.tm Footnote within display - illegal.
+.FE \}
+.nr fs 1
+.ev 1
+.br
+.ll 6.4i
+.ps 8
+.if t .vs 10p
+.fi
+.ie \\n(as>0 .da aN
+.el \{\
+.da fN
+.if \\n(fn=0 \{\
+.br
+.if n __________
+.if t \l'1i'
+.br \} \}
+.if \\n(.$=1 \\$1
+..
+.de FE				\" macro for footnote end
+.br
+.da
+.ie \\n(as>0 .nr an \\n(dn+\\n(an
+.el .nr fn \\n(dn+\\n(fn
+.ev
+.nr fs 0
+..
+.de AS				\" macro for abstract info
+.nr as 1
+.br
+.fi
+.ll 7.0i
+.ta 0.5i 1.0i 1.5i
+.di aS
+.rm AS
+..
+.de AE 				\" macro for end of abstract info
+.br
+.di
+.nr la \\n(dn
+.iN
+.if \\n(an>0 \{\
+.br
+.da aS
+.br
+.if n __________
+.if t \l'1i'
+.br
+.nf
+.aN
+.rm aN
+.br
+.da
+.nr la \\n(la+\\n(dn \}
+.iN
+.rm iN
+.ll
+.nf
+.nr as 0
+.rm DS DE EQ EN VL ML LI LE
+.rm dS eQ
+.rm B I R S sP P
+.rm FS FE AE
+..
+.de OK				\" macro for keyword info
+.ds k)
+.if !\\$1 .as k) \\$1
+.if !\\$2 .as k); \\$2
+.if !\\$3 .as k); \\$3
+.if !\\$4 .as k); \\$4
+.if !\\$5 .as k); \\$5
+.if !\\$6 .as k); \\$6
+.if !\\$7 .as k); \\$7
+.if !\\$8 .as k); \\$8
+.if !\\$9 .as k); \\$9
+'''\"					set k flag if we have some keywords
+.ie !\\*(k) .nr k 1
+.el .nr k 0
+.rm OK
+..
+.de MT				\" macro for document type
+.if '\\$1'1' \{\
+.nr m 1
+.ds t) TM
+.ds t( "for Technical Memorandum\}
+.if '\\$1'2' \{\
+.nr m 2
+.ds t) IM
+.ds t( "for Internal Memorandum\}
+.if '\\$1'3' \{\
+.nr m 3
+.ds t) TC
+.ds t( "for Technical Correspondence\}
+.rm MT
+..
+.de dN				\" macro for document number info
+.ie \\ns=1 .ds s( S
+.el .ds s(
+.ta 0.8i
+.br
+.da dM
+.if !'\\$1'' \{\
+	\\$1\\*(t)\\*(s(
+.nr n \\n+n
+'''\"					\" save first document number
+.if \\nn=1 .ds n) \\$1\\*(t)\\*(s( \}
+.br
+.da
+..
+.de oA					\" macro for organizational approval names(s)
+.nr oa \\n+(oa
+.if \\n(oa=1 .ds u(	\\$1
+.if \\n(oa=2 .as u(	\\$1
+.if \\n(oa=3 .as u(	\\$1
+.if \\n(oa=4 .ds v(	\\$1
+.if \\n(oa=5 .as v(	\\$1
+.if \\n(oa=6 .as v(	\\$1
+.if \\n(oa=7 .ds w(	\\$1
+.if \\n(oa=8 .as w(	\\$1
+.if \\n(oa=9 .as w(	\\$1
+.if \\n(oa=10 .ds x(	\\$1
+.if \\n(oa=11 .as x(	\\$1
+.if \\n(oa=12 .as x(	\\$1
+..
+.de fC					\" macro for filing case info
+.ta 3.5i
+.br
+.da fB
+.if !'\\$1'' \{\
+.nr fc \\n+(fc
+	\\$1 \}
+.br
+.da
+..
+.de fD					\" macro for full date info
+.if !'\\$1'' .fC \\$1				\" use .fC macro underneath
+..
+.de wP					\" macro for work project info
+.ta 5.5i
+.br
+.da wO
+.if !'\\$1'' \{\
+.nr wp \\n+(wp
+	\\$1 \}
+.br
+.da
+..
+.de mC				\" macro for mercury selections - three argument version
+.if !'\\$1'' .Mc \\$1
+.if !'\\$2'' .Mc \\$2
+.if !'\\$3'' .Mc \\$3
+..
+.de Mc				\" macro for mercury selections - one argument
+.ds c)
+.if \\nb<3 \{\
+.ie '\\$1'CHM' .ds c) "	CHM - Chemistry and Materials
+.el .ie '\\$1'chm' .ds c) "	CHM - Chemistry and Materials
+.el .ie '\\$1'CMM' .ds c) "	CMM - Communications
+.el .ie '\\$1'cmm' .ds c) "	CMM - Communications
+.el .ie '\\$1'CMP' .ds c) "	CMP - Computing
+.el .ie '\\$1'cmp' .ds c) "	CMP - Computing
+.el .ie '\\$1'ELC' .ds c) "	ELC - Electronics
+.el .ie '\\$1'elc' .ds c) "	ELC - Electronics
+.el .ie '\\$1'LFS' .ds c) "	LFS - Life Sciences
+.el .ie '\\$1'lfs' .ds c) "	LFS - Life Sciences
+.el .ie '\\$1'MAN' .ds c) "	MAN - Manufacturing
+.el .ie '\\$1'man' .ds c) "	MAN - Manufacturing
+.el .ie '\\$1'MAS' .ds c) "	MAS - Mathematics and Statistics
+.el .ie '\\$1'mas' .ds c) "	MAS - Mathematics and Statistics
+.el .ie '\\$1'MKT' .ds c) "	MKT - Marketing
+.el .ie '\\$1'mkt' .ds c) "	MKT - Marketing
+.el .ie '\\$1'PHY' .ds c) "	PHY - Physics
+.el .ie '\\$1'phy' .ds c) "	PHY - Physics
+.el .ie '\\$1'STD' .ds c) "	STD - Standards
+.el .ie '\\$1'std' .ds c) "	STD - Standards
+.el .ie '\\$1'PRP' .ds c) "	PRP - Product Realization Process
+.el .ie '\\$1'prp' .ds c) "	PRP - Product Realization Process
+.el .ie '\\$1'QLT' .ds c) "	QLT - Quality
+.el .if '\\$1'qlt' .ds c) "	QLT - Quality
+.ie '\\*(c)'' .tm WARNING: \\$1 - unknown mercury selection
+.el \{\
+.nr b \\n+b
+.if t .as a) \\*(c)
+.if n \{\
+.ie \\nb=3 \{\
+.rn a) b)
+.ds a) \\*(c) \}
+.el .as a) \\*(c)\}\}\}
+..
+.de mE				\" macro for mercury selections
+.ds a)
+.ds b)
+.ds c)
+'''\"					either 'y' or '1' arguments honored
+.nr q 0
+.if '\\$1'y' .nr q 1
+.if '\\$1'1' .nr q 1
+.if \\nq=1 \{\
+.as a) "	CHM - Chemistry and Materials
+.nr b \\n+b \}
+.nr q 0
+.if '\\$2'y' .nr q 1
+.if '\\$2'1' .nr q 1
+.if \\nq=1 \{\
+.as a) "	CMM - Communications
+.nr b \\n+b
+.if n \{\
+.if \\nb=2 .rn a) b) \} \}
+.nr q 0
+.if '\\$3'y' .nr q 1
+.if '\\$3'1' .nr q 1
+.if \\nq=1 \{\
+.as a) "	CMP - Computing
+.nr b \\n+b
+.if t \{\
+.if \\nb=3 .rn a) b) \}
+.if n \{\
+.if \\nb=2 .rn a) b) \} \}
+.nr q 0
+.if '\\$4'y' .nr q 1
+.if '\\$4'1' .nr q 1
+.if \\nq=1 \{\
+.as a) "	ELC - Electronics
+.nr b \\n+b
+.if t \{\
+.if \\nb=3 .rn a) b) \}
+.if n \{\
+.if \\nb=4 \{\
+.rn b) c)
+.rn a) b) \}
+.if \\nb=2 .rn a) b) \} \}
+.nr q 0
+.if '\\$5'y' .nr q 1
+.if '\\$5'1' .nr q 1
+.if \\nq=1 \{\
+.as a) "	LFS - Life Sciences
+.nr b \\n+b
+.if t \{\
+.if \\nb=3 .rn a) b) \}
+.if n \{\
+.if \\nb=4 \{\
+.rn b) c)
+.rn a) b) \}
+.if \\nb=2 .rn a) b) \} \}
+.nr q 0
+.if '\\$6'y' .nr q 1
+.if '\\$6'1' .nr q 1
+.if \\nq=1 \{\
+.as a) "	MAS - Mathematics and Statistics
+.nr b \\n+b
+.if t \{\
+.if \\nb=3 .rn a) b) \}
+.if n \{\
+.if \\nb=4 \{\
+.rn b) c)
+.rn a) b) \}
+.if \\nb=2 .rn a) b) \} \}
+.if \\nb<6 \{\
+.nr q 0
+.if '\\$7'y' .nr q 1
+.if '\\$7'1' .nr q 1
+.if \\nq=1 \{\
+.as a) "	PHY - Physics
+.nr b \\n+b
+.if t \{\
+.if \\nb=3 .rn a) b) \}
+.if n \{\
+.if \\nb=4 \{\
+.rn b) c)
+.rn a) b) \}
+.if \\nb=2 .rn a) b) \} \} \}
+.if t \{\
+.if \\nb=3 .rn b) a) \}
+.if n \{\
+.if \\nb=4 \{\
+.rn b) a)
+.rn c) b) \}
+.if \\nb=2 .rn b) a) \}
+.rm mE
+..
+.de eD				\" macro for earlier document number
+.if !'\\$1'' .ds e( \\$1
+.rm eD
+..
+.de PM				\" macro for proprietary marking
+.					\" arg 1 - RS or BR or IR or TR or R - restricted
+.if '\\$1'RS' .nr p 2
+.if '\\$1'BR' .nr p 2
+.if '\\$1'IR' .nr p 2
+.if '\\$1'TR' .nr p 2
+.if '\\$1'R' .nr p 2
+.rm PM
+..
+.de gS				\" macro for government security classified
+.nr r 1
+.rm gS
+..
+.de rA				\" macros for release to Lucent employees
+.					\" superceded by .fA macro 072087
+.nr ra 1
+.rm rA
+..
+.de fA				\" macro for future Lucent distribution
+.					\" arg 1 = 'y' or 'Y' or 'n' or 'N'
+.if '\\$1'y' .nr ra 1
+.if '\\$1'Y' .nr ra 1
+.if '\\$1'n' .nr ra 2
+.if '\\$1'N' .nr ra 2
+.rm fA
+..
+.de sF				\" macro for software-related document
+.nr s 1
+.rm sF
+..
+.de cI
+.rm cI
+..
+.de dL				\" macro for calculating basic distribution length
+'''\"					call once only - from .cC, .cS, or .CS
+.if \\nd=0 \{\
+.nr d 1
+'''\"					calculate space considerations
+'''\"					basic distribution length - to be tailored - set e and h
+.if \\nr=0 .nr e \\ne+2
+.if \\nu<=3 .nr e \\ne+3
+.if \\nu<=6 .nr e \\ne+3
+.if \\nu<=9 .nr e \\ne+3
+.if (((\\n(oa>0)&(\\n(oa<=3)):((\\nn<=3)&(\\n(oa=0))) .nr e \\ne+3
+.if (((\\n(oa>0)&(\\n(oa<=6)):((\\nn<=6)&(\\n(oa=0))) .nr e \\ne+3
+.if (((\\n(oa>0)&(\\n(oa<=9)):((\\nn<=9)&(\\n(oa=0))) .nr e \\ne+3
+'''\"						nroff: if p=2, 1 extra line under Org Approval
+.if n .if \\np=2 .nr e \\ne-1
+'''\"						Future Lucent Distribution handling
+.if ((\\n(ra<2)&(\\np=2)) \{\
+.nr ra 2
+.tm WARNING: Future Lucent Distribution by ITDS - PROPRIETARY (RESTRICTED) document     MAY NOT BE RELEASED without appropriate approval for each request;                coversheet has been modified accordingly\}
+.if \\n(ra=0 \{\
+.tm WARNING: Future Lucent Distribution by ITDS: missing or invalid .fA macro;          indicate desired action by checking yes or no box on page 2 of coversheet;        next time include .fA macro with y or n argument \}
+'''\"						at least 3 lines for Future Lucent Distribution section (more for nroff negative and ra=0)
+'''\"					\" next 2 lines for yes/no boxes; remove when .fA macro becomes mandatory
+.if t .if \\n(ra=0 .nr e \\ne-4
+.if n .if \\n(ra=0 .nr e \\ne-5
+.if \\n(ra=1 .nr e \\ne-3
+.if t .if \\n(ra=2 .nr e \\ne-3
+.if n .if \\n(ra=2 .nr e \\ne-4
+'''\" increment number on next two lines to drop text lower on page 2
+.if t .nr e \\ne+23
+.if n .nr e \\ne+21 
+.if n \{\
+'''\"					if page 2 text changes, change values in next 3 lines
+.if \\ne<4 \{\
+.tm ERROR: insufficient space to format cover sheet; use "docsend -Taps" \
+          	for APS-5, "docsend -Ti10" for imagen, or "docsend -TX97" -    \
+          	or use stockroom cover sheet
+.ab	\}
+.ie \\ne<8 .nr e 0
+.el .nr e \\ne-7 \}
+.nr h \\ne
+.br \}
+.rm dL
+..
+.de cC				\" macro for handling complete copy addressees
+.dL
+.ta 2.0i
+.nf
+.br
+.ie \\ne>0 \{\
+.da cA
+.dt \\nev cD \}
+.el .da cO
+.rm cC
+..
+.de cD				\" macro for handling complete copy address overflow
+.ta 2.0i
+.br
+.da
+.da cO
+.nr lo 56-\\n(lt
+.dt \\n(lo zZ
+..
+.de zZ			\" macro for handling previously lost complete copy address overflow
+.				\" provide 5 additional continuation pages (6 in all - approx 350 names)
+.ie "\\n(.z"cO" .fF "g" "cU"
+.el .ie "\\n(.z"cU" .fF "g1" "cV"
+.el .ie "\\n(.z"cV" .fF "g2" "cW"
+.el .ie "\\n(.z"cW" .fF "g3" "cX"
+.el .ie "\\n(.z"cX" .fF "g4" "cY"
+.el .if "\\n(.z"cY" .fF "g5" "cZ"
+..
+.de fF			\" aux macro for handling previously lost complete copy address overflow
+.ta 2.0i
+.br
+.da
+.ie \\n(dn>0 \{\
+.nr \\$1 (\\n(dn)/\\nl+4
+.da \\$2
+.nr lo 56-\\n(lt
+.dt \\n(lo zZ \}
+.el \{\
+.nr \\$1 0
+.da cZ \}
+..
+.de cS				\" macro for handling cover sheet only addresses
+.dL
+.ta 2.0i
+.nf
+.br
+.ie \\nh>0 \{\
+.da dA
+.dt \\nhv cT \}
+.el .da dO
+.rm cS
+..
+.de cT				\" macro for handling cover sheet address overflow
+.ta 2.0i
+.br
+.da
+.da dO
+.nr lo 56-\\n(lt
+.dt \\n(lo wW
+..
+.de wW			\" macro for handling previously lost cover sheet only address overflow
+.				\" provide 5 additional continuation pages (6 in all - approx 350 names)
+.ie "\\n(.z"dO" .gG "i" "dU"
+.el .ie "\\n(.z"dU" .gG "i1" "dV"
+.el .ie "\\n(.z"dV" .gG "i2" "dW"
+.el .ie "\\n(.z"dW" .gG "i3" "dX"
+.el .ie "\\n(.z"dX" .gG "i4" "dY"
+.el .if "\\n(.z"dY" .gG "i5" "dZ"
+..
+.de gG			\" aux macro for handling previously lost cover sheet only address overflow
+.ta 2.0i
+.br
+.da
+.ie \\n(dn>0 \{\
+.nr \\$1 (\\n(dn)/\\nl+4
+.da \\$2
+.nr lo 56-\\n(lt
+.dt \\n(lo wW \}
+.el \{\
+.nr \\$1 0
+.da dZ \}
+..
+.de cE				\" macro for ending all distribution diversions
+.br
+.ie "\\n(.z"cA" \{\
+.da
+.rm cD \}
+.el .ie "\\n(.z"cO" .eE "g" "cD"
+.el .ie "\\n(.z"cU" .eE "g1" "cD"
+.el .ie "\\n(.z"cV" .eE "g2" "cD"
+.el .ie "\\n(.z"cW" .eE "g3" "cD"
+.el .ie "\\n(.z"cX" .eE "g4" "cD"
+.el .ie "\\n(.z"cY" .eE "g5" "cD"
+.el .ie "\\n(.z"cZ" \{\
+.da
+.rm cD \}
+.el .ie "\\n(.z"dA" \{\
+.da
+.rm cT \}
+.el .ie "\\n(.z"dO" .eE "i" "cT"
+.el .ie "\\n(.z"dU" .eE "i1" "cT"
+.el .ie "\\n(.z"dV" .eE "i2" "cT"
+.el .ie "\\n(.z"dW" .eE "i3" "cT"
+.el .ie "\\n(.z"dX" .eE "i4" "cT"
+.el .ie "\\n(.z"dY" .eE "i5" "cT"
+.el .if "\\n(.z"dZ" \{\
+.da
+.rm cT \}
+..
+.de eE			\" aux macro for ending all distribution diversions
+.da
+.ie \\n(dn>0 .nr \\$1 (\\n(dn)/\\nl+4
+.el .nr \\$1 0
+.rm \\$2
+..
+'''\"
+'''\" macros to help format document
+'''\"
+.deB
+.ie\\n(.$ .nr ;G \\n(.f
+.el.ft 3
+.if\\n(.$ .if !\\n(.$-2 \&\f3\\$1\fP\\$2
+.if\\n(.$-2 \{.ds }i
+.if\\n(.f2 .ds }i \^
+.ds}I \&\f3\\$1\fP\\$2\\*(}i
+'br\}
+.if\\n(.$-2 .if !\\n(.$-4 \\*(}I\f3\\$3\fP\\$4
+.if\\n(.$-4 .if !\\n(.$-6 \\*(}I\f3\\$3\fP\\$4\\*(}i\f3\\$5\fP\\$6
+.if\\n(.$ .ft \\n(;G
+..
+.deI
+.ie\\n(.$ .nr ;G \\n(.f
+.el.ft 2
+.if\\n(.$ .if !\\n(.$-1 \&\f2\\$1
+.if\\n(.$-1 \{.ds }i \^
+.if\\n(.f2 .ds }i
+.ds}I \&
+.if\w\\$1 .ds }I \&\f2\\$1\fP\\*(}i
+'br\}
+.if\\n(.$-1 .if !\\n(.$-3 \\*(}I\\$2\f2\\$3
+.if\\n(.$-3 .if !\\n(.$-5 \\*(}I\\$2\f2\\$3\fP\\*(}i\\$4\f2\\$5
+.if\\n(.$-5 \\*(}I\\$2\f2\\$3\fP\\*(}i\\$4\f2\\$5\fP\\*(}i\\$6
+.if\\n(.$ .ft \\n(;G
+..
+.deRI
+.nr;G \\n(.f
+.}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+..
+.deRB
+.nr;G \\n(.f
+.}S 1 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+..
+.deIR
+.nr;G \\n(.f
+.}S 2 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+..
+.deIB
+.nr;G \\n(.f
+.}S 2 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+..
+.deBR
+.nr;G \\n(.f
+.}S 3 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+..
+.deBI
+.nr;G \\n(.f
+.}S 3 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
+..
+.de}S
+.ds}i
+.if\\$12 .if !\\$5 .ds }i\^
+.ie!\\$4 .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(}i" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
+.el\\$3
+.ft\\n(;G
+..
+.deR
+.ft1
+.ul0
+..
+.de S				\" set point size and vertical spacing
+.ie \\n(.$=0 \{\
+.ps
+.if t .vs \}
+.el \{\
+.ie \w\(ts\\$1\(ts \{\
+.ie 0\\$1-99 .nr ts \\n(ps
+.el .nr ts \\$1 \}
+.el .nr ts \\n(.s 
+.ps \\n(ts
+.if \\n(.$=1 .if t \{\
+.nr tv \\n(.s+2
+.vs \\n(tvp \}
+.if \\n(.$>1 .if t \{\
+.ie \w\(ts\\$2\(ts \{\
+.ie 0\\$2-99 .nr tv \\n(.s+2
+.el .nr tv \\$2 \}
+.el .nr tv \\n(.v 
+.vs \\n(tvp \} \}
+..
+.de sP				\" space 1 blank line (vertical space)
+.if n .sp 1
+.if t .sp 0.5
+..
+.de P				\" paragraph - (default - left-adjusted)
+.					\" arg #1=0 - left-adjusted
+.					\" arg #1=1 - indent standard amount
+.ne 1.1
+.sP
+.if (\\n(.$>0)&(0\\$1=1) .ti +\\n(sin
+..
+.de HC				\" set hyphenation indicator
+.ev0
+.hc\\$1
+.ev
+.ev1
+.hc\\$1
+.ev
+.ev2
+.hc\\$1
+.ev
+..
+.de SA				\" macro for right-adjustment
+.if \\n(.$ \{\
+.if \\$1-1 .tm WARNING: SA: bad arg:\\$1
+.nr :h 0\\$1 \}
+'na
+.if \\n(:h 'ad
+..
+.de iN				\" macro for font and size re-initialization
+.ft 1
+.ps \\n(ps
+.if t .vs \\n(vsp
+..
+.de DS				\" macro for display start
+.if \\n(ds>0 \{\
+.tm Display within display - illegal.
+.DE \}
+.if \\n(fs>0 \{\
+.tm Display within footnote - illegal.
+.FE \}
+.nr in \\n(.i
+.nr fi \\n(.u
+.br
+.ev 2
+.br
+.ll 7.0i
+.nf
+.in \\n(inu
+.sP
+.if \\n(.$>1 \{\
+.if '\\$2'F' .nr dt 4
+.if '\\$2'1' .nr dt 4
+.if \\n(dt=4 .fi \}
+.if \\n(.$>2 .ll-0\\$3
+.nr dt 0
+.nr bd 0
+.if '\\$1'I' .nr dt 1
+.if '\\$1'1' .nr dt 1
+.if \\n(dt=1 .in \\n(sin
+.if '\\$1'C' .nr dt 2
+.if '\\$1'2' .nr dt 2
+.if \\n(dt=2 .ce 1000
+.if '\\$1'CB' .nr dt 3
+.if '\\$1'3' .nr dt 3
+.if \\n(dt=3 \{\
+.nr bd 1
+.di dS \}
+.nr ds 1
+..
+.de DE				\" macro for display end
+.br
+.ie \\n(ds=0 .tm DE: no active DS
+.el \{\
+.ce 0
+.if \\n(bd>0 \{\
+.di
+.if \\n(dl>\\n(bd .nr bd \\n(dl
+.if \\n(bd<\\n(.l .in (\\n(.lu-\\n(bdu)/2u
+.nr dt \\n(.l-\\n(.i
+.ta \\n(dtuR
+.dS
+.br \}
+.nr bd 0
+.nr ds 0
+.nr dt 0
+.ev
+.in \\n(inu
+.sP
+.ie \\n(fi=0 .nf
+.el .fi \}
+..
+.de EQ				\" macro for equation start
+.ds e) \\$1
+.di eQ
+..
+.de EN				\" macro for equation end
+\!.br
+.br
+.di
+.lt \\n(.lu
+.pc
+.if \w\(ts\\*(10\\*(e)\(ts \{\
+.ie \\n(bd>0 \{\
+.if \\n(bd<\w\(ts\\*(10\(ts .nr bd \w\(ts\\*(10\(ts
+\!\\*(10\h'\\\\n(.lu-\w\(ts\\*(10\\*(e)u\(ts-\\\\n(.iu'\\*(e)
+.br \}
+.el .ie \\n(dt=2 .tl \(ts\(ts\\*(10\(ts\\*(e)\(ts
+.el .ie \\n(dt=1 .tl \(ts\h'\\n(sin'\\*(10\(ts\(ts\\*(e)\(ts
+.el .if \\n(dt=0 .tl \(ts\\*(10\(ts\(ts\\*(e)\(ts
+'br\}
+.pc%
+.lt
+..
+.de VL				\" macro for variable-item lists
+.if \\n(ls>0 \{\
+.tm VL: lists may not be nested
+.LE \}
+.ie \\n(.$<1 .tm WARNING: VL: text-indent not defined
+.el \{\
+.nr in \\n(.i
+.nr :b \\n(.iu+0\\$1n
+.nr :c \\n(.iu+0\\$2n
+.ds y) \&
+.ie \\n(.$=3 .nr :d 1
+.el .nr :d 0
+.if \\n(:d=1 .sP
+.fi
+.nr ls +1
+.br \}
+..
+.de ML				\" macro for marked list
+.if \\n(ls>0 \{\
+.tm ML: lists may not be nexted
+.LE \}
+.ie \\n(.$<1 .tm ML: mark not defined
+.el \{\
+.nr in \\n(.i
+.ds y) \\$1
+.ie (\\n(.$>1)&(\\$2>0) .nr :b \\n(.iu+0\\$2n
+.el .nr :b \\n(.iu+\w\(ts\\*(y)\(tsu+1n
+.nr :c \\n(:bu-1n-\w\(ts\\*(y)\(tsu
+.ie \\n(.$=3 .nr :d 1
+.el .nr :d 0
+.if \\n(:d=1 .sP
+.fi
+.in \\n(:bu
+.nr ls +1
+.br \}
+..
+.de BL				\" macro for bullet list - using marked list
+.ie \\n(.$=2 .ML \\(bu \\$1 \\$2
+.el .ie \\n(.$=1 .ML \\(bu \\$1
+.el .ML \\(bu
+..
+.de LI				\" macro for list item
+.ie \\n(ls=0 .tm LI: no active lists
+.el \{\
+.ds z) \\*(y)
+.if \\n(.$=1 .ds z) \\$1
+.if \\n(.$=2 .ds z) \\$1\&\\*(z)
+.if \\n(:d=0 .sP
+.in \\n(:bu
+.ti \\n(:cu
+.nr :e \w\(ts\\*(z)\(ts
+\\*(z)\h'\\n(:bu-\\n(:cu-\\n(:eu'\c \}
+..
+.de LE				\" macro for list end
+.ie \\n(ls=0 .tm LE: no active list
+.el \{\
+.br
+.nr ls -1
+'in \\n(inu
+'ti \\n(inu
+.if \\n(.$>0 .sP \}
+..
+.de hD				\" header macro
+'''\" page offset 0.6i for XEROX & DASI; 0.25i for all other devices
+'''\" cut marks for APS only
+.po 0.25i
+.if \\n(dv=3 .po 0.6i
+.if n .po 0.6i
+.if \\n(dv=1 .tl '\(rn''\(rn'
+.if t 'sp|0.2i
+.if n 'sp|1
+..
+.de fO				\" footer macro
+.if t .pl 11.0i
+.if n .pl \\n(lp
+'bp
+..
+.de yY				\" macro for abstract overflow - line -1
+.aT
+.rm yY
+..
+.de aT				\" macro for abstract overflow trap
+.					\" register a counts overflow pages
+.if \\na>0 \{\
+.ft 2
+.ce
+(continued)
+.ft 1 \}
+.if t .pl 11.0i
+.if n .pl \\n(lp
+.nr a \\n+a
+.rn aT xX
+'bp
+.rn xX aT
+.if n .wh -2 aT
+.if t .wh -0.55i aT
+.cH
+.tH
+.if t 'sp 0.05i
+.ce
+.ft 3
+Abstract (continued)
+.ft 1
+.in 0.2i
+'sp 1
+..
+.de tK				\" macro for thick lines
+.ps 24
+\l'7.5i'
+.ps
+..
+.de bE				\" macro for empty box
+.ps 12
+.if t \\(sq
+.if n [ ]
+.ps
+..
+.de bX				\" macro for box with x
+.ps 12
+.if t \\o'\(mu\(sq'
+.if n [x]
+.ps
+..
+.de tH				\" macro for Title heading and text
+.					\" called from aT and eP and CS
+.tK
+.if t 'sp 0.05i
+'''\"					mark t - Title heading
+.mk t
+.ft 3
+Title:
+.ft 1
+'sp|\\ntu
+.in 0.7i
+.tI
+.in 0
+.ta 0.5i
+.nr q \\no/\\nl
+.ie \\nq>2 'sp|\\ntu+\\nq
+.el 'sp|\\ntu+2
+.tK
+.					\" m1 - mark end of title section - save
+.mk m1
+..
+.de cH				\" macro for abstract or distribution list continuation header
+.					\" called from aT and eP
+.					\" calculate this page number
+.nr np \\n(np+1
+.nf
+.in 0
+.ft 3
+.ta 7.5iR
+.nr tc \\n(tp
+.nr nc \\n(np
+	\\*(n)\f2 (page \\n(nc of \\n(tc)
+.ft1
+.if t 'sp 0.1i
+..
+.de dH				\" macro for distribution list headers
+.					\" called from cP and CS
+.ft 3
+.ta 1.0i 4.75i
+	\\$1	\\$2
+.if t .sp 0.05i
+.ft 1
+.ta 0.5i 1.0i
+..
+.de oH			\" macro for final overflow distribution list headers
+.				\" called from cP
+.if \\$1>4 .if \\$2>4 .dH "Complete Copy (continued)" "Cover Sheet Only (continued)"
+.if \\$1>4 .if !\\$2>4 .dH "Complete Copy (continued)" ""
+.if !\\$1>4 .if \\$2>4 .dH "" "Cover Sheet Only (continued)"
+..
+.de eP				\" macro for ejecting distribution continuation page
+.					\" called from cP
+'bp
+.wh 0 hD
+'''\"					put out continuation page header & title section
+.cH
+.tH
+..
+.de cP				\" macro for continuation (distribution list) page
+.					\" called from CS
+.					\" if any distribution overflow will fit before next trap, set v=2
+.ie \\nv<=\\n(.t .nr v 1
+.el .nr v 0
+.if \\nv=1 .if \\nw<=\\n(.t .nr v 2
+.					\" check whether continuation page needs to be ejected
+.in 0
+.if \\nc=1 \{\
+.						\" - if no abstract overflow
+.if \\na=0 .eP
+.if \\na>0 \{\
+.						\" - or if abstract overflow - but not enough room for list overflow
+.ie \\nv<2 .eP
+.						\" just a thick line if abstract overflow AND enough room for list
+.el .tK \}
+.ie \\ne=0 \{\
+.if \\ng>4 .if \\ni>4 .dH "Complete Copy" "Cover Sheet Only"
+.if \\ng>4 .if !\\ni>4 .dH "Complete Copy" ""
+.if !\\ng>4 .if \\ni>4 .dH "" "Cover Sheet Only" \}
+.el .oH \\ng \\ni
+.mk z
+.nr q \\n(.t/\\nl
+'''\"					put out complete copy list overflow
+.in 0.2i
+.cO
+.in 0
+.rm cO
+.if !\\n(g1=0 \{\
+.ft 2
+.ti 1.25i
+(continued)
+.ft 1 \}
+.mk x
+.sp|\\nzu
+.in 4.0i
+'''\"					put out cover sheet list overflow
+.dO
+.rm dO
+.if !\\n(i1=0 \{\
+.ft 2
+.ti 5.00i
+(continued)
+.ft 1 \}
+.mk y
+.if ((\\n(g1>0):(\\n(i1>0)) .dP "\\n(g1" "\\n(i1" "cU" "\\n(g2" "dU" "\\n(i2"
+.if ((\\n(g2>0):(\\n(i2>0)) .dP "\\n(g2" "\\n(i2" "cV" "\\n(g3" "dV" "\\n(i3"
+.if ((\\n(g3>0):(\\n(i3>0)) .dP "\\n(g3" "\\n(i3" "cW" "\\n(g4" "dW" "\\n(i4"
+.if ((\\n(g4>0):(\\n(i4>0)) .dP "\\n(g4" "\\n(i4" "cX" "\\n(g5" "dX" "\\n(i5"
+.if ((\\n(g5>0):(\\n(i5>0)) \{\
+.eP
+.oH \\n(g5 \\n(i5
+.mk z
+.in 0.2i
+.cY
+.in 0
+.rm cY
+.mk x
+.sp|\\nzu
+.in 4.0i
+.dY
+.rm dY
+.mk y \}
+.in 0
+.if \\nx-\\ny .sp|\\nxu
+.tK \}
+..
+.de dP					\" macro to handle one continuation page
+.eP
+.oH \\$1 \\$2
+.mk z
+.in 0.2i
+.\\$3
+.in 0
+.rm \\$3
+.if !\\$4=0 \{\
+.ft 2
+.ti 1.25i
+(continued)
+.ft 1 \}
+.mk x
+.sp|\\nzu
+.in 4.0i
+.\\$5
+.rm \\$5
+.if !\\$6=0 \{\
+.ft 2
+.ti 5.00i
+(continued)
+.ft 1 \}
+.mk y
+..
+.de tP					\" macro to compute total pages and diversion lengths
+'''\"					calculate vert. units needed to handle cc overflow (if any)
+'''\"					called from CS macro
+.ie \\ng>4 .nr v (\\ng)*\\nl
+.el .nr v 0
+'''\"					also for cs overflow (if any)
+.ie \\ni>4 .nr w (\\ni)*\\nl
+.el .nr w 0
+.ie \\nv>\\nw .nr j \\nv
+.el .nr j \\nw
+.					\" set c=1 if either g or i >0
+.if \\ng>4 .nr c 1
+.if \\ni>4 .nr c 1
+.					\" calculate total pages in job (default 2)
+.nr tp 2
+.					\" a1 - page 1 portion abstract (units)
+.nr a1 \\nyu-\\nxu-1v
+.ie \\n(la>\\n(a1 \{\
+.					\" ar - remainder abstract (units)
+.nr ar \\n(la-\\n(a1
+.nr tp \\n(tp+1
+.					\" a2 - available continuation page space
+.						\" m1 is mark after thick line following title/date
+.						\" 2v are lines for Abstract (continued) and one blank line
+.if t .nr a2 11.0i-\\n(m1-3v
+.if n .nr a2 \\n(lpv-\\n(m1-3v
+.t1 \}
+.el .if \\nc>0 .nr tp \\n(tp+1
+.if ((\\n(g1>4):(\\n(i1>4)) .nr tp \\n(tp+1
+.if ((\\n(g2>4):(\\n(i2>4)) .nr tp \\n(tp+1
+.if ((\\n(g3>4):(\\n(i3>4)) .nr tp \\n(tp+1
+.if ((\\n(g4>4):(\\n(i4>4)) .nr tp \\n(tp+1
+.if ((\\n(g5>4):(\\n(i5>4)) .nr tp \\n(tp+1
+..
+.de t1
+.ie \\n(ar>\\n(a2 \{\
+.nr ar \\n(ar-\\n(a2
+.nr tp \\n(tp+1
+.t1 \}
+.el .if \\n(ar+\\nj>\\n(a2 .nr tp \\n(tp+1
+..
+'''\"
+'''\" main macro to handle output of cover sheet
+'''\"
+.de CS
+.if \\nu=0 \{\
+.tm ERROR: author must be supplied
+.ab	\}
+.if \\no=0 \{\
+.tm ERROR: document title must be supplied
+.ab	\}
+.if \\nm=0 \{\
+.tm ERROR: memorandum type undefined or unknown
+.ab	\}
+.if ((\\nm=1)&(\\np=1)) .if \\nb=0 \{\
+.tm ERROR: must have at least one mercury classification with technical memorandum
+.ab \}
+.if \\nn=0 \{\
+.tm ERROR: document number must be supplied
+.ab	\}
+.if \\n(la=0 .if \\nm<3 \{\
+.tm ERROR: abstract must be supplied for technical and internal memoranda
+.ab	\}
+.if \\nb>3 \{\
+.tm ERROR: no more than 3 mercury classifications may be selected
+.ab	\}
+.if \\n(fc=0 \{\
+.if \\n(en<3 \{\
+.tm ERROR: filing case must be supplied
+.ab	\}
+.if \\n(en=3 \{\
+.tm ERROR: full date must be supplied
+.ab	\}\}
+.if \\n(wp=0 \{\
+.tm ERROR: work project number must be supplied
+.ab	\}
+.dL
+.ll 7.5i
+.iN
+.if \\n(nl .bp
+.in 0
+.hD
+'''\"					put out 1 blank line where timestamp used to be
+.sp1
+.if t .sp 0.05i
+.nf
+.ps 16
+.ft 3
+.					\" put out page 1 heading
+'''\"					if Lucent logo not defined, put out Lucent string
+'''\"					   also put out memorandum type
+.ie ((\\n(dv=5)) \{\
+.ie '\f(AT'' .nr lg 0
+.el .nr lg 1 \}
+.el \{\
+.ie '\*(lG'' .nr lg 0
+.el .nr lg 1 \}
+.ie ((\\n(lg=0)) \{\
+.ta 7.5iR
+\\*(e2	Document Cover Sheet
+.wh 0 hD
+.if t .sp 0.1i
+	\\*(t(\}
+.el \{\
+.ta 7.5iR
+	Document Cover Sheet
+.wh 0 hD
+.if t .sp 0.1i
+.if \\n(dv=5 \{\
+.ft P
+.nr v \n(.f
+.ft P \}
+.ta 0.25i 7.5iR
+	\\*(lG	\\*(t(\}
+.ft 1
+.ps 10
+.tH
+.if t .sp 0.05i
+.ft 3
+.ie \\nu>1 .ds u) s
+.el .ds u)
+.if !\\n(en=3 \{\
+.ta 0.5i 2.75i 4.0i 4.7i
+	Author\\*(u)	Location	Ext.	Company (if other than \\*(e1)
+.br \}
+.if \\n(en=3 \{\
+.ta 0.5i 2.75i 4.0i 5.0i
+	Author\\*(u)	Location	Ext.	     Company (if other than
+.if t 				\\*(e3)
+.if n				     \\*(e3)
+.br \}
+.ft 1
+'''\"					output author info
+.aV
+.if !'\\*(r('0' \{\
+.ta 0.3i 2.6i
+	\\*(r(	(Responsible \\*(e1 Person)\}
+.rm aV AU
+.tK
+.if t .sp 0.05i
+.ft 3
+.ie \\nn>1 .ds v) s
+.el .ds v)
+.ie \\n(fc>1 .ds w) s
+.el .ds w)
+.ie \\n(wp>1 .ds x) s
+.el .ds x)
+.ta 1.0i 3.3i 5.55i
+.if \\n(en=1 \{\
+	Document No\\*(v).	Filing Case No\\*(w).	Project No\\*(x).
+.br \}
+.if \\n(en=2 \{\
+	Document No\\*(v).	Filing Case No\\*(w).	Project No\\*(x).
+.br \}
+.if \\n(en=3 \{\
+.if t .ta 1.0i 3.4i 4.7i
+.if n .ta 1.0i 3.4i 4.5i
+	Document No\\*(v).	Full Date	Time Charge (or Project Code) No\\*(x).
+.br \}
+.if \\n(en=4 \{\
+.if t .ta 1.0i 3.4i 5.2i
+.if n .ta 1.0i 3.4i 5.0i
+	Document No\\*(v).	Filing Case No\\*(w).	Time Charge (or Case) No\\*(x).
+.br \}
+.ft 1
+.if t .sp 0.05i
+.mk t
+'''\"					output document number
+.dM
+.rm dN dM
+.mk x
+.sp|\\ntu
+'''\"					output filing case info (or full date)
+.fB
+.rm fB fC
+.mk y
+.sp|\\ntu
+'''\"					output work project number info
+.wO
+.rm wO wP
+.mk z
+.if \\ny>\\nx .nr x \\ny
+.if \\nz>\\nx .nr x \\nz
+.sp|\\nxu
+.tK
+'''\"					output keywords if they exist
+.if \\nk>0 \{\
+.ft 3
+Keywords:
+.ft 1
+.if t .sp 0.05i
+.in 0.2i
+.fi
+\\*(k)
+.nf
+.in 0
+.tK \}
+'''\"					output mercury info if it exists
+.if \\nb>0 \{\
+.ft 3
+MERCURY Announcement Bulletin Sections
+.ft 1
+.if t \{\
+.sp 0.05i
+.ta 0.6i 3.1i 5.6i
+.ps 8
+\\*(a)
+.ps \}
+.if n \{\
+.ta 0.5i 4.1i
+.if \\nb>2 \\*(b)
+\\*(a)
+.ps \}
+.tK \}
+.ps 10
+.ft 3
+Abstract
+.ft 1
+.mk x
+.if t \{\
+.nr b1 \\nx/\\n(.v+1
+.nr b2 (\\n(b1*\\n(.v)-\\nx
+.sp \\n(b2u
+.mk x \}
+'''\" calculate position (19v includes 2v to print version at bottom of page)
+'''\"	followed by timestamp and 1v line
+.nr y \\n(lpv-19v-\\n(fnu
+.sp|\\nyu
+.sp -1
+.tP
+'''\"					handle abstract page 1 continuation
+.ie \\n(la>\\n(a1 \{\
+.ce
+.ft2
+(continued on page iii)
+.ft1
+.br \}
+.el .sp1
+.tK
+.ps 8
+.if t .vs 10p
+.nr z 0
+.if '\\$1'' .nr z 1
+.if !'\\$2'' .nr z 1
+.if !'\\$3'' .nr z 1
+.if !'\\$4'' .nr z 1
+.if !'\\$5'' .nr z 1
+.if !'\\$6'' .nr z 1
+.if \\nz=1 \{\
+.tm WARNING: provide total document page count in first argument of .CS macro;       all other arguments ignored; do NOT include coversheet pages in this count. \}
+.nr z 0
+.if !'\\$1'' .nr z \\nz+\\$1
+.nr z \\nz+\\n(tp
+.tm Total Pages = \\nz
+.ie '\*(.T'X97.tim10p'\{\
+Total Pages (including document cover sheet):  \\s+2\\nz\\s-2
+.if !\\*(e('0' \{\
+Supersedes or amends document number \\*(e(. \}
+.el .sp1 \}
+.el \{\
+\f3Total Pages\f1 (including document cover sheet):  \\s+2\\nz\\s-2
+.if !'\\*(e('0' \{\
+\f3Supersedes\f1 or amends document number \\*(e(. \}
+.el .sp1 \}
+.ps
+.if t .vs
+.if \\n(fn>0 \{\
+.br
+.nf
+.fN
+.rm fN
+.br \}
+.mk z
+.if t .sp 0.67i
+.if n .sp 4
+'''\"					output proprietary notice if it exists
+.if \\np=1 \{\
+.ds o) LUCENT \- PROPRIETARY
+.ds p) "Use pursuant to Company Instructions
+.ds q)
+.ds r)
+.ft 2
+.if n .ti 14
+.if t .ti 1.65i
+\\*(o)
+.ft 1
+.if n .ti 5
+.if t .ti 1.25i
+\\*(p) \}
+.if \\np=2 \{\
+.ds o) LUCENT \- PROPRIETARY (RESTRICTED)
+.ds p) "Solely for authorized persons having a need to know
+.ds q) "pursuant to Company Instructions
+.ft 2
+.if n .ti 10
+.if t .ti 1.25i
+\\*(o)
+.ft 1
+.if n .ti 0
+.if t .ti 0.875i
+\\*(p)
+.if n .ti 10
+.if t .ti 1.375i
+\\*(q) \}
+'''\"					output csmacros version
+.sp |\\nzu+11v
+.ta 7.5iR
+\\s8\\*(ve\\s0
+'''\"					put out timestamp (if non-empty) and company identifier
+.ie !'\\*(s)'0' \{\
+\\s8\\*(s)\\s0	\\*(e3 \}
+.el "	\\*(e3
+.sp|\\nzu
+.sp1
+.ft 3
+.ti 5.25i
+\\*(m)
+.ft 1
+.sp|\\nxu
+.in 0.2i
+.nf
+'''\"					abstract
+.if \\n(la>\\n(a1 \{\
+.if n .wh -1 yY
+.if t .wh -0.25i yY \}
+.pl \\nyu
+.ta 0.5i 1.0i 1.5i 2.0i 2.5i
+'''\"					output the abstract
+.aS
+.rm aS
+.if !\\n(la>\\n(a1 .sp-1
+.rn aT xX
+.if t .wh -0.25i fO
+.if n .wh -1 fO
+'''\"					output continuation pages
+.cP
+'bp
+.ft 1
+.in 0
+.wh 0 hD
+.nf
+.ft 3
+.ta 7.5iR
+.nr tc \\n(tp
+Initial Distribution Specifications	\\*(n)\f2 (page ii of \\n(tc)\f3
+.ft 1
+.tK
+.if \\ne>0 \{\
+.dH "     Complete Copy" "     Cover Sheet Only"
+.mk z
+'''\"					put out complete copy list
+.in 0.2i
+.cA
+.in 0
+.rm cA
+.if !\\ng=0 \{\
+.ft 2
+.ti 1.25i
+(continued)
+.ft 1 \}
+.sp|\\nzu
+.in 4.0i
+'''\"					put out cover sheet list
+.dA
+.rm dA
+.if !\\ni=0 \{\
+.ft 2
+.ti 5.00i
+(continued)
+.ft 1 \}
+.in 0
+'''\"					starter space value - then tailor according to basic distribution length
+.sp|5
+.sp \\ne
+.tK \}
+'''\"					put out security section if selected
+.if \\nr=1 \{\
+\f3Government Security Classified\f1
+.ft 1
+.if t .sp -0.05i
+.tK \}
+\f3Future Lucent Distribution by ITDS\f1
+.if \\n(ra>0 \{\
+.ti 0.5i
+.if t .sp 0.05i
+.ie \\n(ra=2 \{\
+.if t \f3DO NOT RELEASE\f1 to any Lucent employee without appropriate approval for each request.
+.if n \{\
+\f3DO NOT RELEASE\f1 to any Lucent employee without appropriate approval
+.br
+.ti 1.0i
+for each request.\}\}
+.el \{\
+\f3RELEASE\f1 to any Lucent employee (excluding contract employees).
+.br \}\}
+'''\"					next 41 lines for yes/no boxes; remove when .fA macro becomes mandatory
+.if \\n(ra=0 \{\
+.if t \{\
+.mk z
+.ti 0.1i
+.bE
+.sp|\\nzu
+.ti 0.25i
+Yes, \f3RELEASE\f1 to any Lucent employee (excluding
+.sp|\\nzu
+.ti 4.1i
+.bE
+.sp|\\nzu
+.ti 4.25i
+No, \f3DO NOT RELEASE\f1 to any Lucent employee
+.mk z
+.ti 0.35i
+contract employees).
+.sp|\\nzu
+.ti 4.35i
+without obtaining appropriate approval.\}
+.if n \{\
+.mk z
+.ti 0.1i
+.bE
+.sp|\\nzu
+.ti 0.4i
+Yes, \f3RELEASE\f1 to any Lucent employee
+.sp|\\nzu
+.ti 4.1i
+.bE
+.sp|\\nzu
+.ti 4.4i
+No, \f3DO NOT RELEASE\f1 to any Lucent
+.mk z
+.ti 0.5i
+(except contract employees).
+.ti 4.5i
+.sp|\\nzu
+employee without obtaining
+.ti 4.5i
+appropriate approval.\}\}
+.if t .sp -0.05i
+.tK
+.ft 3
+Author Signature\\*(u)
+.ft 1
+.sp1
+.ta 2.625i 5.25i
+\l'2.25i'	\l'2.25i'	\l'2.25i'
+.ta 0.25i 2.875i 5.5i
+\\*(m(
+.if \\nu>3 \{\
+.sp1
+.ta 2.635i 5.25i
+\l'2.25i'	\l'2.25i'	\l'2.25i'
+.ta 0.25i 2.875i 5.5i
+\\*(n( \}
+.if \\nu>6 \{\
+.sp1
+.ta 2.635i 5.25i
+\l'2.25i'	\l'2.25i'	\l'2.25i'
+.ta 0.25i 2.875i 5.5i
+\\*(o( \}
+.if \\nu>9 \{\
+.sp1
+.ta 2.635i 5.25i
+\l'2.25i'	\l'2.25i'	\l'2.25i'
+.ta 0.25i 2.875i 5.5i
+\\*(p( \}
+.if t .sp -0.1i
+.tK
+'''\"					output organizational approval section
+.ie \\np>1 \{\
+.if t \{\
+\f3Organizational Approval\f1  (\\*(e4 approval \f3required\f1 for \f2\\*(o)\f1.) \}
+.if n \{\
+\f3Organizational Approval\f1
+.ti 0.5i
+\\*(e4 approval \f3required\f1 for \f2\\*(o)\f1. \}
+.br \}
+.el \{\
+\f3Organizational Approval\f1  (Optional) \}
+.sp 1
+.ta 2.625i 5.25i
+\l'2.25i'	\l'2.25i'	\l'2.25i'
+.ta 0.25i 2.875i 5.5i
+\\*(u(
+.if ((\\n(oa>3):((\\nn>3)&(\\n(oa=0))) \{\
+.sp1
+.ta 2.625i 5.25i
+\l'2.25i'	\l'2.25i'	\l'2.25i'
+.ta 0.25i 2.875i 5.5i
+\\*(v( \}
+.if ((\\n(oa>6):((\\nn>6)&(\\n(oa=0))) \{\
+.sp 1
+.ta 2.625i 5.25i
+\l'2.25i'	\l'2.25i'	\l'2.25i'
+.ta 0.25i 2.875i 5.5i
+\\*(w( \}
+.if ((\\n(oa>9):((\\nn>9)&(\\n(oa=0))) \{\
+.sp 1
+.ta 2.625i 5.25i
+\l'2.25i'	\l'2.25i'	\l'2.25i'
+.ta 0.25i 2.875i 5.5i
+\\*(x( \}
+.if t .sp -0.1i
+.tK
+'''\"					recipient section always output
+.ft 3
+For Use by Recipient of Cover Sheet:
+.ft 1
+.if t \{\
+.ps-3
+.vs-4
+.sp1
+.mk z
+  Computing network users may order copies via the \f2library -1\f1 command;
+   for information, type \f2man library\f1 after the UNIX\(rg system prompt.
+.sp1
+.rn fo xx
+  Otherwise:
+   Enter PAN if Lucent-BL (or SS# if non-Lucent-BL). \l'1.5i'
+   Return this sheet to any ITDS location. 
+.sp|\\nzu
+.in 4.0i
+Internal Technical Document Service
+.sp1
+.ta 0.9i 1.8i 2.7i
+( ) AK 2H-28	( ) IH 7M-103	( ) DR 2F-19	( ) NW-ITDS
+( ) ALC 1B-102	( ) MV 3L-19	( ) INH 1C-114	( ) PR 5-2120
+( ) CB 1L-220	( ) WH 3E-204	( ) IW 2Z-156
+( ) HO 4F-112		( ) MT 2C-131
+.br \}
+.if n \{\
+  Computing network users may order copies via the \f2library -1\f1 command;
+  for information, type \f2man library\f1 after the UNIX system prompt. 
+  Otherwise:
+.sp1
+.mk z
+.rn fo xx
+1 Enter PAN if Lucent-BL (or SS# if
+  non-Lucent-BL).
+               \l'2.0i'
+2 Return this sheet to any
+  ITDS location. 
+.sp|\\nzu
+.in 4.0i
+Internal Technical Document Service
+.sp1
+.ta 1.75i
+.if \\n(en=1 \{\
+( ) AK 2H-28	( ) IH 7M-103
+( ) ALC 1B-102	( ) MV 3L-19
+( ) CB 1L-220	( ) WH 3E-204
+( ) HO 4F-112 \}
+.if \\n(en=2 \{\
+( ) DR 2F-19
+( ) INH 1C-114
+( ) IW 2Z-156
+( ) MT 2C-131 \}
+.if \\n(en=3 \{\
+( ) NW-ITDS \}
+.if \\n(en=4 \{\
+( ) PR5-2120 \}
+.br \}
+.if \\n(aa \{\
+.	sy pwd >/tmp/sx\\n($$
+.	sy sed "s/^/cd /" /tmp/sx\\n($$ >/tmp/sc\\n($$
+.	sy echo "/usr/lib/tmac/sendcover" \\n(.F \\n(qq >>/tmp/sc\\n($$
+.	sy echo "rm" /tmp/sx\\n($$ /tmp/sc\\n($$>>/tmp/sc\\n($$
+.	sy sh /tmp/sc\\n($$&
+.	br \}
+.rr a b c e g h i j k
+.rr l m n o p q r s t
+.rr u v w x y z
+.rr an fn as ds fs bd dv lp
+.rr tp np la a1 a2 ar fi
+.rr in si ps ts vs tv b1 b2 m1
+.rr :b :c :d :e ls dt fc wp
+.rr g1 g2 g3 g4 g5 i1 i2 i3 i4 i5
+.rm a) b) c) e) k) n) o) p) q)
+.rm r) s) t) u) v) w) x) y) z)
+.rm a( b( m( n( o( p( s( t(
+.rm tc nc Tm 10 ve
+.rm hD fO aT tK bE bX tH cH
+.rm dH eP cP tP t1 CS tI tS cE
+.rm cZ dZ eE fF gG oH dP
+..
+'''\"	end of csmacros
diff --git a/tmac/tmac.nihongo b/tmac/tmac.nihongo
new file mode 100644
index 00000000..552b476a
--- /dev/null
+++ b/tmac/tmac.nihongo
@@ -0,0 +1 @@
+.pi $PLAN9/bin/mnihongo
diff --git a/tmac/tmac.org b/tmac/tmac.org
new file mode 100644
index 00000000..fadaa023
--- /dev/null
+++ b/tmac/tmac.org
@@ -0,0 +1,2 @@
+'''\"	TMAC.ORG @(#)tmacs.src	1.7
+.so /usr/lib/macros/org
diff --git a/tmac/tmac.pictures b/tmac/tmac.pictures
new file mode 100644
index 00000000..6ff4f96e
--- /dev/null
+++ b/tmac/tmac.pictures
@@ -0,0 +1,154 @@
+.de PI	\" Picture Include
+.	\" $1=file(page) $2=height,width,yoff,xoff $3=flags
+.	\" Height, width, xoff, and yoff are for the frame, flags is for the
+.	\" picture. Default dimensions are inches.
+\\X'PI:\\n(.o:\\n(.i:\\n(.l:\\n(.t:\\$1:\\$2:\\$3:'\\c
+..
+.nr FT 0
+.de BP	\" Begin a Picture
+.	\"
+.	\" $1=file(page) $2=height $3=width $4=position $5=offset $6=flags $7=label
+.	\"
+.	\" Height, width, position, and offset are for the frame, flags is for
+.	\" the picture. The postion flag should be l, c, r, or "". Omitting the
+.	\" position argument is also allowed for compatibility with the original
+.	\" version of the macro. In that case offset is taken relative to your
+.	\" left margin.
+.if \\n(FT>1 .EP
+.	\" Need these when we switch environments.
+.nr Ov \\n(.v
+.nr Oi \\n(.i
+.nr Ol \\n(.l
+.	\" Remember the arguments - sometimes as both a string and number register.
+.nr $2 \\$2i
+.nr $3 \\$3i
+.nr $4 \\$4i
+.ds $4 \\$4
+.nr $5 \\$5i
+.ds $5 \\$6
+.ds $6 \\$7
+.	\" Accept a few unadvertised position flags.
+.if '\\*($4'L' .ds $4 l
+.if '\\*($4'C' .ds $4 c
+.if '\\*($4'R' .ds $4 r
+.	\" A null with more than three arguments means l.
+.if \\n(.$>3 .if '\\*($4'' .ds $4 l
+.	\" Default frame dimensions if missing, zero, or null.
+.if !\\n($2>0 .nr $2 3.0i
+.if !\\n($3>0 .nr $3 \\n(.lu-\\n(.iu-\\n($4u
+.if !\\n($3>0 .nr $3 \\n($2u
+.	\" Figure out the offset that will be used the rest of the way.
+.if '\\*($4'l' .nr $4 \\n($5u
+.if '\\*($4'c' .nr $4 (\\n(.lu-\\n(.iu-\\n($3u)/2u+\\n($5u
+.if '\\*($4'r' .nr $4 \\n(.lu-\\n(.iu-\\n($3u+\\n($5u
+.	\" If we haven't recognized the position flag assume it wasn't given and
+.	\" treat argument four as an offset from the left.
+.if !'\\*($4'l' .if !'\\*($4'c' .if !'\\*($4'r' .ds $5 \\$5
+.if !'\\*($4'l' .if !'\\*($4'c' .if !'\\*($4'r' .ds $6 \\$6
+.	\" Set increments for line length and indent.
+.nr Ii \\n($3u+\\n($4u+.1i
+.nr Il \\n(.lu-\\n(.iu-\\n($4u+.1i
+.	\" Set the frame type to one of:
+.	\"	0 - frame is as wide as a line of text - skip over it.
+.	\"	1 - fits in left or right margins
+.	\"	2 - fill with text on the right
+.	\"	3 - on the left
+.	\"	4 - or on both sides of the frame
+.	\"	5 - only set in EP if FT was 4 and now filling on the right.
+.	\" Assume the frame is as wide as a line of text, then check dimensions
+.	\" to see what's really true. The order of these tests is important!
+.nr FT 0
+.if \\n($4u>1.0i .nr FT 3
+.if \\n($4u+\\n(.iu>=\\n(.lu .nr FT 1
+.if \\n($3u+\\n($4u+\\n(.iu+1.0i<\\n(.lu .nr FT 2
+.if \\n($3u+\\n($4u<=0 .nr FT 1
+.if \\n(FT=2 .if \\n($4u>1.0i .nr FT 4
+.	\" Ask for some vertical space - labeled pictures need a little extra,
+.	\" margin pictures a little less.
+.if \\n(FT=1 .if '\\*($6'' .ne \\n($2u
+.if \\n(FT=1 .if !'\\*($6'' .ne \\n($2u+2v
+.if !\\n(FT=1 .if '\\*($6'' .ne \\n($2u+3v
+.if !\\n(FT=1 .if !'\\*($6'' .ne \\n($2u+5v
+.	\" Save our place, draw the picture, label it, and return. Need precise
+.	\" control of when \X'...' is put out - thus the new environment.
+.mk Oh
+.ev 1
+.in \\n(Oiu
+.ll \\n(Olu
+.vs \\n(Ovu
+.if \\n(FT=1 .sp -1v
+.if \\n(FT=1 .PI \\$1 \\n($2u,\\n($3u,\\n(.vu,\\n($4u t\\*($5
+.if !\\n(FT=1 .PI \\$1 \\n($2u,\\n($3u,\\n(.vu,\\n($4u \\*($5
+.in
+.ll
+.vs
+.ev
+.lt \\n($3u
+.tl \(ts\(ts\\h'\\n($4u+\\n(.iu'\\v'\\n($2u+1.5v'\\*($6\\v'-\\n($2u-1.5v'\\h'-\\n($4u-\\n(.iu'\(ts\(ts
+.lt
+'sp |\\n(Ohu
+.	\" Figure out what to do with the text that follows.
+.if !'\\*($6'' .nr $2 +2v
+.if \\n(FT=0 .sp \\n($2u+2v
+.if \\n(FT=1 .nr FT 0
+.if \\n(FT=2 'in +\\n(Iiu
+.if \\n(FT>2 .ll -\\n(Ilu
+.if \\n(FT>1 .di BB
+.if \\n(FT>1 .dt \\n($2u+2v+1u EP
+.	\" Clean things up.
+.rr $2
+.rr $3
+.rr $4
+.rm $4
+.rr $5
+.rm $5
+.rm $6
+.rr Oh
+.rr Oi
+.rr Ol
+.rr Ov
+.if \\n(FT=0 .EP
+..
+.de EP	\" End the Picture - Normally called from a trap, although it can be used
+.	\" on its own to mark the end of a picture.
+.nr Ot 0
+.if \\n(.tu<\\n(.pu .nr Ot \\n(.tu
+.if \\n(Ot>0 .if \\n(FT=4 .nr FT 3
+.if \\n(FT<2 .nr Ot 0
+.if \\n(Ot>0 .br
+.if \\n(FT=5 .nr Ot 0
+.if \\n(FT>1 \{\
+.	ev 1
+.	eo
+.	br
+.	di
+.	nf
+.	in 0
+.	BB
+.	in
+.	fi
+.	ec
+.	ev
+.	rm BB\}
+.if \\n(FT=5 \{\
+.	nr FT 2
+'	sp |\\n(Nhu+1v\}
+.if \\n(FT=4 \{\
+.	mk Nh
+.	nr Nh -1v
+.	nr FT 5
+'	sp -\\n(dnu+1v
+'	in +\\n(Iiu
+.	ll +\\n(Ilu
+.	di BB
+.	dt \\n(dnu-2v+1u EP\}
+.if \\n(FT=2 'in -\\n(Iiu
+.if \\n(FT=3 .ll +\\n(Ilu
+.if \\n(FT<4 .nr FT 0
+.if \\n(Ot>0 .sp \\n(Otu
+.rr Ot
+.if \\n(FT=0 \{\
+.	rr Nh
+.	rr Ii
+.	rr Il\}
+..
diff --git a/tmac/tmac.psychrefs b/tmac/tmac.psychrefs
new file mode 100644
index 00000000..60e3b1b3
--- /dev/null
+++ b/tmac/tmac.psychrefs
@@ -0,0 +1,51 @@
+.de [1
+.in 3n
+.ti 0
+\\*([A\c
+.ie \\n([A=0 \&. \&
+.el \& \&
+\\*([T.
+\f2\\*([J,\f1
+\\*([D,
+.if !"\\*([N"" .if !"\\*([V"" \\f3\\*([V\\f1 (\\*([N),
+.if "\\*([N"" .if !"\\*([V"" \\f3\\*([V\\f1,
+\\*([P.
+..
+.de [2
+.in 3n
+.ti 0
+\\*([A\c
+.ie \\n([A=0 \&. \&
+.el \& \&
+\\f2\\*([T.\\f1
+\\*([C: \\*([I, \\*([D.
+..
+.de [3
+.in 3n
+.ti 0
+\\*([A\c
+.ie \\n([A=0 \&. \&
+.el \& \&
+\\*([T.
+In \\*([E (Ed.),
+\\f2\\*([B\\f1.
+\\*([C: \\*([I, \\*([D.
+..
+.de [5
+.in 3n
+.ti 0
+\\*([A\c
+.ie \\n([A=0 \&. \&
+.el \& \&
+\\*([T,
+\\*([M.
+..
+.de [4
+.in 3n
+.ti 0
+\\*([A\c
+.ie \\n([A=0 \&. \&
+.el \& \&
+\\*([T.
+Report \\*([R, \\*([I, \\*([D.
+..
diff --git a/tmac/tmac.ptx b/tmac/tmac.ptx
new file mode 100644
index 00000000..a90be328
--- /dev/null
+++ b/tmac/tmac.ptx
@@ -0,0 +1,17 @@
+'''\"	ptx.src (@(#)ptx.src	1.1)  -  format permuted index macro
+.tr ~
+.nr)y \n(.lu-.65i
+.nr)x \n()yu/2u
+.dss2 ~~~
+.dss4 ~
+.dss5 ~
+.dexx
+.dss1
+.if\w\\$2 .ds s1 ~\|
+.dss3
+.if\w\\$4 .ds s3 ~\|
+.dsy \\*(s4\f3\a\fP\\*(s5
+.ta\\n()yu-\w\\*(s5u
+\h\\n()xu-\w\\$1\\*(s1\\$2\\*(s2u\\$1\\*(s1\\$2\\*(s2\\$3\\*(s3\\$4\\*y\\$5
+..
+.nf
diff --git a/tmac/tmac.rscover b/tmac/tmac.rscover
new file mode 100644
index 00000000..7b2f9307
--- /dev/null
+++ b/tmac/tmac.rscover
@@ -0,0 +1,170 @@
+.de CZ
+.br
+.if !"\\$1"" \\$1
+.br
+.if !"\\$2"" \\$2
+.br
+.if !"\\$3"" \\$3
+.br
+.if !"\\$4"" \\$4
+.br
+.if !"\\$5"" \\$5
+.br
+.if !"\\$6"" \\$6
+.br
+.if !"\\$7"" \\$7
+.br
+.if !"\\$8"" \\$8
+.br
+.if !"\\$9"" \\$9
+..
+.ds AZ \f(HBA\h'-.2m'T\h'-.15m'\s-3&\s0\h'-.15m'T\fP
+.	\"S1 - tm style 
+.de S1
+.br
+.sp |.5i
+.ta 4.75i 5.25i
+.ll 80
+.ps 36
+.br
+.ie !'\*(Lb'' \t\(Lb\h'-.53i'\fH\s10Bell Laboratories
+.el \t\(L1\s16\v'-.8'\\*(AZ\v'.8'\h'-\w'\\*(AZ'u'\fH\s10Bell Laboratories
+.br
+.sp 2
+.ps 12
+.br
+.nr SJ \\n(.j
+.na
+.br
+.ps 8
+.vs 12p
+.sp 2v
+.mk
+.ll
+.ll 4.0i
+Subject:
+.ft 3
+.br
+.rt
+.in +\w'Subject: 'u
+.ps
+'''\".nf
+.fi
+.hy 0
+.WT
+.hy 14
+.ft 1
+.br
+.fi
+.in 0
+.vs 10
+.if \\n(MC>0 \\s8Work Program- \\*(X1\\s10
+.if \\n(MG>0 --\\s8 File- \\*(F1\\s10
+.br
+.if \\n(MC>1 \\s8\\h'\\w'Work Program- 'u'\\*(X2\\s10
+.if \\n(MG>1 \\h'\\w'--\\s8 File- 'u'\\s8\\*(F2\\s10
+.br
+.if \\n(MC>2 \\s8\\h'\\w'Work Program- 'u'\\*(X3\\s10
+.if \\n(MG>2 \\h'\\w'--\\s8 File- 'u'\\s8\\*(F3\\s10
+.br
+.if \\n(MC>3 \\s8\\h'\\w'Work Program- 'u'\\*(X4\\s10
+.if \\n(MG>3 \\h'\\w'--\\s8 File- 'u'\\s8\\*(F4\\s10
+.br
+.if \\n(MC>4 \\s8\\h'\\w'Work Program- 'u'\\*(X5\\s10
+.if \\n(MG>4 \\h'\\w'--\\s8 File- 'u'\\s8\\*(F5\\s10
+.br
+.if \\n(TO>0 \{\
+.ps 8
+.nf
+.sp
+To:
+.in +\w'Subject: 'u
+.sp -1v
+.ps
+.nf
+.1T
+.in \}
+.vs
+.rt
+.ll 6.5i
+.in 5.10i
+.ps 8
+.ti -6n
+.ta 6n
+date:\t\\s\\n(PS\\f3\\*(DY
+.sp
+.ft 1
+.ps 8
+.mk
+.ti -6n
+from:
+.ps
+.br
+.rt
+.nf
+.ft 3
+.A1
+.if \\n(TO>0 \{\
+\\*(D1
+\\*(1L
+.br \}
+.if \\n(NA>1 .A2
+.if \\n(NA>2 .A3
+.if \\n(NA>3 .A4
+.if \\n(NA>4 .A5
+.if \\n(NA>5 .A6
+.if \\n(NA>6 .A7
+.if \\n(NA>7 .A8
+.if \\n(NA>8 .A9
+.ft 1
+.sp
+.mk
+.ps 8
+.ti -6n
+.ft 1
+.if \\n(IM=0 .if \\n(MM .if "\\*(MQ"" \{\
+.if \\n(MN=0 .ds MQ TM:
+.if \\n(MN=1 .ds MQ MF:
+.if \\n(MN=2 .ds MQ MR:
+.if \\n(MN=3 .ds MQ EN:\}
+\\*(MQ
+.br
+.ti \\n(.iu
+.rt
+.ps
+.ft 3
+.hy 0
+.ll 20i
+.ll 7.75i-\\n(.ou
+.fi
+.na
+.if \\n(MM .CZ \\*(MN
+.\" ditched .CZ
+.hy 14
+.nf
+.ft 1
+.ll \\n(LLu
+.in
+.sp |\\n(.hu
+.if \\n(IM=0 .sp
+.ad \\n(SJ
+.ce
+.ft 2
+.if \\n(IM=0 \\*(QF
+.ft 1
+.ce 0
+.if \\n(IM=0 .sp
+.fi
+..
+.de TL
+.br
+.di WT
+..
+.de AB
+.br
+.di
+.rm WT TL AB AU
+..
+.de AU
+..
+.nr YE 1
diff --git a/tmac/tmac.s b/tmac/tmac.s
new file mode 100644
index 00000000..d8e399fd
--- /dev/null
+++ b/tmac/tmac.s
@@ -0,0 +1,1592 @@
+.lg 0
+.ds sd #9/sys/lib/tmac
+.\"	RT -  reset everything to normal state
+.de RT
+.if \\n(CS \{\
+.SR 1
+.BG\}
+.if !\\n(1T .BG
+.ce 0
+.if !\\n(IK .if !\\n(IF .if !\\n(IX .if !\\n(BE .if !\\n(FT .di
+.ul 0
+.if \\n(QP \{\
+.	ll +\\n(QIu
+.	in -\\n(QIu
+.	nr QP -1\}
+.if \\n(NX<=1 .if \\n(AJ=0 .if \\n(FT=0 .ll \\n(LLu
+.if !\\n(IF \{\
+.	ps \\n(PS
+.	ie \\n(VS>=41 .vs \\n(VSu
+.	el .vs \\n(VSp\}
+.ie \\n(IP \{\
+.	in \\n(I\\n(IRu
+.	nr IP -1\}
+.el .if !\\n(IR \{\
+.	nr I1 \\n(PIu
+.	nr I2 0
+.	nr I3 0
+.	nr I4 0
+.	nr I5 0\}
+.ft 1
+.ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n
+.hy \\n(HY
+.fi
+..
+.	\"IZ - initialization
+.de IZ
+.so \\*(sd/tmac.sdisp
+.nr TN 0
+.em EM
+. \"  ACCENTS  say \*'e or \*`e to get e acute or e grave both were 4/10
+.ds ' \h'\w'e'u*1/10'\z\(aa\h'-\w'e'u*1/10'
+.ds ` \h'\w'e'u*2/10'\z\(ga\h'-\w'e'u*2/10'
+. \"  UMLAUT  \*:u, etc.
+.if t .ds : \\v'-0.6m'\\h'(1u-(\\\\n(.fu%2u))*0.13m+0.00m'\\z.\\h'0.2m'\\z.\\h'-((1u-(\\\\n(.fu%2u))*0.13m+0.20m)'\\v'0.6m'
+.if n .ds : \z"
+. \" TILDE and CIRCUMFLEX
+.ds ^ \\\\k:\\h'-\\\\n(.fu+1u/2u*2u+\\\\n(.fu-1u*0.13m+0.06m'\\z^\\h'|\\\\n:u'
+.ds ~ \\\\k:\\h'-\\\\n(.fu+1u/2u*2u+\\\\n(.fu-1u*0.13m+0.06m'\\z~\\h'|\\\\n:u'
+.	\" czech v symbol
+.ds v \\\\k:\\\\h'+\\\\w'e'u/4u'\\\\v'-0.6m'\\\\s6v\\\\s0\\\\v'0.6m'\\\\h'|\\\\n:u'
+.		\" cedilla
+.ds , \\\\k:\\\\h'\\\\w'c'u*0.4u'\\\\z,\\\\h'|\\\\n:u'
+.so \\*(sd/tmac.srefs
+.ch FO \\n(YYu
+.if !\\n(FM .nr FM 1i
+.nr YY -\\n(FMu
+.nr XX 0 1
+.nr IP 0
+.nr PI 5n
+.nr QI 5n
+.nr I0 \\n(PIu
+.nr PS 10
+.nr VS 12
+.nr HY 14
+.ie n \{\
+.	if !\\n(PD .nr PD 1v
+.	nr DV 1v\}
+.el \{\
+.	if !\\n(PD .nr PD 0.3v
+.	nr DV .5v\}
+.nr ML 3v
+.ps \\n(PS
+.ie \\n(VS>=41 .vs \\n(VSu
+.el .vs \\n(VSp
+.nr IR 0
+.nr I0 0
+.nr I1 \\n(PIu
+.nr TB 0
+.nr SJ \\n(.j
+.nr LL 6i
+.ll \\n(LLu
+.nr LT \\n(.l
+.lt \\n(LTu
+.ev 1
+.if !\\n(FL .nr FL \\n(LLu*11u/12u
+.ll \\n(FLu
+.ps 8
+.vs 10p
+.ev
+.if \\*(CH .ds CH "\(hy \\\\n(PN \(hy
+.wh 0 NP
+.wh -\\n(FMu FO
+.ch FO 16i
+.wh -\\n(FMu FX
+.ch FO -\\n(FMu
+.if t .wh -\\n(FMu/2u BT
+.if n .wh -\\n(FMu/2u-1v BT
+. \" no overstriking bold or italic; switch underlining to bold italic
+. \" (sad historical botch, the .uf font must be 2, 3, or 4)
+.if n .uf 4
+.if n .bd 3
+.nr CW 0-1
+.nr GW 0-1
+..
+.de TM
+.if !\\n(IM .if !\\n(MN .pn 0
+.so \\*(sd/tmac.scover
+.if !\\n(IM .if !\\n(MN .rm IM MF MR
+.if n .if !\\n(.T .pi /usr/bin/col
+.nr ST 1
+.ds QF TECHNICAL MEMORANDUM
+.br
+.ds MN \\$1
+.if !"\\$1"" .nr MM 1
+.if !"\\$2"" .nr MC 1
+.if !"\\$3"" .nr MG 1
+.nr TN 1
+.if \\n(.$-1 .ds CA \\$2
+.if \\n(.$-2 .ds CC \\$3
+.rm RP S0 S2 AX
+..
+.		\" IM - internal memorandum
+.de IM
+.nr IM 1
+.TM "\\$1" "\\$2" "\\$3"
+.rm QF
+.RA
+.rm RA RP MF MR
+..
+.		\" MF - memorandum for file.
+.de MF
+.nr MN 1
+.TM "\\$1" "\\$2" "\\$3"
+.rm MR
+.rm IM
+.RA
+.rm RA RP TM
+..
+.		\" MR - memo for record
+.de MR
+.nr MN 2
+.TM "\\$1" "\\$2" "\\$3"
+.ds QF MEMORANDUM FOR RECORD
+.rm MF
+.RA
+.rm RA RP IM TM
+..
+.	\" LT - letter
+.de LT
+.if !\\n(PO .ie n .nr PO 1.5i
+.el .nr PO 1.3i
+.po \\n(POu
+.LP
+.rs
+.if !"\\$1"" \{\
+.	vs -2p
+.if "\\$1"LT" .ta 3.9i 4.45i
+.if !"\\$1"LT" .ta 3.9i 4.45i
+.	sp .2i
+.	nf
+.	if "\\$1"LT" 	\s36\(FA\s0
+.	if !"\\$1"LT" 	\s36\(LH\s0
+.	br
+\s7\l'7i'\s0
+.sp
+.	br
+.	if !"\\$2"" .ds xR "		\\$2
+.	ds xP 908-582-3000
+.	if !"\\$3"" .ds xP \\$3
+.	if "\\$1"LT" \s8\f(HBBell Laboratories\fP		\fH600 Mountain Avenue
+.	if !"\\$1"LT" \s8\f(HBBell Laboratories\fP		\fH600 Mountain Avenue
+.	if !"\\$2"" \\*(xR
+		Murray Hill, NJ 07974-0636
+		\\*(xP
+.	if !"\\$4"" 		\\$4
+.	if !"\\$5"" 		\\$5
+.	if !"\\$6"" 		\\$6
+.	if !"\\$7"" 		\\$7
+.ft 1
+.ps
+.	sp -.75i
+.	vs
+.	fi \}
+.if n \{\
+.	sp 1i
+.	in 4.55i\}
+.if t \{\
+.	sp 1.45i
+.	in 3.5i\}
+.ll 8i
+\\*(DY
+.ll
+.in 0
+.br
+.if t .sp 3
+.if n \{\
+.	sp
+.	na\}
+.nf
+.rm CF
+.de SG	\" nested defn
+.sp 2
+.ta 3.5i
+	Sincerely,
+.sp 3
+	\\\\$1
+.ds CH
+\\..
+..
+.de OK
+.br
+.di
+.di OD
+..
+.de RP		\" released paper
+.nr ST 2
+.pn 0
+.rm SG CS TM QF IM MR MF EG
+.br
+..
+.de TR		\" Comp. Sci. Tech Rept series.
+.nr ST 3
+.pn 0
+.ds MN \\$1
+.rm SG CS TM QF IM MR M EG
+.br
+..
+.	\"FP - font position for a family
+.de FP
+.ds TF \\$1
+.if '\\$1'palatino'\{\
+.	fp 1 R PA
+.	fp 2 I PI
+.	fp 3 B PB
+.	fp 4 BI PX\}
+.if '\\$1'lucidabright'\{\
+.	fp 1 R LucidaBright
+.	fp 2 I LucidaBright-Italic
+.	fp 3 B LucidaBright-Demi
+.	fp 4 BI LucidaBright-DemiItalic
+.	fp 5 CW LucidaSansCW\}
+.if '\\$1'lucidasans'\{\
+.	fp 1 R LucidaSans
+.	fp 2 I LucidaSansI
+.	fp 3 B LucidaSansB
+.	fp 5 CW LucidaCW\}
+.if '\\$1'syntax'\{\
+.	fp 1 R Syntax
+.	fp 2 I SyntaxI
+.	fp 3 B SyntaxB
+.	fp 5 CW LucidaCW\}
+.if '\\$1'century'\{\
+.	ie '\\*(.T'202'\{\
+.		fp 1 NR Centsb
+.		fp 2 NI CentI
+.		fp 3 NB CentB
+.		fp 4 NX CentBI\}
+.	el \{\
+.		fp 1 NR
+.		fp 2 NI
+.		fp 3 NB
+.		fp 4 NX\}\}
+.if '\\$1'helvetica'\{\
+.	fp 1 H
+.	fp 2 HI
+.	fp 3 HB
+.	fp 4 HX\}
+.if '\\$1'bembo'\{\
+.	ie '\\*(.T'202'\{\
+.		fp 1 B1 Bembo
+.		fp 2 B2 BemboI
+.		fp 3 B3 BemboB
+.		fp 4 B4 BemboBI\}
+.	el \{\
+.		fp 1 B1
+.		fp 2 B2
+.		fp 3 B3
+.		fp 4 B4\}\}
+.if '\\$1'optima'\{\
+.	fp 1 R Optima
+.	fp 2 I OptimaI
+.	fp 3 B OptimaB
+.	fp 4 BI OptimaBI\}
+.if '\\$1'souvenir'\{\
+.	fp 1 R Souvenir
+.	fp 2 I SouvenirI
+.	fp 3 B SouvenirB
+.	fp 4 BI SouvenirBI\}
+.if '\\$1'melior'\{\
+.	fp 1 R Melior
+.	fp 2 I MeliorI
+.	fp 3 B MeliorB
+.	fp 4 BI MeliorBI\}
+.if '\\$1'times'\{\
+.	fp 1 R
+.	fp 2 I
+.	fp 3 B
+.	fp 4 BI\}
+..
+.	\"TL - title and initialization
+.de TL
+.br
+.nr TV 1
+.if \\n(IM .rm CS
+.if \\n(MN .rm CS
+.ME
+.rm ME
+.di WT
+.na
+.fi
+.ll 5.0i
+.if n .if \\n(TN .ll 29
+.if t .if \\n(TN .ll 3.5i
+.ft 3
+.ps \\n(PS
+.if !\\n(TN \{\
+.	ps +2
+.	vs \\n(.s+2
+.	rm CS\}
+.hy 0
+..
+.de TX
+.rs
+.sp .5i
+.ce 1000
+.if n .ul 1000
+.ps 12
+.ft 3
+.vs 15p
+.ne 4
+.hy 0
+.WT
+.hy \\n(HY
+.ce 0
+.ul 0
+..
+.	\"	AU - author(s)
+.de AU
+.nr AV 1
+.ad \\n(SJ
+.br
+.di
+.br
+.nf
+.nr NA +1
+.ds R\\n(NA \\$1
+.ds E\\n(NA \\$2
+.di A\\n(NA
+.ll \\n(LLu
+.ie t \{\
+.	ie !\\n(TN .ft 2
+.	el \{\
+.		ft 3
+.		ll 1.4i\}\}
+.el \{\
+.	ie !\\n(TN .ft 1
+.	el \{\
+.		ft 3
+.		ll 16\}\}
+.ps \\n(PS
+..
+.de AX
+.ft 1
+.rs
+.ce 1000
+.if n .ul 0
+.ps \\n(PS
+.ie \\n(VS>=41 .vs \\n(VSu
+.el .vs \\n(VSp
+.if t \{\
+.	sp
+.	A1
+.	sp 0.5
+.	ns
+.	I1
+.	if \\n(NA-1 .sp
+.	A2
+.	if \\n(NA-1 .sp 0.5
+.	ns
+.	I2
+.	if \\n(NA-2 .sp
+.	A3
+.	if \\n(NA-2 .sp 0.5
+.	ns
+.	I3
+.	if \\n(NA-3 .sp
+.	A4
+.	if \\n(NA-3 .sp 0.5
+.	ns
+.	I4
+.	if \\n(NA-4 .sp
+.	A5
+.	if \\n(NA-4 .sp 0.5
+.	ns
+.	I5
+.	if \\n(NA-5 .sp
+.	A6
+.	if \\n(NA-5 .sp 0.5
+.	ns
+.	I6
+.	if \\n(NA-6 .sp
+.	A7
+.	if \\n(NA-6 .sp 0.5
+.	ns
+.	I7
+.	if \\n(NA-7 .sp
+.	A8
+.	if \\n(NA-7 .sp 0.5
+.	ns
+.	I8
+.	if \\n(NA-8 .sp
+.	A9
+.	if \\n(NA-8 .sp 0.5
+.	ns
+.	I9\}
+.if n \{\
+.	sp 2
+.	A1
+.	sp 
+.	ns
+.	I1
+.	if \\n(NA-1 .sp 2
+.	A2
+.	if \\n(NA-1 .sp
+.	ns
+.	I2
+.	if \\n(NA-2 .sp 2
+.	A3
+.	if \\n(NA-2 .sp
+.	ns
+.	I3
+.	if \\n(NA-3 .sp 2
+.	A4
+.	if \\n(NA-3 .sp
+.	ns
+.	I4
+.	if \\n(NA-4 .sp 2
+.	A5
+.	if \\n(NA-4 .sp
+.	ns
+.	I5
+.	if \\n(NA-5 .sp 2
+.	A6
+.	if \\n(NA-5 .sp
+.	ns
+.	I6
+.	if \\n(NA-6 .sp 2
+.	A7
+.	if \\n(NA-6 .sp
+.	ns
+.	I7
+.	if \\n(NA-7 .sp 2
+.	A8
+.	if \\n(NA-7 .sp
+.	ns
+.	I8
+.	if \\n(NA-8 .sp 2
+.	A9
+.	if \\n(NA-8 .sp
+.	ns
+.	I9\}
+..
+.	\"AI - authors institution
+.de AI
+.br
+.ft 1
+.di
+.di I\\n(NA
+.nf
+..
+.	\"AB - begin an abstract
+.de AB
+.br
+.di
+.ul 0
+.ce 0
+.nr 1T 1
+.nr IK 1
+.nr KI 1
+.di WB
+.rs
+.nr AJ 1
+.ce 1
+.ft 2
+.if n .ul
+.ll \\n(LLu
+.ie \\n(.$ \{\
+.	if !"\\$1"-" .if !"\\$1"no" \\$1
+.	if !"\\$1"-" .if !"\\$1"no" .sp\}
+.el \{\
+ABSTRACT
+.sp\}
+.hy \\n(HY
+.ul 0
+.ce 0
+.fi
+.ft 1
+.nr OJ \\n(.i
+.in +\\n(.lu/12u
+.ll -\\n(.lu/12u
+.br
+.ps \\n(PS
+.ie \\n(VS>=41 .vs \\n(VSu
+.el .vs \\n(VSp
+.ti +\\n(PIu
+..
+.	\"AE - end of an abstract
+.de AE
+.br
+.di
+.ll \\n(LLu
+.ps \\n(PS
+.ie \\n(VS>=41 .vs \\n(VSu
+.el .vs \\n(VSp
+.nr 1T 0
+.nr IK 0
+.in \\n(OJu
+.nr AJ 0
+.di
+.ce 0
+.if \\n(ST=2 .SY
+.if \\n(ST<3 .rm SY
+..
+.	\"S2 - release paper style
+.	\"SY - cover sheet of released paper
+.de SY
+.ll \\n(LLu
+.ns
+.if \\n(TV .TX
+.if \\n(AV .AX
+.rs
+.ce 0
+.nf
+.sp 3
+.ls 1
+.pn 2
+.WB
+.ls 
+.sp 3v
+\\*(DY
+.sp |9i
+.if \\n(FP .FA
+.FG
+.if \\n(GA=1 .nr GA 2
+.fi
+..
+.	\"S2 - first text page, released paper format
+.de S2
+.ce 0
+.br
+.SY
+.rm SY
+.bp 1
+.if \\n(TV .TX
+.if \\n(AV .AX
+.rs
+.ce 0
+.ft 1
+.ad \\n(SJ
+..
+.	\"S0- mike lesk conserve paper style
+.de S0
+.ce 0
+.br
+.ll \\n(LLu
+.if \\n(TV+\\n(AV .ns
+.if \\n(TV .TX
+.if \\n(AV .AX
+.if \\n(TV+\\n(AV .rs
+.ce 0
+.if \\n(TV .sp 2
+.ls 1
+.if \\n(FP \{\
+.	FJ
+.	nf
+.	FG
+.	fi
+.	FK
+.	nr FP 0\}
+.nf
+.WB
+.ls
+.fi
+.ad \\n(SJ
+..
+.	\"S3 - CSTR style
+.de S3
+.rs
+.sp |2.25i
+.ce 1000
+.I1
+.if \\n(NA>1 \{\
+.	sp .5
+.	I2\}
+.if \\n(NA>2 \{\
+.	sp .5
+.	I3\}
+.if \\n(NA>3 \{\
+.	sp .5
+.	I4\}
+.if \\n(NA>4 \{\
+.	sp .5
+.	I5\}
+.if \\n(NA>5 \{\
+.	sp .5
+.	I6\}
+.if \\n(NA>6 \{\
+.	sp .5
+.	I7\}
+.if \\n(NA>7 \{\
+.	sp .5
+.	I8\}
+.if \\n(NA>8 \{\
+.	sp .5
+.	I9\}
+.sp |4i
+.	\"check how long title is: can space extra .25 inch if short
+.di EZ
+.WT
+.di
+.if \\n(dn<1.5v .if \\n(NA=1 .sp .25i
+.ft 1
+Computing Science Technical Report No. \\*(MN
+.sp
+.if t .ft 3
+.if n .ul 100
+.ps 12
+.vs 15p
+.hy 0
+.WT
+.hy \\n(HY
+.ft 1
+.if n .ul 0
+.ps 10
+.vs 12p
+.sp
+.ft 1
+.A1
+.A2
+.A3
+.A4
+.A5
+.A6
+.A7
+.A8
+.A9
+.ce 0
+.sp |8.5i
+.ce 0
+\\*(DY
+.DZ
+.bp 0
+.ft 1
+.S2
+..
+.	\"SG - signature
+.de SG
+.br
+.KS
+.in +2u*\\n(.lu/3u
+.sp 4
+.A1
+.if \\n(NA>1 .sp 4
+.A2
+.if \\n(NA>2 .sp 4
+.A3
+.if \\n(NA>3 .sp 4
+.A4
+.if \\n(NA>4 .sp 4
+.A5
+.if \\n(NA>5 .sp 4
+.A6
+.if \\n(NA>6 .sp 4
+.A7
+.if \\n(NA>7 .sp 4
+.A8
+.if \\n(NA>8 .sp 4
+.A9
+.in
+.nf
+.if \\n(.$<1 .G9
+.sp -1
+.if \\n(.$>=1 \\$1
+.if \\n(.$>=2 \\$2
+.if \\n(.$>=3 \\$3
+.if \\n(.$>=4 \\$4
+.if \\n(.$>=5 \\$5
+.if \\n(.$>=6 \\$6
+.if \\n(.$>=7 \\$7
+.if \\n(.$>=8 \\$8
+.if \\n(.$>=9 \\$9
+.fi
+.br
+.KE
+..
+.	\"Tables.  TS - table start, TE - table end
+.de TS
+.br
+.if !\\n(1T .RT
+.ul 0
+.ti \\n(.iu
+.if t .sp 0.5
+.if n .sp
+.if \\$1H .TQ
+.nr IX 1
+..
+.de TQ
+.di TT
+.nr IT 1
+..
+.de TH
+.if \\n(.d>0.5v \{\
+.	nr T. 0
+.	T# 0\}
+.di
+.nr TQ \\n(.i
+.nr HT 1
+.in 0
+.mk #a
+.mk #b
+.mk #c
+.mk #d
+.mk #e
+.mk #f
+.TT
+.in \\n(TQu
+.mk #T
+..
+.de TE
+.nr IX 0
+.if \\n(IT .if !\\n(HT \{\
+.	di
+.	nr EF \\n(.u
+.	nf
+.	TT
+.	if \\n(EF .fi\}
+.nr IT 0
+.nr HT 0
+.if n .sp 1
+.if t .sp 0.5
+.rm a+ b+ c+ d+ e+ f+ g+ h+ i+ j+ k+ l+ n+ m+
+.rr 32 33 34 35 36 37 38 40 79 80 81 82
+.rr a| b| c| d| e| f| g| h| i| j| k| l| m|
+.rr a- b- c- d- e- f- g- h- i- j- k- l- m-
+..
+.so \*(sd/tmac.skeep
+.de EQ  \"equation, breakout and display
+.nr EF \\n(.u
+.rm EE
+.nr LE 1	\" 1 is center
+.ds EL \\$1
+.if "\\$1"L" \{\
+.	ds EL \\$2
+.	nr LE 0\}
+.if "\\$1"C" .ds EL \\$2
+.if "\\$1"R" \{\
+.	ds EL \\$2 \" 2 is right adjust
+.	nr LE 2\}
+.if "\\$1"I" \{\
+.	nr LE 0
+.	if "\\$3"" .ds EE \\h'|10n'
+.	el .ds EE \\h'\\$3'
+.	ds EL \\$2\}
+.if \\n(YE .nf
+.di EZ
+..
+.de EN  \" end of a displayed equation
+.br
+.di
+.rm EZ
+.nr ZN \\n(dn
+.if \\n(ZN .if !\\n(YE .LP
+.if !\\n(ZN .if !"\\*(EL"" .nr ZN 1
+.if \\n(ZN \{\
+.	ie "\\n(.z"" \{\
+.		if t .if !\\n(nl=\\n(PE .sp .5
+.		if n .if !\\n(nl=\\n(PE .sp 1\}
+.	el \{\
+.		if t .if !\\n(.d=\\n(PE .sp .5
+.		if n .if !\\n(.d=\\n(PE .sp 1\}\}
+'pc
+.if \\n(BD .nr LE 0 \" don't center if block display or mark/lineup
+.if \\n(MK \{\
+.	if \\n(LE=1 .ds EE \\h'|10n'
+.	nr LE 0\}
+'lt \\n(.lu
+.if !\\n(EP .if \\n(ZN \{\
+.	if \\n(LE=1 .tl \(ts\(ts\\*(10\(ts\\*(EL\(ts
+.	if \\n(LE=2 .tl \(ts\(ts\(ts\\*(10\\*(EL\(ts
+.	if !\\n(LE \{\
+.		if !\\n(BD .tl \(ts\\*(EE\\*(10\(ts\(ts\\*(EL\(ts
+.		if \\n(BD .if \\n(BD<\\w\(ts\\*(10\(ts .nr BD \\w\(ts\\*(10\(ts
+.		if \\n(BD \!\\*(10\\t\\*(EL\}\}
+.if \\n(EP .if \\n(ZN \{\
+.	if \\n(LE=1 .tl \(ts\\*(EL\(ts\\*(10\(ts\(ts
+.	if \\n(LE=2 .tl \(ts\\*(EL\(ts\(ts\\*(10\(ts
+.	if !\\n(LE \{\
+.		if !\\n(BD .tl \(ts\\*(EL\\*(EE\\*(10\(ts\(ts\(ts
+.		if \\n(BD .if \\n(BD<\\w\(ts\\*(10\(ts .nr BD \\w\(ts\\*(10\(ts
+.		if \\n(BD \!\\h'-\\\\n(.iu'\\*(EL\\h'|0'\\*(10\}\}
+'lt \\n(LLu
+'pc %
+.if \\n(YE .if \\n(EF .fi
+.if t .if \\n(ZN .sp .5
+.if n .if \\n(ZN .sp
+.ie "\\n(.z"" .nr PE \\n(nl
+.el .nr PE \\n(.d
+..
+.de PS	\" start picture
+.	\" $1 is height, $2 is width, both in inches
+.if \\$1>0 .sp .35
+.ie \\$1>0 .nr $1 \\$1
+.el .nr $1 0
+.in (\\n(.lu-\\$2)/2u
+.ne \\$1
+..
+.de PE	\" end of picture
+.in
+.if \\n($1>0 .sp .65
+..
+.			\" .P1/.P2 macros for programs
+.
+.nr XP 1	\" delta point size for program
+.nr XV 1p	\" delta vertical for programs
+.nr XT 8	\" delta tab stop for programs
+.nr DV .5v	\" space before start of program
+.
+.de P1
+.nr P1 .4i	\" program indent in .P1
+.nr OI .4i
+.if \\n(.$ .nr P1 \\$1
+.br
+.nr v \\n(.v
+.di p1
+.in \\n(P1u
+.nf
+.ps -\\n(XP
+.vs -\\n(XVu
+.ft CW
+.nr t \\n(XT*\\w'x'u
+.ta 1u*\\ntu 2u*\\ntu 3u*\\ntu 4u*\\ntu 5u*\\ntu 6u*\\ntu 7u*\\ntu 8u*\\ntu 9u*\\ntu 10u*\\ntu 11u*\\ntu 12u*\\ntu 13u*\\ntu 14u*\\ntu
+..
+.
+.de P2
+.br
+.ps \\n(PS
+.vs \\n(VSp
+.vs \\nvu
+.ft 1
+.in
+.di
+.br
+.sp \\n(DVu
+.br
+.if \\n(.$=0 .ne \\n(dnu  \" -\\n(DVu
+.nf
+.p1
+.sp \\n(DVu
+.br
+.fi
+..
+.
+.de ME
+.nr SJ \\n(.j
+.if \\n(LL .nr LT \\n(LL
+.nr YE 1
+.if !\\n(PO .nr PO \\n(.o
+.if \\n(mo-0 .ds MO January
+.if \\n(mo-1 .ds MO February
+.if \\n(mo-2 .ds MO March
+.if \\n(mo-3 .ds MO April
+.if \\n(mo-4 .ds MO May
+.if \\n(mo-5 .ds MO June
+.if \\n(mo-6 .ds MO July
+.if \\n(mo-7 .ds MO August
+.if \\n(mo-8 .ds MO September
+.if \\n(mo-9 .ds MO October
+.if \\n(mo-10 .ds MO November
+.if \\n(mo-11 .ds MO December
+.if \\n(dw-0 .ds DW Sunday
+.if \\n(dw-1 .ds DW Monday
+.if \\n(dw-2 .ds DW Tuesday
+.if \\n(dw-3 .ds DW Wednesday
+.if \\n(dw-4 .ds DW Thursday
+.if \\n(dw-5 .ds DW Friday
+.if \\n(dw-6 .ds DW Saturday
+.nr yP (\\n(yr+2000)/100)
+.nr yD (\\n(yr%100
+.af yD 01
+.if "\\*(DY"" .ds DY \\*(MO \\n(dy, \\n(yP\\n(yD
+.if "\\*(CF"" .if n .ds CF "\\*(DY
+..
+.	\"EM end up macro - process left over keep-release
+.de EM
+.br
+.if \\n(AJ .tm Syntax error: no .AE
+.if \\n(IF .ab Missing .FE somewhere
+.if t .if \\n(TB=0 .wh -1p CM
+.if \\n(TB \{\&\c
+'	bp
+.	NP
+.	ch CM 160\}
+..
+.	\"NP new page
+.de NP
+.rr PE
+.if \\n(FM+\\n(HM>=\\n(.p \{\
+.	tm Margins bigger than page length.
+.	ab
+.	ex\}
+.if t .CM
+.if !\\n(HM .nr HM 1i
+'sp \\n(HMu/2u
+.ev 1
+.nr PX \\n(.s
+.nr PF \\n(.f
+.nr PV \\n(.v
+.lt \\n(LTu
+.ps \\n(PS
+.vs \\n(PS+2
+.ft 1
+.if \\n(PO .po \\n(POu
+.PT
+.ps \\n(PX
+.vs \\n(PVu
+.ft \\n(PF
+.ev
+'sp |\\n(HMu
+.nr XX 0 1
+.nr YY 0-\\n(FMu
+.ch FO 16i
+.ch FX 17i
+.ch FO \\n(.pu-\\n(FMu
+.ch FX \\n(.pu-\\n(FMu
+.if \\n(MF .FV
+.nr MF 0
+.mk
+.os
+.ev 1
+.if !\\n(TD .if \\n(TC<5  .XK
+.nr TC 0
+.ns
+.ev
+.nr TQ \\n(.i
+.nr TK \\n(.u
+.if \\n(IT \{\
+.	in 0
+.	nf
+.	TT
+.	in \\n(TQu
+.	if \\n(TK .fi\
+\}
+.mk #T
+....if t .if \\n(.o+\\n(LL>7.75i .tm Offset + line length exceeds 7.75 inches, too wide
+..
+.de XK
+.nr TD 1
+.nf
+.ls 1
+.in 0
+.rn KJ KL
+.KL
+.rm KL
+.if "\\n(.z"KJ" .di
+.nr TB 0
+.if "\\n(.z"KJ" .nr TB 1
+.br
+.in
+.ls
+.fi
+.if (\\n(nl+1v)>(\\n(.p-\\n(FM) \{\
+.	if \\n(NX>1 .RC
+.	if \\n(NX<1 .bp\}
+.nr TD 0
+..
+.de KD
+.nr KM 0
+.if "\\n(.z"" .if \\$2>0 .if \\n(nl>\\n(HM \{\
+.	if (\\n(nl+1v)<(\\n(.p-\\n(FM) .di KJ \" full page figure must have new page
+.	sp 15i\}
+.if "\\n(.z"" .if \\n(nl>\\n(HM .if \\$2=0 .if (\\n(nl+1v)>(\\n(.p-\\n(FM) .sp 15i
+.if "\\n(.z"KJ" .nr KM 1 \" KM is 1 if in a rediversion of keeps
+.if \\n(KM>0 \!.KD \\$1 \\$2
+.nr KR \\n(.t
+.if \\n(nl<=\\n(HM .nr KR 32767
+.if \\n(KM=0 \{\
+.	if \\n(KR<\\$1 \{\
+.		di KJ
+.		nr KM 1\}
+.	if \\$2>0 .if (\\n(nl+1v)>(\\n(.p-\\n(FM) .sp 15i\}
+.rs
+.if \\n(KM=0 .if \\$2>0 .sp \\n(.tu-\\$1u
+..
+.de PT
+.lt \\n(LLu
+.pc %
+.nr PN \\n%
+.if \\n%-1 .tl '\\*(LH'\\*(CH'\\*(RH'
+.lt \\n(.lu
+..
+.	\"FO - footer of page
+.de FO
+.rn FO FZ
+.if \\n(IT>0 \{\
+.	nr T. 1
+.	if \\n(FC=0  .T# 1
+.	br\}
+.nr FC +1
+.if \\n(NX<2 .nr WF 0
+.nr dn 0
+.if \\n(FC<=1 .if \\n(XX .XF
+.rn FZ FO
+.nr MF 0
+.if \\n(dn  .nr MF 1
+.if !\\n(WF \{\
+.	nr YY 0-\\n(FMu
+.	ch FO \\n(YYu\}
+.if !\\n(dn .nr WF 0
+.if \\n(FC<=1 .if \\n(XX=0 \{\
+.	if \\n(NX>1 .RC
+.	if \\n(NX<1 'bp\}
+.nr FC -1
+.if \\n(ML>0 .ne \\n(MLu
+..
+.	\"2C - begin double column
+.de 2C
+.MC \" default MC is double column
+..
+.de MC \" multiple columns- arg is line length
+.nr L1 \\n(LL*7/15
+.if \\n(CW>=0 .nr L1 \\n(CWu
+.if \\n(.$ .nr L1 \\$1n
+.if \\n(GW>=0 .nr GW \\n(GWu
+.if \\n(.$>1 .nr GW \\$2n
+.nr NQ \\n(LL/\\n(L1
+.if \\n(NQ<1 .nr NQ 1
+.if \\n(NQ>2 .if (\\n(LL%\\n(L1)=0 .nr NQ -1
+.if !\\n(1T \{\
+.	BG
+.	if n .sp 4
+.	if t .sp 2\}
+.if \\n(NX=0 .nr NX 1
+.if !\\n(NX=\\n(NQ \{\
+.	RT
+.	if \\n(NX>1 .bp
+.	mk
+.	nr NC 1
+.	po \\n(POu\}
+.if \\n(NQ>1 .hy \\n(HY
+.nr NX \\n(NQ
+.if \\n(NX>1 .nr CW \\n(L1
+.ll \\n(L1u
+.nr FL \\n(L1u*11u/12u
+.if \\n(NX>1 .if \\n(GW<0 .nr GW (\\n(LL-(\\n(NX*\\n(L1))/(\\n(NX-1)
+.nr RO \\n(L1+\\n(GW
+.ns
+..
+.de RC
+.ie \\n(NC>=\\n(NX .C2
+.el .C1
+..
+.de C1
+.rt
+.po +\\n(ROu
+.nr NC +1
+.if \\n(NC>\\n(NX .nr NC 1
+.nr XX 0 1
+.nr YY 0-\\n(FMu
+.if \\n(MF .FV
+.ch FX \\n(.pu-\\n(FMu
+.ev 1
+.if \\n(TB .XK
+.nr TC 0
+.ev
+.nr TQ \\n(.i
+.if \\n(IT \{\
+.	in 0
+.	TT
+.	in \\n(TQu\}
+.mk #T
+.ns
+..
+.de C2
+.po \\n(POu
+.nr NC +1
+.if \\n(NC>\\n(NX .nr NC 1
+'bp
+..
+.	\"1C - return to single column format
+.de 1C
+.MC \\n(LLu
+.hy \\n(HY
+..
+.de MH
+Bell Laboratories
+Murray Hill, New Jersey 07974
+..
+.de PY
+Bell Laboratories
+Piscataway, New Jersey 08854
+..
+.de BT
+.nr PX \\n(.s
+.nr PF \\n(.f
+.ft 1
+.ps \\n(PS
+'lt \\n(LTu
+.po \\n(POu
+.if \\n%>0 .tl \(ts\\*(LF\(ts\\*(CF\(ts\\*(RF\(ts
+.ft \\n(PF
+.ps \\n(PX
+..
+.	\"PP - paragraph
+.de PP
+.RT
+.if \\n(1T .sp \\n(PDu
+.ti +\\n(PIu
+..
+.	\"SH - (unnumbered) section heading
+.de SH
+.ti \\n(.iu
+.RT
+.ie \\n(1T .sp 1
+.el .BG
+.RT
+.ne 4
+.ft 3
+.if n .ul 1000
+..
+.	\"NH - numbered heading
+.de N{
+.RT
+.ie \\n(1T .sp 1
+.el .BG
+.RT
+.ne 4
+.ft 3
+.if n .ul 1000
+.nr NS \\$1
+.if !\\n(.$ .nr NS 1
+.if !\\n(NS .nr NS 1
+.nr H\\n(NS +1
+.if !\\n(NS-4 .nr H5 0
+.if !\\n(NS-3 .nr H4 0
+.if !\\n(NS-2 .nr H3 0
+.if !\\n(NS-1 .nr H2 0
+.if !\\$1 .if \\n(.$ .nr H1 1
+.ds SN \\n(H1.
+.ti \\n(.iu
+.if \\n(NS-1 .as SN \\n(H2.
+.if \\n(NS-2 .as SN \\n(H3.
+.if \\n(NS-3 .as SN \\n(H4.
+.if \\n(NS-4 .as SN \\n(H5.
+..
+.de NH
+.N{ \\$1
+\\*(SN
+..
+.	\"BG - begin, execute at first PP
+.de BG
+.br
+.ME
+.rm ME
+.di
+.ce 0
+.nr KI 0
+.hy \\n(HY
+.nr 1T 1
+.nr CS 0
+.S\\n(ST
+.rm S0 S1 S2 S3 OD OK TX AX WT CS TM IM MF MR RP I1 I2 I3 I4 I5 CB E1 E2
+.de TL
+.ft 3
+.sp
+.if n .ul 100
+.ce 100
+.ps +2
+\\..
+.de AU
+.ft 2
+.if n .ul 0
+.ce 100
+.sp
+.NL
+\\..
+.de AI
+.ft 1
+.ce 100
+.if n .ul 0
+.if n .sp
+.if t .sp .5
+.NL
+\\..
+.RA
+.rm RA
+.rn FJ FS
+.rn FK FE
+.nf
+.ev 1
+.ps \\n(PS-2
+.vs \\n(.s+2p
+.ev
+.if !\\n(KG .nr FP 0 
+.if \\n(GA>1 .if \\n(KG=0 .nr GA 0 \" next UNIX must be flagged.
+.nr KG 0 
+.if \\n(FP \{\
+.	FS
+.	FG
+.	FE\}
+.br
+.if n .if \\n(TV .sp 2
+.if t .if \\n(TV .sp 1
+.fi
+.ll \\n(LLu
+.ev 1
+.if !\\n(FL .nr FL \\n(LLu*11u/12u
+.ll \\n(FLu
+.ev
+..
+.de RA \"redefine abstract macros
+.de AB
+.br
+.if !\\n(1T .BG
+.ce 1
+.sp 1
+.ie \\n(.$ \{\
+.	if !"\\$1"-" .if !"\\$1"no" \{\
+\\$1
+.sp\}\}
+.el \{\
+ABSTRACT
+.sp\}
+.sp 1
+.nr AJ 1
+.in +\\n(.lu/12u
+.ll -\\n(.lu/12u
+.RT
+\\..
+.de AE
+.nr AJ 0
+.br
+.in 0
+.ll \\n(LLu
+.ie \\n(VS>=41 .vs \\n(VSu
+.el .vs \\n(VSp
+\\..
+..
+.	\"IP - indented paragraph
+.de IP
+.RT
+.if !\\n(IP .nr IP +1
+.ie \\n(ID>0 .sp \\n(IDu
+.el .sp \\n(PDu
+.nr IU \\n(IR+1
+.if \\n(.$>1 .nr I\\n(IU \\$2n+\\n(I\\n(IRu
+.if \\n(I\\n(IU=0 .nr I\\n(IU \\n(PIu+\\n(I\\n(IRu
+.in \\n(I\\n(IUu
+.nr TY \\n(TZ-\\n(.i
+.nr JQ \\n(I\\n(IU-\\n(I\\n(IR
+.ta \\n(JQu \\n(TYuR
+.if \\n(.$ \{\
+.ti \\n(I\\n(IRu
+\&\\$1\t\c\}
+..
+.	\"LP - left aligned (block) paragraph
+.de LP
+.ti \\n(.iu
+.RT
+.if \\n(1T .sp \\n(PDu
+..
+.de QP
+.ti \\n(.iu
+.RT
+.if \\n(1T .sp \\n(PDu
+.ne 1.1
+.nr QP 1
+.in +\\n(QIu
+.ll -\\n(QIu
+.ti \\n(.iu
+..
+.	\"IE - synonym for .LP
+.de IE
+.LP
+..
+.	\"RS - prepare for double indenting
+.de RS
+.nr IS \\n(IP
+.RT
+.nr IP \\n(IS
+.nr IU \\n(IR
+.nr IR +1
+.if !\\n(I\\n(IR .nr I\\n(IR \\n(I\\n(IU+\\n(PIu
+.in \\n(I\\n(IRu
+.nr TY \\n(TZ-\\n(.i
+.ta \\n(TYuR
+..
+.	\"RE - retreat to the left
+.de RE
+.nr IS \\n(IP
+.RT
+.nr IP \\n(IS
+.if \\n(IR>0 .nr IR -1
+.in \\n(I\\n(IRu
+..
+.de TC
+.nr TZ \\n(.lu
+.if \\n(.$ .nr TZ \\$1n
+.ta \\n(TZuR
+..
+.de TD
+.LP
+.nr TZ 0
+..
+.	\"CM - cut mark
+.de CM
+.po 0
+.lt 7.6i
+.ft 1
+.ps 10
+.vs 4p
+.if "\\*(.T"aps" .tl '--''--'
+.po
+.vs
+.lt
+.ps
+.ft
+..
+.		\" fontname(CW) fontstr(\f(CW) first_arg goes_after goes_before
+.de OF		\" this is completely WRONG if any argument contains "'s
+.nr PQ \\n(.f
+.hy 0
+.if t .if "\\$3"" .ft \\$1
+.if t .if !"\\$3"" \{\
+\&\\$5\\$2\\$3\\f\\n(PQ\\$4
+.hy \\n(HY\}
+.if n \{\
+.	if \\n(.$=5 \&\\$5
+.	ie "\\$3"" .ul 1000
+.	el .ul 1
+.	if \\n(.$=3 \&\\$3
+.	if \\n(.$>3 \&\\$3\\c
+.	if \\n(.$>3 \&\\$4
+.	hy \\n(HY\}
+..
+.	\"B - bold font
+.de B
+.OF 3 \\f3 "\\$1" "\\$2" "\\$3"
+..
+.de BI	\" bold italic -- only on 202
+.OF 4 \\f4 "\\$1" "\\$2" "\\$3"
+..
+.	\"R - Roman font
+.de R
+.nr PQ \\n(.f
+.ft 1
+.ie \\n(.$>0 \&\\$1\f\\n(PQ\\$2
+.el .if n .ul 0
+..
+.	\"I - italic font
+.de I
+.OF 2 \\f2 "\\$1" "\\$2" "\\$3"
+..
+.	\"CW - constant width font
+.de CW
+.nr PQ \\n(.f
+.if t .if \\n(.$>0 \%\&\\$3\f(CW\\$1\f\\n(PQ\&\\$2
+.if t .if \\n(.$=0 .OF CW \\f(CW "\\$1" "\\$2" "\\$3"
+.if n .OF CW \\f(CW "\\$1" "\\$2" "\\$3"
+..
+.	\"TA - tabs set in ens or chars
+.de TA
+.ta \\$1n \\$2n \\$3n \\$4n \\$5n \\$6n \\$7n \\$8n \\$9n
+..
+.	\"SM - make smaller size
+.de SM
+.ie \\n(.$ \&\\$3\s-2\\$1\s0\\$2
+.el .ps -2
+..
+.	\"LG - make larger size
+.de LG
+.ps +2
+..
+.	\"NL - return to normal size
+.de NL
+.ps \\n(PS
+..
+.	\"DA - force date; ND - no date or new date.
+.de DA
+.if \\n(.$ .ds DY \\$1 \\$2 \\$3 \\$4
+.ds CF \\*(DY
+..
+.de ND
+.ME
+.rm ME
+.ds DY \\$1 \\$2 \\$3 \\$4
+.rm CF
+..
+.de FN
+.FS
+..
+.	\"FS - begin footnote
+.de FJ
+'ce 0
+.nr IA \\n(IP
+.nr IB \\n(.i
+.ev1
+.ll \\n(FLu
+.da FF
+.br
+.if \\n(IF \{\
+.	tm Footnote within footnote-illegal.
+.	ab\}
+.nr IF 1
+.if !\\n+(XX-1 .FA
+..
+.	\"FE - footnote end
+.de FK
+.br
+.in 0
+.nr IF 0
+.di
+.ev
+.if !\\n(XX-1 .nr dn +\\n(.v
+.nr YY -\\n(dn
+.if !\\n(NX .nr WF 1
+.if \\n(dl>\\n(CW .nr WF 1
+.ie (\\n(nl+\\n(.v)<=(\\n(.p+\\n(YY) .ch FO \\n(YYu
+.el \{\
+.	if \\n(nl>(\\n(HM+1.5v) .ch FO \\n(nlu+\\n(.vu
+.	if \\n(nl+\\n(FM+1v>\\n(.p .ch FX \\n(.pu-\\n(FMu+2v
+.	if \\n(nl<=(\\n(HM+1.5v) .ch FO \\n(HMu+(4u*\\n(.vu)\}
+.nr IP \\n(IA
+'in \\n(IBu
+..
+.\"	First page footer.
+.de FS
+.ev1
+.br
+.ll \\n(FLu
+.da FG
+..
+.de FE
+.br
+.di
+.nr FP \\n(dn
+.if !\\n(1T .nr KG 1 \"not in abstract repeat next page.
+.if "\\n(.z"OD" .nr KG 0 \" if in OK, don't repeat.
+.ev
+..
+.de FA
+.if n __________________________
+.if t \l'1i'
+.br
+..
+.de FV
+.FS
+.nf
+.ls 1
+.FY
+.ls
+.fi
+.FE
+..
+.de FX
+.if \\n(XX \{\
+.	di FY
+.	ns\}
+..
+.de XF
+.if \\n(nlu+1v>(\\n(.pu-\\n(FMu) .ch FX \\n(nlu+1.9v
+.ev1
+.nf
+.ls 1
+.FF
+.rm FF
+.nr XX 0 1
+.br
+.ls
+.di
+.fi
+.ev
+..
+.de FL
+.ev1
+.nr FL \\$1n
+.ll \\$1
+.ev
+..
+.de HO
+Bell Laboratories
+Holmdel, New Jersey 07733
+..
+.de WH
+Bell Laboratories
+Whippany, New Jersey 07981
+..
+.de IH
+Bell Laboratories
+Naperville, Illinois 60540
+..
+.de UL \" underline argument, don't italicize
+.ie t \\$1\l'|0\(ul'\\$2
+.el .I "\\$1" "\\$2"
+..
+.de UX
+.ie \\n(GA \\$2\s-1UNIX\s0\\$1
+.el \{\
+.ie n \{\\$2UNIX\\$1*
+.FS
+* UNIX is a
+.ie \\$3=1 Footnote
+.el registered trademark
+of X/Open.
+.FE\}
+.el \\$2\s-1UNIX\\s0\\$1\\f1\(rg\\fP
+.nr GA 1\}
+..
+.de US
+the
+.UX
+operating system\\$1
+..
+.de QS
+.br
+.LP
+.in +\\n(QIu
+.ll -\\n(QIu
+..
+.de QE
+.br
+.ll +\\n(QIu
+.in -\\n(QIu
+.LP
+..
+.de B1 \" begin boxed stuff
+.br
+.di BB
+.nr BC 0
+.if "\\$1"C" .nr BC 1
+.nr BE 1
+..
+.de B2 \" end boxed stuff
+.br
+.nr BI 1n
+.if \\n(.$>0 .nr BI \\$1n
+.di
+.nr BE 0
+.nr BW \\n(dl
+.nr BH \\n(dn
+.ne \\n(BHu+\\n(.Vu
+.nr BQ \\n(.j
+.nf
+.ti 0
+.if \\n(BC>0 .in +(\\n(.lu-\\n(BWu)/2u
+.in +\\n(BIu
+.ls 1
+.BB
+.ls
+.in -\\n(BIu
+.nr BW +2*\\n(BI
+.sp -1
+\l'\\n(BWu\(ul'\L'-\\n(BHu'\l'|0\(ul'\h'|0'\L'\\n(BHu'
+.nr BW -2*\\n(BI
+.if \\n(BC>0 .in -(\\n(.lu-\\n(BWu)/2u
+.if \\n(BQ .fi
+.br
+..
+.de AT
+.nf
+.sp
+.ne 2
+Attached:
+..
+.de CT
+.nf
+.sp
+.ne 2
+.ie \\n(.$ Copy to \\$1:
+.el Copy to:
+..
+.de BX
+.ie t \(br\|\\$1\|\(br\l'|0\(rn'\l'|0\(ul'
+.el \(br\\kA\|\\$1\|\\kB\(br\v'-1v'\h'|\\nBu'\l'|\\nAu'\v'1v'\l'|\\nAu'
+..
+.IZ
+.rm IZ
+.de [
+[
+..
+.de ]
+]
+..
diff --git a/tmac/tmac.scover b/tmac/tmac.scover
new file mode 100644
index 00000000..1e15883e
--- /dev/null
+++ b/tmac/tmac.scover
@@ -0,0 +1,330 @@
+.	\"OK - "other keywords" for cover sheet.
+.de OK
+.br
+.di
+.di OD
+.nf
+.ft 3
+..
+.	\"CS - spew out cover sheet
+.de CS
+.br
+.if \\n(AJ>0 .tm Abstract not finished, AE assumed.
+.if \\n(AJ>0 .AE
+.di
+.if t .po 0.5i
+.ft 2
+.nr IB \\n(.b
+.ft P
+.nr K1 1
+.if t .sp |.4i
+.if t .lg
+.ll 7.0i
+.vs 12p
+.nf
+.if t \{
+.if \\n(ZZ<1 \h'7n'\s24\(FA\s12\f3  Bell Laboratories             \s16\f1Cover Sheet for Technical Memorandum
+.if \\n(ZZ>=1 \h'7n'\s24\(FA\s12\f3  Bell Laboratories             \s16\f1Cover Sheet for Technical Memorandum\}
+.if n Bell Laboratories             Cover Sheet for Technical Memorandum
+.if t .sp .5v
+.if n .sp
+.if t \s6\l'7i'
+.fi
+.ps 9
+.ft 2
+.if \\n(.$<=6 The information contained herein is for the use of employees of Bell Laboratories and is not for publication.  (See GEI 13.9-3)\p
+.if \\n(.$>6 Warning: studying this document may cause drowsiness.  Do not read before driving or operating machinery.  (See GEI 13.9-3)\p
+.ft 1
+.nf
+.if \\n(IB>0 .bd 2 \\n(IB
+.vs 5p
+.if t \s6\l'7i'
+.vs
+.if t .sp .5v
+.if n .sp
+.if t .ll 4.0i
+.if n .ll 30
+.if t .po 1.0i
+.ps 9
+.if t .ta 0.5i 4.5i 4.9i
+.if n .ta 9 39 46
+.mk
+Title- \f3\s10
+.rt
+.if t .in 0.5i
+.if n .in 10
+.hy 0
+.WT
+.hy 14
+.br
+.rt
+.ll \\n(LLu
+.if t .in 4.5i
+.if n .in 40
+.nf
+\s9\f1Date- \s10\f3
+.rt
+.if t .in 4.9i
+.if n .in 47
+\\*(DY
+.sp
+.if t .ti 4.5i
+.if n .ti 40
+.mk
+\s9\f1TM- \f3\s10
+.br
+.rt
+.CZ \\*(MN
+.in 0
+.if n .sp |\\n(.hu+1v
+.if t .sp |\\n(.hu+.3v
+.mk
+\s9\f1Other Keywords- \f3
+.rt
+.if t .in 1.1i
+.if n .in 20
+.OD
+.in 0
+.if t .sp .3i
+.if n .sp 3
+.ps 9
+.if t .ta 1.8i 3.3i 4.3i
+.if n .ta 19 34 44
+.ft 1
+.mk
+.fi
+.ll 6.7i
+.in 4.6i
+.ti 0
+.nr SJ \\n(.j
+.na
+Author	Location	Extension	Charging Case- \s10\f3\\*(CA
+.ps 10
+.ti 4.3i
+\f1\s9Filing Case- \s10\f3\\*(CC
+.nf
+.in 0
+.ad \\n(SJ
+.rt
+.sp 1
+.CB 1
+.if \\n(NA-1 .CB 2
+.if \\n(NA-2 .CB 3
+.if \\n(NA-3 .CB 4
+.if \\n(NA-4 .CB 5
+.if \\n(NA-5 .CB 6
+.if \\n(NA-6 .CB 7
+.if \\n(NA-7 .CB 8
+.if \\n(NA-8 .CB 9
+.ft 1
+.rm OK OD R1 E1 R2 E2 R3 E3 R4 E4 AB AE
+.ds K1 \\$1
+.ds K2 \\$2
+.ds K3 \\$3
+.ds K4 \\$4
+.ds K5 \\$5
+.ds K6 \\$6
+.if t .wh 9.8i CG
+.if n .wh 9i CG
+.ch FO 16i
+.if t .sp .4i
+.if n .sp 2
+.ls 1
+.pn 2
+.WB
+.rm WB
+.ls
+.br
+.if 9.7i-\\n(nlu-\\n(FPu-1v>0 .sp 9.7i-\\n(nlu-\\n(FPu-1v
+.if \\n(FP>0 .FA
+.FG
+.nr K1 0
+.if \\n(GA=1 .nr GA 2
+.if \\n(VS>40 .vs \\n(VSu
+.if \\n(VS<=39 .vs \\n(VSp
+.bp 1
+.rm CG
+.if t .po \\n(POu
+..
+.	\" CG - write bottom box on cover sheet
+.de CG
+.if t .po 0.5i
+.vs 12p
+.ch FO 12i
+.ch FX 12i
+.if t .ll 7i
+.br
+.if t \l'7i'
+.if t .ta 1.4i 2.8i 4.2i
+.if n .ta 14 29 44
+.if t .sp 8p
+.if n .sp
+Pages Text   \\*(K1	Other   \\*(K2	Total   \\*(K3
+.if t .sp 8p
+.if n .sp 
+.if t .po .5i
+.if t No. Figures   \\*(K4	No. Tables   \\*(K5	No. Refs.   \\*(K6	\b'|||||\ \ '
+.if n No. Figures   \\*(K4	No. Tables   \\*(K5	No. Refs.   \\*(K6
+.br
+.if t .po .5i
+.if t \l'7i'
+.ps 7
+.br
+.if n .sp
+.rm K1
+.rm K2
+.rm K3
+.rm K4
+.rm K5
+.rm K6
+.if t .po .5i
+.if t .tl 'E-1932-U (6-73)'SEE REVERSE SIDE FOR DISTRIBUTION LIST''
+.if n .tl 'E-1932-U (6-73)  SEE REVERSE SIDE FOR DISTRIBUTION LIST'''
+.if t .po 0.5i
+.ll \\n(LLu
+.ps 10
+.ch CG 12i
+.if \\n(K1>0 .bp
+..
+.	\"CB - help with cover sheet
+.de CB
+.br
+.mk
+.A\\$1
+.rt
+\&	\\*(R\\$1	\\*(E\\$1
+.br
+..
+.de CZ
+.br
+.if !"\\$1"" \\$1
+.br
+.if !"\\$2"" \\$2
+.br
+.if !"\\$3"" \\$3
+.br
+.if !"\\$4"" \\$4
+.br
+.if !"\\$5"" \\$5
+.br
+.if !"\\$6"" \\$6
+.br
+.if !"\\$7"" \\$7
+.br
+.if !"\\$8"" \\$8
+.br
+.if !"\\$9"" \\$9
+..
+.	\"S1 - tm style 
+.de S1
+.br
+.if t .ta 4.25i
+.if n .ta 43
+.ll 80
+.ps 36
+.br
+.if t .vs .15i
+.if t \{
+.if \\n(ZZ<1 \t\s36\(FA\s0
+.if \\n(ZZ>=1 \t\s36\(FA\s0\}
+.br
+.if n .sp 24p
+\s11\l'7i'\s0
+.ps 10
+.br
+.if \\n(IM=1 \f(HBBell Laboratories\fP
+.ft 1
+.nr SJ \\n(.j
+.na
+.br
+.ps 8
+.vs 12p
+.sp 2v
+.mk
+.ll
+.ll 4.0i
+\fHsubject:\fP
+.ft 3
+.br
+.rt
+.if n .in +9
+.if t .in +\w'\fHsubject:\fP 'u
+.ps
+.nf
+.hy 0
+.WT
+.hy 14
+.ft 1
+.fi
+.in 0
+.if !\\(IM .if \\n(MC>0 \\s8Case- \\*(CA\\s10
+.if !\\(IM .if \\n(MG>0 --\s8 File- \\*(CC\\s10
+.br
+.rt
+.if n .ll 70
+.if t .ll 6.5i
+.if t .in 4.25i+6n
+.if n .in 52
+.ps 8
+.ti -6n
+.ta 6n
+\fHdate:\fP\t\\s\\n(PS\\f3\\*(DY
+.sp
+.ft 1
+.ps 8
+.mk
+.ti -6n
+\fHfrom:\fP
+.ps
+.br
+.rt
+.nf
+.ft 3
+.A1
+.if \\n(NA>1 .A2
+.if \\n(NA>2 .A3
+.if \\n(NA>3 .A4
+.if \\n(NA>4 .A5
+.if \\n(NA>5 .A6
+.if \\n(NA>6 .A7
+.if \\n(NA>7 .A8
+.if \\n(NA>8 .A9
+.ft 1
+.sp
+.mk
+.ps 8
+.ti -6n
+.ft 1
+.if \\n(IM=0 .if \\n(MM .if "\\*(MQ"" \{\
+.if \\n(MN=0 .ds MQ TM:
+.if \\n(MN=1 .ds MQ MF:
+.if \\n(MN=2 .ds MQ MR:
+.if \\n(MN=3 .ds MQ EN:\}
+\\*(MQ
+.br
+.ti \\n(.iu
+.rt
+.ps
+.ft 3
+.hy 0
+.ll 20i
+.if t .ll 7.75i-\\n(.ou
+.fi
+.na
+.if \\n(MM .CZ \\*(MN
+.hy 14
+.nf
+.ft 1
+.ll \\n(LLu
+.in
+.sp |\\n(.hu
+.if \\n(IM=0 .sp
+.ad \\n(SJ
+.ce
+.ft 2
+.if \\n(IM=0 \\*(QF
+.ft 1
+.ce 0
+.if \\n(IM=0 .sp
+.fi
+..
diff --git a/tmac/tmac.sdisp b/tmac/tmac.sdisp
new file mode 100644
index 00000000..3f4e2336
--- /dev/null
+++ b/tmac/tmac.sdisp
@@ -0,0 +1,61 @@
+.	\"DS - display.  If .DS C, center; L, left-adjust; I, indent.
+.de DS
+.KS
+.nf
+.\\$1D \\$2 \\$1
+.ft 1
+.if !\\n(IF \{\
+.	ps \\n(PS
+.	ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n
+.	ie \\n(VS>=41 .vs \\n(VSu
+.	el .vs \\n(VSp\}
+..
+.de D
+.ID \\$1
+..
+.de CD
+.XD
+.ce 1000
+..
+.de ID
+.XD
+.if t .in +0.5i
+.if n .in +8
+.if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(OIu
+.if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n
+..
+.de LD
+.XD
+..
+.de XD
+.nf
+.nr OI \\n(.i
+.sp \\n(DVu
+..
+.de BD \" block display: save everything, then center it.
+.XD
+.nr BD 1
+.nf
+.in \\n(OIu
+.di DD
+..
+.	\"DE - display end
+.de DE
+.ce 0
+.if \\n(BD>0 .DF
+.nr BD 0
+.in \\n(OIu
+.KE
+.sp \\n(DVu
+.fi
+..
+.de DF \" finish a block display to be recentered.
+.di
+.if \\n(dl>\\n(BD .nr BD \\n(dl
+.if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u
+.nr EI \\n(.l-\\n(.i
+.ta \\n(EIuR
+.nf
+.DD
+.in \\n(OIu
+..
diff --git a/tmac/tmac.skeep b/tmac/tmac.skeep
new file mode 100644
index 00000000..40c712dc
--- /dev/null
+++ b/tmac/tmac.skeep
@@ -0,0 +1,89 @@
+.	\"KS keep - for keep release features. As in IFM
+.de KS
+.nr KN \\n(.u
+.if \\n(IK=0 .if \\n(IF=0 .KQ
+.nr IK +1
+..
+.	\"KQ - real keep processor
+.de KQ
+.br
+.nr KI \\n(.i
+.ev 2
+.br
+.in \\n(KIu
+.ps \\n(PS
+.if \\n(VS>40 .vs \\n(VSu
+.if \\n(VS<=39 .vs \\n(VSp
+.ll \\n(LLu
+.lt \\n(LTu
+.if \\n(NX>1 .ll \\n(CWu
+.if \\n(NX>1 .lt \\n(CWu
+.di KK
+.nr TB 0
+.nr KV 0
+..
+.	\"KF - floating keep
+.de KF
+.nr KN \\n(.u
+.if !\\n(IK .FQ
+.nr IK +1
+..
+.	\"FQ real floating keep processor
+.de FQ
+.nr KI \\n(.i
+.ev 2
+.br
+.in \\n(KIu
+.ps \\n(PS
+.if \\n(VS>40 .vs \\n(VSu
+.if \\n(VS<=39 .vs \\n(VSp
+.ll \\n(LLu
+.lt \\n(LTu
+.if \\n(NX>1 .ll \\n(CWu
+.if \\n(NX>1 .lt \\n(CWu
+.di KK
+.nr TB 1
+.nr KV 0
+..
+.	\"KP - keep full page
+.de KP
+.nr KV 1
+..
+.	\"KE release - everything between keep and release is together
+.de KE
+.if \\n(IK .if !\\n(IK-1 .if \\n(IF=0 .RQ
+.if \\n(IK .nr IK -1
+..
+.	\"RQ real release
+.de RQ
+.br
+.nr KI \\n(.i
+.di
+.nr NF 0
+.if \\n(dn-\\n(.t .nr NF 1
+.if \\n(TC .nr NF 1
+.if \\n(KV .nr NF 1 \" if KV on full page needed, doesn't fit
+.if \\n(NF .if !\\n(TB .sp 11i
+.if !\\n(NF .if \\n(TB .nr TB 0
+.nf
+.rs
+.nr TC 5
+.in 0
+.ls 1
+.if \\n(TB=0 .ev
+.if \\n(TB=0 .br
+.if \\n(TB=0 .ev 2
+.if \\n(TB=0 .KK
+.ls
+.ce 0
+.if \\n(TB=0 .rm KK
+.if \\n(TB .da KJ
+.if \\n(TB \!.KD \\n(dn \\n(KV
+.if \\n(TB .KK
+.if \\n(TB .di
+.nr TC \\n(TB
+.if \\n(KN .fi
+.in
+.ev
+.in \\n(KIu
+..
diff --git a/tmac/tmac.soft b/tmac/tmac.soft
new file mode 100644
index 00000000..83aa05ea
--- /dev/null
+++ b/tmac/tmac.soft
@@ -0,0 +1,1031 @@
+.\"	From mel Sat Sep 16 14:46:23 1978
+.\"	the GE macro places figures.
+.\"	G8 is zero until the figure is placed
+.\"	G5 is non-zero if there was an argument
+.\"	 on GS which specifies
+.\"	  1 - top
+.\"	  2 - bottom
+.\"	  3 - next page
+.\"	  4 - at this point
+.\"	the macros HN - top next pge
+.\"	HT - top this page
+.\"	HB - bottom this page
+.\"	HH : here on this page
+.\"	The current algorithm is: if it does not fit,
+.\"	top next page; otherwise if no arg to GS
+.\"	put it at top or bottom of this page, whichever
+.\"	is closer (there is a threshold of half the figure
+.\"	size or something)
+.\"	if arg to GS is given it governs.
+.\"
+.de Vx	\" volume, number, Month, year, page 1, page n, top title(s) in one blast (bwk)
+.\" also needs DY for date received as 31 July 1978
+.ds VN \\$1
+.ds NU \\$2
+.ds mo \\$3
+.if "\\$3"January" .ds MO JANUARY
+.if "\\$3"February" .ds MO FEBRUARY
+.if "\\$3"March" .ds MO MARCH
+.if "\\$3"April" .ds MO APRIL
+.if "\\$3"May" .ds MO MAY
+.if "\\$3"June" .ds MO JUNE
+.if "\\$3"July" .ds MO JULY
+.if "\\$3"August" .ds MO AUGUST
+.if "\\$3"September" .ds MO SEPTEMBER
+.if "\\$3"October" .ds MO OCTOBER
+.if "\\$3"November" .ds MO NOVEMBER
+.if "\\$3"December" .ds MO DECEMBER
+.nr yr \\$4
+.nr P \\$5-1
+.nr P< \\$5
+.pn \\$5
+.nr P> \\$6
+.ds Tl \\$7
+.ds Tr \\$8
+..
+.de PS	\" start picture (bwk)
+.	\" $1 is height, $2 is width in units
+.if t .SP .3
+.in (\\n(.lu-\\$2u)/2u
+.ne \\$1u
+..
+.de PE	\" end of picture
+.in
+.if t .SP .6
+..
+.di XX
+.nr Q1 0
+.rn ne NE
+.de ne
+.nr NB \\$1v
+.if \\n(.t<\\n(NB \{\
+.dt \\n(.du+4u \\*(DT
+.sp\}
+..
+.ds Co \s12\v'.2m'\(co\v'-.2m'\s0 20\\n(yr by John Wiley & Sons, Ltd.
+.de CO
+.ps 8
+.vs 9p
+.nf
+SOFTWARE\(emPRACTICE AND EXPERIENCE, VOL. \\*(VN(\\*(NU), \\n(P<-\\n(P> (\\*(MO 20\\n(yr)
+.fi
+.ft 1
+.lt \\n(LLu
+.ps \\n(PS
+.vs \\n(VSp
+..
+.nr BS 1
+.de IZ
+.if \\n(PS=0 .nr PS 10
+.if \\n(VS=0 .nr VS 12
+.if \\n(PL=0 .nr PL 10.25i
+.if \\n(LP=0 .nr LP 8i
+.if \\n(LL=0 .nr LL 5.6i
+.if \\n(LS=0 .nr LS 0.9v
+.if \\n(JS=0 .nr JS 0.5v
+.nr ZI 0.3i
+.nr ZJ 0.3i
+.ps \\n(PS
+.vs \\n(VSp
+.pl \\n(PLu
+.ll \\n(LLu
+.nr L4 \\n(LPu-\\n(LSu
+.dt \\n(L4u EP
+.ds DT EP
+.em EM
+..
+.de TL
+.IZ
+.rm IZ
+.CO
+.SP .5i
+.ps 16
+.ft 1
+.vs 30p
+.br
+.if \\n(.d=0 .nr TP 1
+.if \\n(.t<4v .nr TO 1
+.di TX
+.nr FR 0
+.nr IT 1
+.na
+.ll \\n(LLu-.5i
+..
+.de ET
+.br
+.di
+.dt \\n(L4u \\*(DT
+.ad
+.ll \\n(LLu
+.ce 100
+.nf
+.TX
+.rm TX
+.fi
+.nr IT 0
+..
+.de AU
+.if \\n(IT>0 .ET
+.ft 1
+.br
+.sp .6
+.ps 8
+.vs \\n(VSp
+.ce 100
+..
+.de AI
+.sp 3p
+.ps 8
+.ft 2
+.ce 100
+..
+.de RD
+.ps -1
+.ce
+.if \\n(.n>\\n(.l .tm Too many authors on a line
+..
+.de AB
+.ce 0
+.nr AB 1
+.ft 3
+.ce
+.SP .2i
+SUMMARY
+.ps \\n(PS
+.vs \\n(VSp
+.SP .5v
+..
+.de AE
+.ft 1
+.nr AB 0
+.nr FR 0
+.nr HI 1
+.SP .8v
+..
+.de OK
+.br
+.ft 1
+.ps 6
+KEY WORDS  \c
+.ps 7
+..
+.de PP
+.RT
+.if \\n(.i>0 .SP \\n(JSu
+.in 0
+.if \\n(FR=0 .ps \\n(PS
+.ti +2n
+.if \\n(AB=0 .ft 1
+.nr FR 1
+..
+.de LP
+.RT
+.if \\n(.i>0 .SP \\n(JSu
+.in 0
+.if \\n(FR=0 .ps \\n(PS
+.nr FR 1
+.if \\n(AB=0 .ft 1
+..
+.de IP
+.ce 0
+.if \\n(FR=0 .ps \\n(PS
+.nr FR 1
+.if \\n(.i=0 .SP .5v
+.in \\n(ZJu
+.ti -\\n(ZIu
+\\$1\h'|\\n(ZIu'\c
+..
+.de JP
+.ce 0
+.\".if \\n(.d>0 .if \\n(.d<1.5v .if \\n(HI=0 .tm Top widow page \\n% (JP)
+.if \\n(FR=0 .ps \\n(PS
+.nr FR 1
+.if \\n(.i=0 .SP \\n(JSu
+.in \\n(ZJu
+.ti -.4i
+.if \\n(.f=1 \h'0.3i-\w"(\f2\\$1\|\fP)"u'(\f2\\$1\|\fP)\h'|.4i'\c
+.if \\n(.f=2 \h'0.3i-\w"(\f2\\$1\^\fP)"u'(\f2\\$1\^\fP)\h'|.4i'\c
+..
+.de SH
+.nr HQ \\n(HI
+.RT
+.in 0
+.nr HI \\n(HQ
+.ne 2v+\\n(.Vu
+.ft 3
+.if \\n(HI=0 .if \\n(.d>0 .SP 1.25v
+.if \\n(HI>0 .if \\n(.d>0 .if \\n(FR>0 .sp 1
+.nr FR 1
+.nr HI 1
+..
+.de EP
+.di
+.nr L1 \\n(dn
+.ev 1
+.ce 0
+.ll \\n(LLu
+.br
+.rs
+.sp .75i-1v
+.if \\n(TP=0 .PT
+.if \\n(TP>0 .sp
+.nr TO 0
+.sp 1
+.nr P1 \\n(LP-\\n(L1
+.nf
+.nr P1 -\\n(G1
+.nr P1 -\\n(G2
+.if \\n(P1<0 .nr Q1 0
+.if \\n(EX=1 .nr Q1 0  \" don't pad on last page of article
+.nr P3 \\n(P1
+.if \\n(G1>0 .GT
+.if \\n(G1>0 .if \\n(EX=0 .sp \\n(P1u
+.if \\n(G1>0 .if \\n(EX=0 .nr P1 0
+.rm GT
+.if \\n(G1>0 .nr Q1 0 \" if top figure, pad below
+.if \\n(G2>0 .nr Q1 0 \" if bottom figure pad above
+.if \\nB .tm Page \\n%: pad \\n(P3 space \\n(Q1 places, top \\n(G1, bot \\n(G2
+.XX
+.nf
+.if \\n(G2>0 .if \\n(P1>0 .sp \\n(P1u
+.if \\n(G2>0 .nr P1 0
+.if \\n(G2>0 .GB
+.nr G1 0
+.nr G2 0
+.if \\n(EX>0 .if \\n(P1>0 .sp \\n(P1u
+.if \\nB .tm Bottom of page \\n% at \\n(nl
+.rm GB
+.PF
+.bp
+.nr TQ \\n(TP
+.nr TP 0
+.nr G1 \\n(G3
+.rn GN GT
+.nr G3 0
+.ev 
+.nr FP 0
+.nr Q1 0
+.nr L4 \\n(LPu-\\n(LSu
+.if \\n(G1>(\\n(L4-1i) .FB \" full page figure
+.nr L4 -\\n(G1
+.nr LX \\n%
+.af LX 1
+.ie \\n(LX<=26 .af LX a
+.el \{.nr LX -26
+.af LX A\}
+.nr L4 -\\n(C\\n(LXu
+.di XX
+.dt \\n(L4u EP
+.ds DT EP
+..
+.de FB
+.if \\nB .tm Full page figure on page \\n%
+.ev 1
+.rs
+.sp .75i-1v
+.PT
+.rs
+.GT
+.rm GT
+.nr G1 0
+.PF
+.bp
+.ev
+..
+.de CP \" cut text on page arg1 by arg2 
+.nr C2 \\$2v
+.nr C1 \\$1
+.af C1 1
+.if \\n(C1>52 .tm Page>52, gok what happens.
+.ie \\n(C1<=26 .af C1 a
+.el \{.nr C1 -26
+.af C1 A\}
+.if \\n(C2>0 .nr C\\n(C1 \\n(C2
+..
+.de SP
+.if \\n(.t<\\$1 .\\*(DT
+.if \\n(.d>0 .ST \\$1
+..
+.de ST
+.sp \\$1
+.nr Q1 +1
+\!.FI
+..
+.de FI
+.nr P4 0
+.if \\n(Q1>0 .nr P4 3*((\\n(P1/3)/\\n(Q1)
+.sp \\n(P4u
+.if \\n(P4>1v .tm Padding of \\n(P4u exceeds one space page \\n%
+.nr P1 -\\n(P4
+.nr Q1 -1
+..
+.de CL \" change length: add/sub lines this page
+.nr CN \\$1v
+.nr L4 \\n(L4+\\n(CN
+.dt \\n(L4u EP
+..
+.de GS
+.	\"argument positions: 1 top here, 2 bottom here, 3 next page, 4 right here
+.if \\n(.$>0 .if \\$1=4 .br
+.ev 1
+.di GD
+.ll \\n(LLu
+.if \n(KK=0 .ps \\n(PS-2
+.if \n(KK=0 .vs \\n(VSp-4p
+.nr G5 0
+.if \\n(.$>0 .nr G5 \\$1
+.fi
+..
+.de GE
+.br
+.di
+.nf
+.nr G0 \\n(dn
+.nr G0 +1v
+.nr G8 0  \" not placed
+.if \\n(KG=0 .if \\n(G8=0 .if \\n(G0>\\n(.t .HN
+.if \\n(G8=0 .if \\n(G5=0 .if \\n(G0>2*\\n(.d .if \\n(G1=0 .HT
+.if \\n(G8=0 .if \\n(G5=0 .if 3*\\n(G0>2*\\n(.t .if \\n(G2=0 .HB
+.if \\n(G8=0 .if \\n(G5=0 .HH
+.if \\n(G8=0 .if \\n(G5=1 .HT
+.if \\n(G8=0 .if \\n(G5=2 .HB
+.if \\n(G8=0 .if \\n(G5=3 .HN
+.if \\n(G8=0 .if \\n(G5=4 .HH
+.rm GD
+.ps \\n(PS
+.vs \\n(VSp
+.ev
+..
+.de FS
+.GS 2
+.br
+.if \\n(FP=0 \{\
+.vs 2p
+.br
+\l'.75i'
+.vs
+.sp 2p
+.nr FP 1
+.br\}
+..
+.de FE
+.GE
+..
+.de KS
+.if \\n(KK=0 .GS 4
+.nr KK 1
+.nr KG 1
+..
+.de KE
+.if \\n(KK>0 .GE
+.nr KK 0
+.nr KG 0 \" KG on if not a floating display
+..
+.de HN
+.if \\n(G3>0 .tm Two figures pushed to next page.
+.da GN
+.GD
+.sp 1
+.di
+.nr G3 \\n(dn
+.nr G8 1
+..
+.de HT
+.nr L4 -\\n(G0
+.dt \\n(L4u \\*(DT
+.da GT
+.GD
+.sp
+.di
+.nr G1 +\\n(dn
+.nr G8 1
+..
+.de HB
+.da GB
+.if \\n(FP=0 .sp
+.GD
+.di
+.nr G2 +\\n(dn
+.nr G8 1
+.nr L4 -\\n(dn
+.dt \\n(L4u \\*(DT
+..
+.de HH
+.SP .5v
+.if \\n(G0>\\n(.t .if \\n(KK>0 .sp 10i
+.GD
+.SP .5v
+.nr G8 1
+..
+.de RR
+.ce 0
+.if \\n(FR=0 .ps \\n(PS
+.nr FR 1
+.ft 1
+.in .3i
+.if \\n(.$ .ti -.3i
+.if \\n(.$ \\$1\ \ \c
+..
+.de RF
+.SP 2v
+.ps \\n(PS-2
+.vs \\n(VS-3
+.ne 3v
+.ce
+.ps -1
+REFERENCES
+.sp 3p
+..
+.de PT
+.if \\n(PF>0 .af % 1
+.if \\n(Pf>0 .if o .tl ""\s7\\*(Tr\s0"\s10\\n%"
+.if \\n(Pf>0 .if e .tl "\s10\\n%"\s7\\*(Tl\s0""
+..
+.de PF
+.sp 1v
+.lt \\n(.lu
+.nr Ss \\n(.s
+.nr Sf \\n(.f
+.ps 9
+.af NU 01
+.af VN 01
+.af P< 0001
+.nr VN \\*(VN
+.nr NU \\*(NU
+.\" price = 1.00 if <= 10 pages, otherwise .10/page.
+.nr p1 (1+\\n(P>-\\n(P<)*10
+.if \\n(p1<100 .nr p1 100
+.nr p2 \\n(p1%100
+.nr p1 \\n(p1/100
+.ds pr \\n(p1.\\n(p2
+.if \\n(Pf=0 .tl "\s90038-0644/\\n(yr/\\n(NU\\n(VN-\\n(P<$0\\*(pr""\f2Received \\*(DY\f1\s0"
+.if \\n(Pf=0 \s9\\*(Co\s0
+.af % 1
+.nr Pf \\n(Pf+1
+.ft \\n(Sf
+.ps \\n(Ss
+..
+.de EQ  \"equation, breakout and display
+.nr EF \\n(.u
+.ds EE \\h'.5i'	\" default for indent is .5 inch
+.nr LE 1	\" 1 is center, 0 is I or L
+.ds EL \\$1
+.if "\\$1"L" .ds EL \\$2
+.if "\\$1"L" .nr LE 0
+.if "\\$1"C" .ds EL \\$2
+.if "\\$1"I" .nr LE 0
+.if "\\$1"I" .ds EE \\h'.5i'
+.if "\\$1"I" .if !"\\$3"" .ds EE \\h'\\$3'
+.if "\\$1"I" .ds EL \\$2
+.ev 1
+.di EZ
+..
+.\"		-----------------------------
+.de EN  \" end of a displayed equation
+.if !"\\n(.z"EZ" .tm EN not preceded by EQ, disaster follows.
+.br
+.ce 0
+.di
+.rm EZ
+.ev
+.nr ZN 1
+.if "\\*(10"" .nr ZN 0
+.if \\n(ZN=0 .if !"\\*(EL"" .nr ZN 1
+.lt \\n(.lu
+.br
+.if \\n(ZN>0 .if !\\n(.d=\\n(PE .SP 0.5
+.pc
+.if \\n(BD>0 .nr LE 0 \" can't mean centering in this case.
+.if \\n(ZN>0 .if \\n(LE>0 .tl \(ts\(ts\\*(10\(ts\\*(EL\(ts
+.if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD=0 .tl \(ts\\*(EE\\*(10\(ts\(ts\\*(EL\(ts
+.if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 \!\\*(10\\\\t\\*(EL
+.if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w'\\*(10' .nr BD \\w'\\*(10'
+.lt \\n(LLu
+.pc %
+.br
+.if \\n(ZN>0 .if \\n(EF>0 .fi
+.rm EL
+.if \\n(ZN>0 .SP 0.5
+.nr PE \\n(.d
+.rm 10
+..
+.de B
+.if \\n(.$>0 \\$3\f3\\$1\fP\\$2
+.if \\n(.$=0 .ft 3
+..
+.de I
+.if \\n(.$>0 \\$3\f2\\$1\fP\^\\$2
+.if \\n(.$=0 .ft 2
+..
+.de R
+.ft 1
+..
+.de EM
+.br
+.nr EX 1
+.wh -1p .CM
+.sp 100
+..
+.de TS
+.nf
+.sp .5v
+..
+.de TE
+.fi
+.sp .5v
+..
+.de CM
+.po 0
+.tl '\(ru'''
+.po
+..
+.wh 0 CM
+.de RT
+.br
+.\".if \\n(.d>0 .if \\n(.d<1.5v .if \\n(HI=0 .tm Top widow page \\n%
+.IZ
+.rm IZ
+.if "\\n(.z"PA" .tm Warning: are you missing a .P2?
+.if \\n(IT>0 .ET
+.ps \\n(PS
+.vs \\n(VSp
+.if \\n(HI .sp .5v
+.if \\n(HI .if \\n(.d<=1.5v .if \\n(G1=0 .sp .5v
+.nr HI 0
+.ce 0
+..
+.   \"ACCENTS  say \*'e or \*`e to get e acute or e grave
+.ds ' \h'\w'e'u*4/10'\z\(aa\h'-\w'e'u*4/10'
+.ds ` \h'\w'e'u*4/10'\z\(ga\h'-\w'e'u*4/10'
+.   \"UMLAUT  \*:u, etc.
+.ds : \v'-0.6m'\h'(1u-(\\n(.fu%2u))*0.13m+0.06m'\z.\h'0.2m'\z.\h'-((1u-(\\n(.fu%2u))*0.13m+0.26m)'\v'0.6m'
+.  \"TILDE and CIRCUMFLEX
+.ds ^ \\k:\h'-\\n(.fu+1u/2u*2u+\\n(.fu-1u*0.13m+0.06m'\z^\h'|\\n:u'
+.ds ~ \\k:\h'-\\n(.fu+1u/2u*2u+\\n(.fu-1u*0.13m+0.06m'\z~\h'|\\n:u'
+.	\"dotted arrow
+.ds > \v'-.1m'\s-4---\z-\v'.1m'\h'-.3m'\z>\s+4
+.		\"czech symbol as in kucera & francis
+.ds C \h'.1m'\v'-0.6m'\s6\zv\s0\v'0.6m'\h'-.1m'
+..
+.	\"NH - numbered heading
+.de NH
+.nr HQ \\n(HI
+.RT
+.nr HI \\n(HQ
+.ne 2v+\\n(.Vu
+.ft 1
+.if \\n(Nh=0 .SP 1.2v
+.nr Nh \\n(Nh+1
+.if \\n(HI=0 .if \\n(.d>0 .SP 1.5v
+.if \\n(HI>0 .if \\n(.d>0 .if \\n(FR>0 .sp 1
+.nr FR 1
+.nr HI 1
+.ce 100
+\\n(Nh.  \c
+..
+.	\"Ch - centered, unnumbered heading
+.de Ch
+.RT
+.ne 2v+\\n(.Vu
+.sp 1
+.ft 1
+.ce 100
+..
+.	\"Lh - left-justified, unnumbered heading
+.de Lh
+.RT
+.ne 2v+\\n(.Vu
+.sp 1
+.ft 3
+..
+.de IH
+.nr H4 +1
+.ft 2
+\\n(H1.\\n(H2.\\n(H3.\\n(H4 \\$1
+.ft 1
+..
+.de UX
+.ie \\n(GA>0 \\$2\s-2UNIX\s0\\$1
+.el \{\
+.if n \\$2UNIX\(dg\\$1
+.if t \\$2\s-2UNIX\s0\(dg\\$1
+.FS
+\(dg \s-2UNIX\s0 is a registered trademark of X/Open.
+.FE
+.nr GA 1\}
+..
+.de Ux \" cap-small cap, not used
+.\" .ie \\n(GA>0 \\$2U\s-2NIX\s0\\$1
+.ie \\n(GA>0 \\$2\s-2UNIX\s0\\$1
+.el \{\
+.if n \\$2UNIX*\\$1
+.\".if t \\$2U\s-2NIX\s0*\\$1
+.if t \\$2\s-2UNIX\s0*\\$1
+.FS
+* \s-2UNIX\s0 is a registered trademark of X/Open.
+.FE
+.nr GA 1\}
+..
+.de US
+the
+.UX
+operating system
+..
+.so /usr/lib/tmac/tmac.sdisp
+.de KF
+.if \\n(KK=0 .GS
+.nr KK 1
+..
+.tr |\(or
+.de UL
+.if n .ul
+\&\\$3\f3\\$1\fP\&\\$2
+..
+.de UC
+\&\\$3\s-2\\$1\\s+2\&\\$2
+..
+.de Uc \" cap-small cap, not used
+.\" \&\\$4\\$1\s-2\\$2\s+2\&\\$3
+\&\\$4\s-2\\$1\\$2\s+2\&\\$3
+..
+.de IT
+.if n .ul
+\&\\$3\f2\\$1\fP\|\&\\$2
+..
+.de UP
+\&\\$3\\f3\s-2\\$1\s+2\f1\&\\$2
+..
+.de P1
+.nr PC \\n(.i
+.nf
+.di PA
+.lg 0
+.if n .ls 1
+.if n .ta 5 10 15 20 25 30 35 40 45 50 55 60
+.if t .ta .4i .8i 1.2i 1.6i 2i 2.4i 2.8i 3.2i 3.6i 4i 4.4i 4.8i 5.2i 5.6i
+.if t .tr -\-|\(bv'\(fm*\(**
+.if t .tr ~\(ap
+.tr _\(ru
+.if t .ss 20
+.ft 3
+.lg 0
+.ps 9
+.vs 12p
+.in 0
+..
+.de P2
+.if t .ss 12
+.ft R
+.if n .ls 2
+.tr --''^^!!**
+.lg
+.in \\n(PCu
+.di
+.if \\n(dl>(\\n(.l-\\n(.i) .tm Page \\n% program fragment too wide
+.nr PB \\n(.l-\\n(dl-\\n(.i-2n
+.if \\n(PB<0 .nr PB 0
+.nr PB \\n(PB/2
+.	\" indent; don't center
+.nr PB .5i
+.in +\\n(PBu
+.nf
+.SP .5v
+.PA
+.SP .5v
+.in -\\n(PBu
+.fi
+.ps \\n(PS
+.vs \\n(VSp
+..
+.de X
+.ul
+\&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.de Y
+.ti \\n(.yu*2u
+.ul
+\&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.de QH
+.NH 2
+.ti 0
+.ft 2
+..
+.de PN
+.nr NQ \\n(.f
+\&\\$3\\f3\\$1\f\\n(NQ\\$2
+..
+.de ][
+.\".if \\n(.d>0 .if \\n(.d<1.5v .tm Top widow page \\n%
+.if \\$1>5 .tm Bad arg to ][
+.Fx \\*([D
+.[\\$1
+..
+.if n .ds [. [
+.if t .ds [. \s-2\v'-.4m'\f1
+.if n .ds .] ]
+.if t .ds .] \v'.4m'\s+2\fP
+.if n .ds [o ""
+.if n .ds [c ""
+.if t .ds [o `
+.if t .ds [c '
+.de [5 \" tm style
+.QP "\\*([F.\0"
+\\*([A,
+unpublished work
+(\\*([D).
+.in 0
+.RT
+..
+.de [0 \" other
+.QP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+.if !"\\*([T"" \\f2\\*([T\\f1\c
+.if !"\\*([T"" .if !"\\*([O"" ,\ 
+.ie !"\\*([O"" \\*([O
+.el .if !"\\*([T"" \&.
+.if !"\\*([D"" \\*([D.
+.in 0
+.RT
+..
+.de [1 \" journal article
+.if "\\*([Q"This issue" .rm [V [N [D
+.if !"\\*([R"" .rm [C
+.QP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+.if !"\\*([T"" \\*([o\\*([T,\\*([c
+.ft 2
+.if "\\*([V"" .if !"\\*([C"" \\*([J,
+.if "\\*([V"" .if "\\*([C"" .if !"\\*([Q"This issue"  \\*([J
+.if "\\*([V"" .if "\\*([C"" .if "\\*([Q"This issue"  \\*([J,
+.if !"\\*([V"" \\*([J,
+.ft 1
+.if !"\\*([V"" \{.if n Vol.\&
+\\f3\\*([V\\f1,\}
+.if !"\\*([N"" \\*([N,
+.if !"\\*([C"" \\*([C
+.if !"\\*([P"" \\*([P
+.if !"\\*([D"" (\\*([D).
+.in 0
+.RT
+..
+.de [2 \" book
+.QP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+\\f2\\*([T,\\f1
+\\*([I,
+.if !"\\*([D"" \\*([D\c
+.if !"\\*([Q"NP" \&.
+.if !"\\*([G"" Gov't. ordering no. \\*([G
+.if !"\\*([O"" \\*([O
+.in 0
+.RT
+..
+.de [4 \" report
+.if "\\*([I"Bell Laboratories" .rm [C
+.QP "\\*([F.\0"
+\\*([A, \\*([o\\*([T,\\*([c
+\\*([R\c
+.if !"\\*([G"" \& (\\*([G)\c
+.if !"\\*([I"" ,  \\*([I\c
+.if !"\\*([C"" ,  \\*([C\c
+.if !"\\*([D"" \\0(\\*([D)\c
+.if !"\\*([Q"NP" \&.
+.if !"\\*([O"" \\*([O
+.in 0
+.RT
+..
+.de [3 \" article in book
+.QP "\\*([F.\0"
+\\*([A, \\*([o\\*([T,\\*([c
+in \\f2\\*([B\\f1\c
+.if !"\\*([E"" , ed. \\*([E\c
+.if "\\*([E"" ,\c
+.if !"\\*([I"" \ \\*([I,\c
+.if !"\\*([P"" \ \\*([P
+.if !"\\*([D"" \ (\\*([D).
+.in 0
+.RT
+..
+.de ]<
+.SP 2v
+.ti 0
+.nf
+.ps -1
+.ce
+REFERENCES
+.ps
+.nr PS 8
+.nr VS 8
+.nr PI \w'\s8\0\0.\0'
+.sp .5v
+.fi
+.LP
+.rn RP IP
+..
+.de Fx	\" fix date to discard all but year
+.ds [D \\$\\n(.$
+..
+.de ]>
+.sp
+..
+.de ]-
+.rm [V [P [A [T [N [C [B [O [R [I [E [Q [D [Q
+..
+.de QP
+.LP
+.in \\n(PIu
+.ta \\n(PIuR
+.ti 0
+\t\\$1\\c
+..
+.de LB
+.RT
+.nr ZB .4i
+.if !"\\$2"" .nr ZB \\$2n
+.in \\n(ZJu
+.ti -\\n(ZBu
+.ta \\n(ZBu
+\\$1\t\\c
+..
+.de RS
+.nr ZJ +.3i
+..
+.de RE
+.nr ZJ -.3i
+..
+.de RP
+.ce 0
+.if \\n(FR=0 .ps \\n(PS
+.nr FR 1
+.in .4i
+.ta .2i
+.if \\n(.$>0 .ti 0-.1i-\h'\w'\\$1'u'
+.if \\n(.$>0 \\$1\h'|.4i'\c
+..
+.ds s \s-2
+.de MH
+Bell Labs, 600 Mountain Avenue, Murray Hill, New Jersey 07974, U. S. A.
+..
+.de HO
+Bell Labs, Holmdel, New Jersey 07733, U. S. A.
+..
+.de WH
+Bell Labs, Whippany, New Jersey 07981, U. S. A.
+..
+.ds n \s+2
+.\" REFER macros .... citations
+.de []
+.][ \\$1
+..
+.de ][
+.if \\$1>5 .tm Bad arg to []
+.[\\$1
+..
+.if n .ds [. [
+.if t .ds [. \s-2\v'-.4m'\f1
+.if n .ds .] ]
+.if t .ds .] \v'.4m'\s+2\fP
+.if n .ds [o ""
+.if n .ds [c ""
+.if t .ds [o `
+.if t .ds [c '
+.\" the next lines deal with the problem of .[1] or [1].
+.\" refer will write "linexxx\*(<.[1]\*(>.
+.\" and either "<." or ">." should produce the .;
+.\" similarly for ,
+.if n .ds >. .
+.if t .ds <. .
+.if n .ds >, ,
+.if t .ds <, ,
+.de [5 \" tm style
+.FS
+.IP "\\*([F.\0"
+.nr %T 2
+\\*([A, \\f2\\*([T\\f1,
+.ie \\n(TN \\*([M.
+.el Bell Laboratories internal memorandum (\\*([D).
+.RT
+.FE
+..
+.de [0 \" other
+.FS
+.nr [: 0
+.if !"\\*([F"" .IP "\\*([F.\0"
+.if !"\\*([A"" \{.nr [: 1
+\\*([A\c\}
+.if !"\\*([T"" \{.if \\n([:>0 ,
+.nr [: 1
+\\f2\\*([T\\f1\c\}
+.if !"\\*([O""\{.if \\n([:>0 ,
+.nr [: 1
+.if \\n([O>0 .nr [: 0
+\\*([O\c
+.if \\n([O>0 \& \c\}
+.if !"\\*([D"" \{.if \\n([:>0 ,
+.nr [: 1
+\\*([D\c\}
+.if \\n([:>0 \&.
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de [1 \" journal article
+.nr %T 1 \" title font
+.FS
+.if !"\\*([R"" .rm [C
+.if !"\\*([F"" .IP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+.if !"\\*([T"" \\*([o\\*([T\\*([c,
+\\f2\\*([J\\f1\c
+.if !"\\*([C"" , \\*([C\c
+.if !"\\*([V"" .if n ,\& Vol.\&\c
+.if !"\\*([V"" ,\& \\f3\\*([V\\f1\c
+.if !"\\*([P"" \{\
+.ie \\n([P>0 , \&\c
+.el , \ \&\c
+\\*([P\c\}
+.if !"\\*([I"" .if "\\*([R"" , \\*([I\c
+.if !"\\*([O"" .if \\n([O=0 , \\*([O\c
+.if !"\\*([D"" \& (\\*([D)\c
+\&.
+.if !"\\*([O"" .if \\n([O>0  \\*([O
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de [2 \" book
+.FS
+.nr %T 2
+.if !"\\*([F"" .IP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+.if !"\\*([T"" \\f2\\*([T,\\f1
+\\*([I\c
+.if !"\\*([C"" , \\*([C\c
+.if !"\\*([D"" \& (\\*([D)\c
+\&.
+.if !"\\*([G"" Gov't. ordering no. \\*([G.
+.if !"\\*([O"" \\*([O
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de [4 \" report
+.FS
+.if !"\\*([F"" .IP "\\*([F.\0"
+.nr %T 1
+\\*([A, \\*([o\\*([T\\*([c,
+\\*([R\c
+.if !"\\*([G"" \& (\\*([G)\c
+.if !"\\*([I"" ,  \\*([I\c
+.if !"\\*([C"" ,  \\*([C\c
+.if !"\\*([D"" \& (\\*([D)\c
+\&.
+.if !"\\*([O"" \\*([O
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de [3 \" article in book
+.FS
+.nr %T 1
+.if !"\\*([F"" .IP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+.if !"\\*([T"" \\*([o\\*([T,\\*([c
+.if !"\\*([P"" \\*([P
+in \\f2\\*([B\\f1\c
+.if !"\\*([E"" , ed. \\*([E\c
+.if !"\\*([I"" , \\*([I\c
+.if !"\\*([C"" , \\*([C\c
+.if !"\\*([D"" \& (\\*([D)\c
+\&.
+.if !"\\*([O"" \\*([O
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de ]<
+.[<
+..
+.de [<
+.LP
+.rm FS FE
+..
+.de [>
+.]>
+..
+.de ]>
+.sp
+..
+.de ]-
+.[-
+..
+.de [-
+.rm [V [P [A [T
+.rm [N [C [B [O
+.rm [R [I [E [D
+.rm [G [%
+..
+.de ]]
+.\"this is never executed and just uses up an end-of-file bug.
+..
diff --git a/tmac/tmac.spe b/tmac/tmac.spe
new file mode 100644
index 00000000..4844d8b5
--- /dev/null
+++ b/tmac/tmac.spe
@@ -0,0 +1,142 @@
+..... July 1, 1991
+.so #9/sys/lib/tmac/tmac.pm
+.
+.ig
+.nr VN 1	\" VN -- volume
+.nr NU 1	\" NU -- number
+.nr P< 1	\" P< -- starting page number
+.nr P> 1	\" P> -- ending page number
+.		\" month of issue, date received, date revised
+.ds MO February
+.ds DY December 31, 1990
+.ds DR January 1, 1991
+.TL "RUNNING TITLE" "RUNNING AUTHOR NAMES" 
+Title
+.AU
+AUTHOR AND AUTHOR
+.AI
+Institution
+.AU
+AND
+.AU
+THIRD AUTHOR
+.AI
+HER INSTITUTION
+.AB
+.LP
+abstract
+.AE
+.OK "Word  Phrase or word  Another word"
+.SH
+LEVEL ONE HEADING
+.PP
+xxx
+.SH 2
+Level 2 heading
+.PP
+zzz
+.Rf
+.IP 1.
+J. Author...
+..
+.
+.nr LL 34P
+.ll \n(LLu
+.lt \n(LLu
+.nr LT \n(LLu
+.nr FO 49P+1i-1P	\" FO -- bottom of last line of text
+.nr HM .6i	\" HM -- header margin
+.nr PD 1u
+.nr PI .15i
+.
+.de TL		\" TL -- title
+.ps 7
+SOFTWARE\(emPRACTICE AND EXPERIENCE, VOL. \\n(VN(\\n(NU), \\n(P<-\\n(P> (\\*(MO 20\\n(yr)
+.sp 6P-2v
+.ps 18
+.vs 21p
+.ce 100
+.		\" $1 is title running head, $2 is author running head
+.ds %o .tl '\s11\\\\n(%#\s0'\s8\\$1\s0''
+.ds %e .tl ''\s8\\$2\s0'\s11\\\\n(%#\s0'
+.nr OL 0	\" undo pm
+.ev 2
+.lt \\n(LLu
+.ev
+..
+.de AU		\" AU -- JOE AUTHOR AND MARY AUTHOR
+.ie \\n(AU=0 .sp 3.25P-.5v
+.el .SP
+.nr AU +1
+.ps 8
+.vs 12p
+.ft R
+..
+.		\" use .AU JOE // AND // .AU MARY if separate institutions.
+.de AI		\" AI -- author institution
+.ps 9
+.vs 10p
+.ft I
+..
+.de MH		\" MH -- us
+Bell Labs, Murray Hill, New Jersey 07974, U.S.A.
+..
+.de AB		\" AB -- abstract/summary
+.sp 3P-0V
+.nr PS 9
+.nr VS 10
+.ft B
+SUMMARY
+.SP .4P
+.ce 0
+.nr AB 1
+..
+.de AE		\" AE -- end of abstract
+.nr AB 0
+.nr PS 11
+.nr VS 12
+.XX		\" do the goo on the bottom of page 1
+..
+.de OK		\" OK -- other keywords
+.ft 1
+.sp .5P
+\s6KEY WORDS\s0   \s8\\$1\s0
+.fl
+..
+.de XX
+.KF bottom
+.SP 1.5P
+.lt \\n(LLu
+.nr x \\n(P>-\\n(P<+1
+.af P< 0000
+.if \\n(BT=0 .tl "0038-0644/\\n(yr/\\n(NU\\n(P<-\\nx$05.00""\f2Received \\*(DY\f1"
+.if \\n(BT=0 .tl '\(CO 20\\n(yr by John Wiley & Sons, Ltd.''\f2Revised \\*(DR\fP'
+.KE
+..
+.am SH		\" SH -- unnumbered sub-heading
+.sp 2.5P-2V
+.if \\n(.$=0 .ce 100
+.if \\$1=1 .ce 100
+.if \\n(.$=0 .ft 1
+.if \\$1=1 .ft 1
+.if \\$1=2 .ft B
+.if \\$1>2 .ft I
+.nr SH 1
+..
+.am PP		\" PP -- fix up to add space, no indent.  doesn't work
+.if \\n(SH .SP .5
+.if \\n(SH .in 0
+.nr SH 0
+..
+.		\" Rf - start references
+.de Rf
+.SH
+\s9REFERENCES\s0
+.nr PS 9
+.nr VS 10
+.LP
+.nr PI .15i
+..
+.
+.nr PS 11
+.nr VS 12
diff --git a/tmac/tmac.srefs b/tmac/tmac.srefs
new file mode 100644
index 00000000..c2879ea5
--- /dev/null
+++ b/tmac/tmac.srefs
@@ -0,0 +1,156 @@
+.\" REFER macros .... citations
+.de []
+.][ \\$1
+..
+.de ][
+.if \\$1>5 .tm Bad arg to []
+.[\\$1
+..
+.if n .ds [. [
+.if t .ds [. \s-2\v'-.4m'\f1
+.if n .ds .] ]
+.if t .ds .] \v'.4m'\s+2\fP
+.if n .ds [o ""
+.if n .ds [c ""
+.if t .ds [o ``
+.if t .ds [c ''
+.\" the next lines deal with the problem of .[1] or [1].
+.\" refer will write "linexxx\*(<.[1]\*(>.
+.\" and either "<." or ">." should produce the .;
+.\" similarly for ,
+.if n .ds >. .
+.if t .ds <. .
+.if n .ds >, ,
+.if t .ds <, ,
+.de [5 \" tm style
+.FS
+.IP "\\*([F.\0"
+.nr %T 2
+\\*([A, \\f2\\*([T\\f1,
+.ie \\n(TN \\*([M.
+.el Bell Laboratories internal memorandum (\\*([D).
+.RT
+.FE
+..
+.de [0 \" other
+.FS
+.nr [: 0
+.if !"\\*([F"" .IP "\\*([F.\0"
+.if !"\\*([A"" \{.nr [: 1
+\\*([A\c\}
+.if !"\\*([T"" \{.if \\n([:>0 ,
+.nr [: 1
+\\f2\\*([T\\f1\c\}
+.if !"\\*([O""\{.if \\n([:>0 ,
+.nr [: 1
+.if \\n([O>0 .nr [: 0
+\\*([O\c
+.if \\n([O>0 \& \c\}
+.if !"\\*([D"" \{.if \\n([:>0 ,
+.nr [: 1
+\\*([D\c\}
+.if \\n([:>0 \&.
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de [1 \" journal article
+.nr %T 1 \" title font
+.FS
+.if !"\\*([R"" .rm [C
+.if !"\\*([F"" .IP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+.if !"\\*([T"" \\*([o\\*([T,\\*([c
+\\f2\\*([J\\f1\c
+.if !"\\*([C"" , \\*([C\c
+.if !"\\*([V"" .if n ,\& Vol.\&\c
+.if !"\\*([V"" \& \\f3\\*([V\\f1\c
+.if !"\\*([N"" (\\*([N)\c
+.if !"\\*([P"" \{\
+.ie \\n([P>0 , pp.\ \&\c
+.el , p.\ \&\c
+\\*([P\c\}
+.if !"\\*([I"" .if "\\*([R"" , \\*([I\c
+.if !"\\*([O"" .if \\n([O=0 , \\*([O\c
+.if !"\\*([D"" \& (\\*([D)\c
+\&.
+.if !"\\*([O"" .if \\n([O>0  \\*([O
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de [2 \" book
+.FS
+.nr %T 2
+.if !"\\*([F"" .IP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+.if !"\\*([T"" \\f2\\*([T,\\f1
+\\*([I\c
+.if !"\\*([C"" , \\*([C\c
+.if !"\\*([D"" \& (\\*([D)\c
+\&.
+.if !"\\*([G"" Gov't. ordering no. \\*([G.
+.if !"\\*([O"" \\*([O
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de [4 \" report
+.FS
+.if !"\\*([F"" .IP "\\*([F.\0"
+.nr %T 1
+\\*([A, \\*([o\\*([T,\\*([c
+\\*([R\c
+.if !"\\*([G"" \& (\\*([G)\c
+.if !"\\*([I"" ,  \\*([I\c
+.if !"\\*([C"" ,  \\*([C\c
+.if !"\\*([D"" \& (\\*([D)\c
+\&.
+.if !"\\*([O"" \\*([O
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de [3 \" article in book
+.FS
+.nr %T 1
+.if !"\\*([F"" .IP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+.if !"\\*([T"" \\*([o\\*([T,\\*([c
+.if !"\\*([P"" pp. \\*([P
+in \\f2\\*([B\\f1\c
+.if !"\\*([E"" , ed. \\*([E\c
+.if !"\\*([I"" , \\*([I\c
+.if !"\\*([C"" , \\*([C\c
+.if !"\\*([D"" \& (\\*([D)\c
+\&.
+.if !"\\*([O"" \\*([O
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de ]<
+.[<
+..
+.de [<
+.LP
+.rm FS FE
+..
+.de [>
+.]>
+..
+.de ]>
+.sp
+..
+.de ]-
+.[-
+..
+.de [-
+.rm [V [P [A [T
+.rm [N [C [B [O
+.rm [R [I [E [D
+.rm [G [%
+..
+.de ]]
+.\"this is never executed and just uses up an end-of-file bug.
+..
diff --git a/tmac/tmac.twb b/tmac/tmac.twb
new file mode 100644
index 00000000..11bf2b96
--- /dev/null
+++ b/tmac/tmac.twb
@@ -0,0 +1,96 @@
+.de CO				\" Set type color; no value => reset
+.ie '\\$1'' .ds oC \\*(pC
+.el \{\
+.ds pC \\*(oC
+.ds oC \\$1 \\$2 \\$3 \\$4
+...\}
+\\X'color \\*(oC'\c
+..
+.de BC				\" Set background color; no value => reset
+.ie '\\$1'' .ds oB \\*(pB
+.el \{\
+.ds pB \\*(oB
+.ds oB \\$1 \\$2 \\$3 \\$4
+...\}
+\\X'bgcolor \\*(oB'\c
+..
+.de CL
+\\X'clear'\c
+..
+.de IN				\" Include picture $1 with ul corner at ($2,$3)
+.nr xc \\$2i
+.nr yc \\$3i
+\\X'picfile \\$1 \\n(xc \\n(yc'\c
+..
+.de CW				\" clear window ($1,$2) is ul ($3,$4) is lr, uses bg color
+.nr x0 \\$1i
+.nr y0 \\$2i
+.nr x1 \\$3i
+.nr x2 \\$4i
+\\X'clrwin \\n(x0 \\n(y0 \\n(x1 \\n(y1
+..
+.de BW				\" window border ($1,$2) is ul ($3,$4) is lr, uses fg color
+.nr x0 \\$1i
+.nr y0 \\$2i
+.nr x1 \\$3i
+.nr x2 \\$4i
+\\X'border \\n(x0 \\n(y0 \\n(x1 \\n(y1
+..
+.de SL				\" start slide, args are optional title
+.bp
+.ce 0
+.ft B
+.nf
+.if !'\\$1'' \{\
+.ps 36p
+.vs 36p
+\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+...\}
+.ps 30p
+.vs 30p
+..
+.de PS				\" Start pic picture
+.				\" $1 is height, $2 is width, both in inches
+.sp .3
+.in (\\n(.lu-\\$2)/2u
+.ne \\$1
+..
+.de PE				\" End pic picture
+.in
+.sp .6
+..
+.de IS				\" Start ideal picture
+.				\" $1 is width, $2 is height, both in inches
+.				\" in ideal, however, we see two IS's for each picture,
+.				\" and only the second one has the goods
+.nr ID 0
+.ie !'\\$1'' \{\
+.sp .3
+.nr ID 1
+.in (\\n(.lu-\\$1)/2u
+.ne \\$2
+...\}
+..
+.de IE				\" End ideal picture
+.if \\n(ID .in
+.if \\n(ID .if t .sp .6
+..
+.ds oC 255 255 255 255			\" type color
+.ds oB   0   0   0   0			\" background color
+.pl 4.8i				\" page length
+.po .1i					\" left margin
+.ll 6.2i				\" line length
+.ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
+.nf
+.ps 30p
+.vs 30p
+.fp 1 R Lucida
+.fp 2 I LucidaI
+.fp 3 B LucidaB
+.fp 4 BI LucidaBI
+.fp 5 S LucidaS
+.fp 6 SB LucidaSB
+.fp 7 SI LucidaSI
+.fp 8 SK LucidaSBI
+.fp 9 CW LucidaCW
+.ft B
diff --git a/tmac/tmac.uni b/tmac/tmac.uni
new file mode 100644
index 00000000..0de16c47
--- /dev/null
+++ b/tmac/tmac.uni
@@ -0,0 +1,107 @@
+.if t \{
+.tr ♔\(wk
+.tr ♕\(wq
+.tr ♖\(wr
+.tr ♗\(wb
+.tr ♘\(wn
+.tr ♙\(wp
+.tr ♚\(bk
+.tr ♛\(bq
+.tr ♜\(br
+.tr ♝\(bb
+.tr ♞\(bn
+.tr ♟\(bp
+.tr α\(*a
+.tr β\(*b
+.tr γ\(*g
+.tr δ\(*d
+.tr ε\(*e
+.tr ζ\(*z
+.tr η\(*y
+.tr θ\(*h
+.tr ι\(*i
+.tr κ\(*k
+.tr λ\(*l
+.tr ν\(*n
+.tr ξ\(*c
+.tr ο\(*o
+.tr π\(*p
+.tr ρ\(*r
+.tr ς\(ts
+.tr σ\(*s
+.tr τ\(*t
+.tr υ\(*u
+.tr φ\(*f
+.tr χ\(*x
+.tr ψ\(*q
+.tr ω\(*w
+.tr Α\(*A
+.tr Β\(*B
+.tr Γ\(*G
+.tr Δ\(*D
+.tr Ε\(*E
+.tr Ζ\(*Z
+.tr Η\(*Y
+.tr Θ\(*H
+.tr Ι\(*I
+.tr Κ\(*K
+.tr Λ\(*L
+.tr Μ\(*M
+.tr Ν\(*N
+.tr Ξ\(*C
+.tr Ο\(*O
+.tr Π\(*P
+.tr Ρ\(*R
+.tr Σ\(*S
+.tr Τ\(*T
+.tr Υ\(*U
+.tr Φ\(*F
+.tr Χ\(*X
+.tr Ψ\(*Q
+.tr Ω\(*W
+.tr ←\(<-
+.tr ↑\(ua
+.tr →\(->
+.tr ↓\(da
+.tr ↔\(ab
+.tr ∀\(fa
+.tr ∃\(te
+.tr ∂\(pd
+.tr ∅\(es
+.tr ∆\(*D
+.tr ∇\(gr
+.tr ∈\(mo
+.tr ∉\(!m
+.tr ∍\(st
+.tr ∗\(**
+.tr ∙\(bu
+.tr √\(sr
+.tr ∝\(pt
+.tr ∞\(if
+.tr ∠\(an
+.tr ∧\(l&
+.tr ∨\(l|
+.tr ∩\(ca
+.tr ∪\(cu
+.tr ∫\(is
+.tr ∴\(tf
+.tr ≃\(~=
+.tr ≅\(cg
+.tr ≈\(~~
+.tr ≠\(!=
+.tr ≡\(==
+.tr ≦\(<=
+.tr ≧\(>=
+.tr ⊂\(sb
+.tr ⊃\(sp
+.tr ⊄\(!b
+.tr ⊆\(ib
+.tr ⊇\(ip
+.tr ⊕\(O+
+.tr ⊖\(O-
+.tr ⊗\(Ox
+.tr ⊢\(tu
+.tr ⊨\(Tu
+.tr ⋄\(lz
+.tr ⋯\(el
+\}
diff --git a/tmac/tmac.v b/tmac/tmac.v
new file mode 100644
index 00000000..ce5b37da
--- /dev/null
+++ b/tmac/tmac.v
@@ -0,0 +1,519 @@
+'\"		Copyright (c) 1984 AT&T
+'\"		  All Rights Reserved
+'\"#ident	"@(#)macros:vmca.src	1.17"
+.ifn .ds Tm \uTM\d
+.ift .ds Tm \v'-0.5m'\s-8TM\s+8\v'0.5m'
+.deVS
+.)j
+.nr)K 0i
+.nr)L 0i
+.nr)U 8i
+.nr)X 18
+.nr)H 0
+.nr)W 0
+.nr)O 0i
+.nr)M 0
+.if!\\n(.$ .)V
+.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
+.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
+.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
+..
+.deVh
+.)j
+.nr)K 0.9i
+.nr)L 1i
+.nr)U 8i
+.nr)X 14
+.nr)H 1
+.nr)W 0
+.nr)O 0.2i
+.nr)M 0
+.if!\\n(.$ .)V
+.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
+.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
+.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
+..
+.deSh
+.)j
+.nr)K 1.1i
+.nr)L 1i
+.nr)U 8i
+.nr)X 14
+.nr)H 1
+.nr)W 0
+.nr)O 0.2i
+.nr)M 1
+.if!\\n(.$ .)V
+.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
+.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
+.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
+..
+.deVw
+.)j
+.nr)K 0i
+.nr)L 0i
+.nr)U 6i
+.nr)X 14
+.nr)H 0
+.nr)W 1
+.nr)O 0.2i
+.nr)M 0
+.if!\\n(.$ .)V
+.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
+.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
+.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
+..
+.deSw
+.)j
+.nr)K 0i
+.nr)L 0i
+.nr)U 6i
+.nr)X 14
+.nr)H 0
+.nr)W 1
+.nr)O 0.2i
+.nr)M 1
+.if!\\n(.$ .)V
+.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
+.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
+.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
+..
+.deVH
+.)j
+.nr)K 0i
+.nr)L 0i
+.nr)U 10i
+.nr)X 18
+.nr)H 1
+.nr)W 0
+.nr)O 0.5i
+.nr)M 0
+.if!\\n(.$ .)V
+.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
+.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
+.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
+..
+.deSH
+.)j
+.nr)K 0.5i
+.nr)L 0i
+.nr)U 10i
+.nr)X 18
+.nr)H 1
+.nr)W 0
+.nr)O 0.5i
+.nr)M 1
+.if!\\n(.$ .)V
+.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
+.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
+.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
+..
+.deVW
+.)j
+.nr)K 0i
+.nr)L 0i
+.nr)U 6.44i
+.nr)X 14
+.nr)H 0
+.nr)W 1
+.nr)O 0.4i
+.nr)M 0
+.if!\\n(.$ .)V
+.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
+.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
+.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
+..
+.deSW
+.)j
+.nr)K 0i
+.nr)L 0i
+.nr)U 6.44i
+.nr)X 14
+.nr)H 0
+.nr)W 1
+.nr)O 0.4i
+.nr)M 1
+.if!\\n(.$ .)V
+.if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
+.if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
+.if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
+..
+.de)V
+.fc
+.wh0i
+.if\\nX .wh -0.5i
+.nr)o 0u
+.if\\n()i .nr )o 10p
+.nr)U +\\n()ou
+.pl\\n()Uu+1.5i
+.if\\nX .if \\n(.pu-\\n()Gu .pl \\n()Gu
+.na
+.fi
+.nh
+.lg0
+.ta0.5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i
+.ce0
+.in0i
+.ll7.54i
+.po0i
+.lt7.68i
+.if\\n()i .)t "'\(da cut \(da''\(da cut \(da'" 1
+.nr)i 0
+.)t "'\l'0.38i'''\l'0.38i''" 1
+.sp0.5v
+.po0.23i
+.lt7.06i
+.if\\n(.$-1 .ds )N "\\$2
+.if\\n(.$-2 .ds )Y "\\$3
+.tl\\*()Y
+.tl\\*()N
+.if\\n(.$ .tl \\*()F \\$1
+.if!\\n(.$ .tl \\*()F %
+.po
+.sp|0.68i+\\n()ou
+.po0.26i+\\n()Lu+\\n()Ou
+.lt7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou
+.if\\n()H .)t "'|''|'"
+.po
+.sp|1i+\\n()Ou+\\n()ou
+.if!\\n(.A .)e
+.po0.1i
+.lt7.4i
+.if\\n()W .)t "'_''_'"
+.po
+.sp|1i+\\n()ou
+.if!\\n(.A .)e
+.po0.23i+\\n()Lu
+.lt7.06i-\\n()Lu-\\n()Lu
+.tl++
+.sp-3p
+.if\\n()M .if \\n()W .sp \\n()Ou
+.po
+.nr)J \\n()Uu
+.if\\n()M .if \\n()W .nr )J \\n()Uu-\\n()Ou
+.nr)E \\n()Ju
+.wh\\n()Eu )Z
+.S \\n()X 6i-\\n()Ku-\\n()Ku
+.I "" A no-space
+.sp.5v
+.nr)n \\n(nlu
+..
+.de)Z
+.wh\\n()Eu
+.nr)w 0
+.ev1
+.)g
+'sp|\\n()Uu
+.if!\\n(.A .)e
+.po0.23i+\\n()Lu
+.lt7.06i-\\n()Lu-\\n()Lu
+.tl++
+.po
+'sp|\\n()Uu-\\n()Ou
+.if!\\n(.A .)e
+.po0.1i
+.lt7.4i
+.if\\n()W .)t "'_''_'"
+.po
+'sp|\\n()Uu+0.32i
+.po0.26i+\\n()Lu+\\n()Ou
+.lt7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou
+.if\\n()H .)t "'|''|'"
+.po
+.if!\\n()H 'sp 1v
+'sp1v
+.ev
+.if\\nX .pl \\n()Gu
+.if\\nX .wh -0.5i )m
+.wh0i )P
+..
+.de)m
+.bp
+..
+.de)z
+.pl\\n(.pu+2i
+.br
+.if\\n()i  \{.ps 10
+.lt6i
+.tl*** No input or no ``foil start'' macro in input. \}
+.if!\\n()i \{.nr )x \\n(.vu+\\n()Eu-\\n(nlu/\\n(.vu
+.nr)v \\n()w
+.sp|\\n(.pu-2.8i
+.if\\nX .wh -0.5i
+.if\\nX .pl \\n(.pu+2i
+\&
+.br
+.)g
+.po0i
+.ll6i
+.ce0
+.in0i
+.if\\n(.A .sp -1.1v
+.if\\n(.A .sp 0.1v
+.if\\n(.A .if \\n()v ==> Approximately \\n()x blank line(s) \
+left to bottom of previous foil.
+.if\\n(.A .if !\\n()v ==> *** Previous foil full; \
+check for overflow.
+.sp|\\n(.pu-2i
+.lt7.68i
+.)t "'\l'0.38i'''\l'0.38i''" 1
+.)t "'\(ua cut \(ua''\(ua cut \(ua'" 1 \}
+..
+.de)t
+.if!\\n(.A .if \\n(.$-1 .)e
+.if!\\n(.A .tl \\$1
+..
+.de)e
+.po0i
+.lt1i
+.tl'\ '''
+'sp-1v
+.po
+.lt
+..
+.de)P
+.pl2i
+.if\\nX .pl \\n()Gu
+..
+.de)j
+.br
+.if\\n()i .if \\n(nl \{.ps 10
+.lt6i
+.tl*** Text before ``foil start'' macro in input. \}
+.if!\\n()i \{.nr )x \\n(.vu+\\n()Eu-\\n(nlu/\\n(.vu
+.nr)v \\n()w
+.sp|\\n(.pu-0.8i
+\&
+.br\}
+.)g
+.if!\\n()i \{.po 0i
+.ll6i
+.ce0
+.in0i
+.if\\n(.A .sp -1.1v
+.if\\n(.A .sp 0.1v
+.if\\n(.A .if \\n()v ==> Approximately \\n()x blank line(s) \
+left to bottom of previous foil.
+.if\\n(.A .if !\\n()v ==> *** Previous foil full; \
+check for overflow.
+.br
+.ll
+.po\}
+.if\\n(nl .bp
+.nr)w 1
+..
+.de)g
+.ft\\*()f
+.cs\\*()f
+.ps8
+.vs10p
+.ss16
+..
+.deT
+.br
+.if\\n(nlu-\\n()nu .sp .5v
+.nr]a \\n(.s
+.ps
+.nr]b \\n(.s
+.ps
+.nr)u \\n(.iu
+.in0i
+.ps+4
+.ce
+\&\\$1
+.in\\n()uu
+.ps\\n(]b
+.ps\\n(]a
+.sp.5v
+.nr)n \\n(nlu
+..
+.deS
+.if!\w\\$1 .ps
+.if\w\\$1 .if !\\$1+1 .ps \\$1
+.if\w\\$1 .if \\$1 .nr )y \\n(.s
+.if\w\\$1 .if \\$1 .nr )y \\$1
+.if\w\\$1 .if \\$1-99 .nr )y \\n()X
+.if\w\\$1 .if \\$1 .ps \\n()y
+.vs\\n(.sp*5u/4u
+.ss16
+.nr)a .8i+\\n()Ku
+.nr]c \\n(.s
+.ps
+.nr]d \\n(.s
+.ps
+.nr)A \\n(.s*\\n()Q/\\n(]X
+.ps\\n()A
+.nr)b \w\\*()B\ u
+.ps
+.nr)A \\n(.s*\\n()R/\\n(]X
+.ps\\n()A
+.nr)c \\n()bu+\w\\*()C\ u
+.ps
+.nr)A \\n(.s*\\n()S/\\n(]X
+.ps\\n()A
+.nr)d \\n()cu+\w\\*()D\ u
+.ps\\n(]d
+.ps\\n(]c
+.if\\n(.$-1 .nr )u \\$2
+.if\\n(.$-1 .if !\\n()uu-7u .nr )p \\$2i
+.if\\n(.$-1 .if \\n()uu-7u .nr )p \\$2
+.nr)q \\n()pu-0i
+.nr)r \\n()qu-0i
+.nr)s \\n()ru-0i
+.nr)T \\n(.sp*5u/4u
+.nr)E \\n()Ju-\\n()Tu
+.ch)Z \\n()Eu
+..
+.deI
+.if!\w\\$1u .nr )k 0i
+.if\w\\$1u .if !\\$1 .nr )u 0i-\\$1
+.if\w\\$1u .if \\$1 .nr )u \\$1
+.if\w\\$1u .if !\\n()uu-7u .nr )k \\$1i
+.if\w\\$1u .if \\n()uu-7u .nr )k \\$1
+.if\\n(.$-1 .A \\$3
+..
+.deA
+.br
+.if!\\n(.$ .if \\n(nlu-\\n()nu .sp \\*(]Au
+.nr)n \\n(nlu
+.po\\n()au
+.in0u+\\n()ku
+.ll\\n()pu
+.lt\\n()pu
+..
+.deB
+.br
+.if\\n(nlu-\\n()nu .sp \\*(]Bu
+.nr)n \\n(nlu
+.in\\n()bu+\\n()ku
+.ll\\n()qu
+.lt\\n()qu
+.nr)l 0
+.nr]x \\n()bu
+.if!\\n(.$ .)I \\*()B \\n()Q
+.if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
+.if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()Q
+.if\\n(.$-1 .if !\\$2-99 .nr )l 1
+.if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
+..
+.deC
+.br
+.if\\n(nlu-\\n()nu .sp \\*(]Cu
+.nr)n \\n(nlu
+.in\\n()cu+\\n()ku
+.ll\\n()ru
+.lt\\n()ru
+.nr)l 0
+.nr]x \\n()cu-\\n()bu
+.if!\\n(.$ .)I \\*()C \\n()R
+.if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
+.if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()R
+.if\\n(.$-1 .if !\\$2-99 .nr )l 1
+.if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
+..
+.deD
+.br
+.if\\n(nlu-\\n()nu .sp \\*(]Du
+.nr)n \\n(nlu
+.in\\n()du+\\n()ku
+.ll\\n()su
+.lt\\n()su
+.nr)l 0
+.nr]x \\n()du-\\n()cu
+.if!\\n(.$ .)I \\*()D \\n()S
+.if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
+.if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()S
+.if\\n(.$-1 .if !\\$2-99 .nr )l 1
+.if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
+..
+.de)I
+.nr]a \\n(.s
+.ps
+.nr]b \\n(.s
+.ps
+.if!\\n()l .if !\\$2 .nr )A \\n(.s
+.if!\\n()l .if \\$2 .nr )A \\n(.s*\\$2/\\n(]X
+.if\\n()l .nr )A \\n(.s+\\$2
+.ps\\n()A
+.ti-\w\\$1\ u
+\&\\$1\ \&\c
+.ps\\n(]b
+.ps\\n(]a
+..
+.deU
+.if!\w\\$1u-.46m \&\\$1\v'.55m'\l'|0\(hy'\v'-.55m'\\$2
+.if\w\\$1u-.46m \&\\$1\v'.09m'\l'|0\(ul'\v'-.09m'\\$2
+..
+.deDV
+.if\w\\$1 .ds ]A \\$1
+.if\w\\$2 .ds ]B \\$2
+.if\w\\$3 .ds ]C \\$3
+.if\w\\$4 .ds ]D \\$4
+..
+.deDF
+.if\\n(.$-1 .ds )f "\\$2
+.if\\n(.$-1 .fp \\$1 \\$2
+.if\\n(.$-1 .ft \\$2
+.if\\n(.$-3 .fp \\$3 \\$4
+.if\\n(.$-5 .fp \\$5 \\$6
+.if\\n(.$-7 .fp \\$7 \\$8
+..
+.deSP
+.sp\\$1
+..
+.deBR
+.br
+..
+.deTA
+'ta\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.deCE
+.ce\\$1
+..
+.deTI
+.ti\\$1
+..
+.deFI
+.fi
+..
+.deNF
+.nf
+..
+.deAD
+'ad\\$1
+..
+.deNA
+'na
+..
+.deHY
+'hy\\$1
+..
+.deNH
+'nh
+..
+.deSO
+'so\\$1
+..
+.deNX
+'nx\\$1
+..
+.ds)F FOIL
+.if\n(.A .ds )F FOIL
+.ds)N Bell\ Labs
+.ds)Y \n(mo/\n(dy/\n(yr
+.ds)B \(bu\ \|
+.ds)C \(em\ \|
+.ds)D \(bu\ \|
+.ds]A .5v
+.ds]B .5v
+.ds]C .5v
+.ds]D 0v
+.nr)G 11i-7.5p
+.nr)Q 5
+.nr)R 5
+.nr)S 3
+.nr]X 6
+.nr)i 1
+.nr)w 0
+.em)z
+.DF 1 H
-- 
cgit v1.2.3