Re: 'man groff' reports end of file while defining macro `TP'

[Paul Eggert]

Werner LEMBERG <address@hidden> writes:

> Today, it probably makes more sense to install with
>
>   make install tmac_wrap=""
>
> so that no wrapper scripts for the Solaris troff macro packages are
> installed.  What do you think of making this the default?

Sorry, I've forgotten exactly what this means.

Does it mean that we assume that the system-defined troff macro
definitions work even when groff is not running in compatibility mode?
But fixmacros.sed finds many problems in the Sun macro libraries.
Most of these problems are in /usr/lib/tmac/mmn and /usr/lib/tmac/mmt
-- which I assume we don't care about, since groff comes with its own
implementation of -mm -- but they aren't the only instances; here are
the others (in Solaris 8).


diff -pru /usr/lib/tmac/an /tmp/tmac/an
--- /usr/lib/tmac/an    2000-01-05 16:06:05.000000000 -0800
+++ /tmp/tmac/an        2003-07-21 21:44:18.873235993 -0700
@@ -400,7 +400,7 @@
 .      # make special case of shift out of italic
 .de }S
 .ds ]F
-.if "\\$1"2" .if !"\\$5"" .ds ]F\^
+.if "\\$1"2" .if !"\\$5"" .ds ]F \^
 .ie !"\\$4"" .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" 
"\\$9"
 .el \\$3
 .}f
@@ -465,7 +465,7 @@
 .in \\n()Ru+\\n(INu+\\n()Iu
 .ti \\n(INu
 .ie !\\n()Iu+\\n()Ru-\w\\*(]Xu-3p \{\\*(]X
-.br\}
+.br \}
 .el \\*(]X\h|\\n()Iu+\\n()Ru\c
 .}f
 ..
diff -pru /usr/lib/tmac/an.ja /tmp/tmac/an.ja
--- /usr/lib/tmac/an.ja 1999-12-15 18:05:24.000000000 -0800
+++ /tmp/tmac/an.ja     2003-07-21 21:44:18.913235511 -0700
@@ -412,7 +412,7 @@
 .      # make special case of shift out of italic
 .de }S
 .ds ]F
-.if "\\$1"2" .if !"\\$5"" .ds ]F\^
+.if "\\$1"2" .if !"\\$5"" .ds ]F \^
 .ie !"\\$4"" .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" 
"\\$9"
 .el \\$3
 .}f
@@ -477,7 +477,7 @@
 .in \\n()Ru+\\n(INu+\\n()Iu
 .ti \\n(INu
 .ie !\\n()Iu+\\n()Ru-\w\\*(]Xu-3p \{\\*(]X
-.br\}
+.br \}
 .el \\*(]X\h|\\n()Iu+\\n()Ru\c
 .}f
 ..
diff -pru /usr/lib/tmac/an.ja_JP.PCK /tmp/tmac/an.ja_JP.PCK
--- /usr/lib/tmac/an.ja_JP.PCK  1999-12-15 18:05:25.000000000 -0800
+++ /tmp/tmac/an.ja_JP.PCK      2003-07-21 21:44:18.943233625 -0700
@@ -412,7 +412,7 @@
 .      # make special case of shift out of italic
 .de }S
 .ds ]F
-.if "\\$1"2" .if !"\\$5"" .ds ]F\^
+.if "\\$1"2" .if !"\\$5"" .ds ]F \^
 .ie !"\\$4"" .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" 
"\\$9"
 .el \\$3
 .}f
@@ -477,7 +477,7 @@
 .in \\n()Ru+\\n(INu+\\n()Iu
 .ti \\n(INu
 .ie !\\n()Iu+\\n()Ru-\w\\*(]Xu-3p \{\\*(]X
-.br\}
+.br \}
 .el \\*(]X\h|\\n()Iu+\\n()Ru\c
 .}f
 ..
diff -pru /usr/lib/tmac/an.ja_JP.UTF-8 /tmp/tmac/an.ja_JP.UTF-8
--- /usr/lib/tmac/an.ja_JP.UTF-8        1999-12-15 18:05:26.000000000 -0800
+++ /tmp/tmac/an.ja_JP.UTF-8    2003-07-21 21:44:18.993236582 -0700
@@ -412,7 +412,7 @@
 .      # make special case of shift out of italic
 .de }S
 .ds ]F
-.if "\\$1"2" .if !"\\$5"" .ds ]F\^
+.if "\\$1"2" .if !"\\$5"" .ds ]F \^
 .ie !"\\$4"" .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" 
"\\$9"
 .el \\$3
 .}f
@@ -477,7 +477,7 @@
 .in \\n()Ru+\\n(INu+\\n()Iu
 .ti \\n(INu
 .ie !\\n()Iu+\\n()Ru-\w\\*(]Xu-3p \{\\*(]X
-.br\}
+.br \}
 .el \\*(]X\h|\\n()Iu+\\n()Ru\c
 .}f
 ..
diff -pru /usr/lib/tmac/ansun /tmp/tmac/ansun
--- /usr/lib/tmac/ansun 2000-01-05 16:06:05.000000000 -0800
+++ /tmp/tmac/ansun     2003-07-21 21:44:19.033236072 -0700
@@ -377,7 +377,7 @@
 .af S A
 .if \nC .ds ]C \\nC
 .if \nS .as ]C \\nS\\(hy
-.if \nC .if !\nS .as ]C\\(hy
+.if \nC .if !\nS .as ]C \\(hy
 .if !'\\$1'intro' \{\
 .if \\n(nlu .bp
 .if !'\\*(]C'' \{\
@@ -554,7 +554,7 @@
 .      # make special case of shift out of italic
 .de }S
 .ds ]F
-.if "\\$1"2" .if !"\\$5"" .ds ]F\^
+.if "\\$1"2" .if !"\\$5"" .ds ]F \^
 .ie !"\\$4"" .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" 
"\\$9"
 .el \\$3
 .}f
@@ -620,7 +620,7 @@
 .in \\n()Ru+\\n(INu+\\n()Iu
 .ti \\n(INu
 .ie !\\n()Iu+\\n()Ru-\w\\*(]Xu-3p \{\\*(]X
-.br\}
+.br \}
 .el \\*(]X\h|\\n()Iu+\\n()Ru\c
 .}f
 ..
diff -pru /usr/lib/tmac/ansun.ja /tmp/tmac/ansun.ja
--- /usr/lib/tmac/ansun.ja      1999-12-15 18:05:24.000000000 -0800
+++ /tmp/tmac/ansun.ja  2003-07-21 21:44:19.153235979 -0700
@@ -705,7 +705,7 @@
 .af S A
 .if \nC .ds ]C \\nC
 .if \nS .as ]C \\nS\\(hy
-.if \nC .if !\nS .as ]C\\(hy
+.if \nC .if !\nS .as ]C \\(hy
 .if !'\\$1'intro' \{\
 .if \\n(nlu .bp
 .if !'\\*(]C'' \{\
@@ -889,7 +889,7 @@
 .      # make special case of shift out of italic
 .de }S
 .ds ]F
-.if "\\$1"2" .if !"\\$5"" .ds ]F\^
+.if "\\$1"2" .if !"\\$5"" .ds ]F \^
 .ie !"\\$4"" .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" 
"\\$9"
 .el \\$3
 .}f
@@ -957,7 +957,7 @@
 .in \\n()Ru+\\n(INu+\\n()Iu
 .ti \\n(INu
 .ie !\\n()Iu+\\n()Ru-\w\\*(]Xu-3p \{\\*(]X
-.br\}
+.br \}
 .el \\*(]X\h|\\n()Iu+\\n()Ru\c
 .}f
 ..
diff -pru /usr/lib/tmac/ansun.ja_JP.PCK /tmp/tmac/ansun.ja_JP.PCK
--- /usr/lib/tmac/ansun.ja_JP.PCK       1999-12-15 18:05:26.000000000 -0800
+++ /tmp/tmac/ansun.ja_JP.PCK   2003-07-21 21:44:19.263233991 -0700
@@ -705,7 +705,7 @@
 .af S A
 .if \nC .ds ]C \\nC
 .if \nS .as ]C \\nS\\(hy
-.if \nC .if !\nS .as ]C\\(hy
+.if \nC .if !\nS .as ]C \\(hy
 .if !'\\$1'intro' \{\
 .if \\n(nlu .bp
 .if !'\\*(]C'' \{\
@@ -889,7 +889,7 @@
 .      # make special case of shift out of italic
 .de }S
 .ds ]F
-.if "\\$1"2" .if !"\\$5"" .ds ]F\^
+.if "\\$1"2" .if !"\\$5"" .ds ]F \^
 .ie !"\\$4"" .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" 
"\\$9"
 .el \\$3
 .}f
@@ -957,7 +957,7 @@
 .in \\n()Ru+\\n(INu+\\n()Iu
 .ti \\n(INu
 .ie !\\n()Iu+\\n()Ru-\w\\*(]Xu-3p \{\\*(]X
-.br\}
+.br \}
 .el \\*(]X\h|\\n()Iu+\\n()Ru\c
 .}f
 ..
diff -pru /usr/lib/tmac/ansun.ja_JP.UTF-8 /tmp/tmac/ansun.ja_JP.UTF-8
--- /usr/lib/tmac/ansun.ja_JP.UTF-8     1999-12-15 18:05:27.000000000 -0800
+++ /tmp/tmac/ansun.ja_JP.UTF-8 2003-07-21 21:44:19.383233716 -0700
@@ -705,7 +705,7 @@
 .af S A
 .if \nC .ds ]C \\nC
 .if \nS .as ]C \\nS\\(hy
-.if \nC .if !\nS .as ]C\\(hy
+.if \nC .if !\nS .as ]C \\(hy
 .if !'\\$1'intro' \{\
 .if \\n(nlu .bp
 .if !'\\*(]C'' \{\
@@ -889,7 +889,7 @@
 .      # make special case of shift out of italic
 .de }S
 .ds ]F
-.if "\\$1"2" .if !"\\$5"" .ds ]F\^
+.if "\\$1"2" .if !"\\$5"" .ds ]F \^
 .ie !"\\$4"" .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" 
"\\$9"
 .el \\$3
 .}f
@@ -957,7 +957,7 @@
 .in \\n()Ru+\\n(INu+\\n()Iu
 .ti \\n(INu
 .ie !\\n()Iu+\\n()Ru-\w\\*(]Xu-3p \{\\*(]X
-.br\}
+.br \}
 .el \\*(]X\h|\\n()Iu+\\n()Ru\c
 .}f
 ..
diff -pru /usr/lib/tmac/bib /tmp/tmac/bib
--- /usr/lib/tmac/bib   2000-01-05 16:06:05.000000000 -0800
+++ /tmp/tmac/bib       2003-07-21 21:44:19.423234552 -0700
@@ -209,7 +209,7 @@ References
 ..
 .de [-
 .if !\\n(TL \{\
-.      br      \" pseudo-page break
+.      br      \" pseudo-page break
 .      ce
 \f2\\*(TL\f1
 .      sp 2
diff -pru /usr/lib/tmac/e /tmp/tmac/e
--- /usr/lib/tmac/e     2000-01-05 16:06:06.000000000 -0800
+++ /tmp/tmac/e 2003-07-21 21:44:19.483233471 -0700
@@ -798,7 +798,7 @@
 .\}
 .nr ?C 1
 .nr $f 1 1
-.ds * \\*[1\\*]\k*
+.ds * \\*[[]1\\*]\k*
 .if \\n(?R \
 .      pn 1
 .bp
@@ -1006,7 +1006,7 @@
 .nr _L \n(.lu
 .nr $c 1
 .nr $f 1 1
-.ds * \*[1\*]\k*\"
+.ds * \*[[]1\*]\k*\"
 .nr $d 1 1
 .ds # [1]\k#\"
 .nr _M 1
diff -pru /usr/lib/tmac/float.me /tmp/tmac/float.me
--- /usr/lib/tmac/float.me      2000-01-05 16:06:06.000000000 -0800
+++ /tmp/tmac/float.me  2003-07-21 21:44:19.513235222 -0700
@@ -46,7 +46,7 @@
 .ls 1
 .nr ?k 1
 \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
-.|k\"
+.|k \"
 .ec
 .nr ?k 0
 .rm |k\"
diff -pru /usr/lib/tmac/footnote.me /tmp/tmac/footnote.me
--- /usr/lib/tmac/footnote.me   2000-01-05 16:06:06.000000000 -0800
+++ /tmp/tmac/footnote.me       2003-07-21 21:44:19.533235683 -0700
@@ -35,7 +35,7 @@
 .      br
 .      if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
 \{\
-.              da\"
+.              da \"
 .              bc
 .              if !\\n(?f \
 .                      rm |f
@@ -67,7 +67,7 @@
 \{\
 .      if \\n* \
 .              nr $f +1
-.      ds * \\*[\\n($f\\*]\k*
+.      ds * \\*[[]\\n($f\\*]\k*
 .      rr *
 .      in 0
 .      da
diff -pru /usr/lib/tmac/s /tmp/tmac/s
--- /usr/lib/tmac/s     2000-01-05 16:06:08.000000000 -0800
+++ /tmp/tmac/s 2003-07-21 21:44:19.933233456 -0700
@@ -478,8 +478,8 @@
 .      NP
 .      ch CM 160
 .\}
-.if \\n(IF .FE         \" End footnote if still pending
-.if !"\\n(.z"" .DI     \" End any left over diversions
+.if \\n(IF .FE                 \" End footnote if still pending
+.if !"\\n(.z"" .DI     \" End any left over diversions
 ..
 .      \" DI is used to properly end all diversions, otherwise a bug in
 .      \" [nt]roff may cause an infinite loop if the page footer (or
@@ -523,7 +523,7 @@
 .PT
 .lt \\n(.lu
 .if \\n(HM 'sp |\\n(HMu
-.HD    \"undefined
+.HD    \"undefined
 .ps \\n(PX
 .ft \\n(PF
 .nr XX 0 1
diff -pru /usr/lib/tmac/tmac.bib /tmp/tmac/tmac.bib
--- /usr/lib/tmac/tmac.bib      2000-01-05 16:01:19.000000000 -0800
+++ /tmp/tmac/tmac.bib  2003-07-21 21:44:20.003236120 -0700
@@ -216,7 +216,7 @@ References
 ..
 .de [-
 .if !\\n(TL \{\
-.      br      \" pseudo-page break
+.      br      \" pseudo-page break
 .      ce
 \f2\\*(TL\f1
 .      sp 2
diff -pru /usr/lib/tmac/tmac.vgrind /tmp/tmac/tmac.vgrind
--- /usr/lib/tmac/tmac.vgrind   2000-01-05 16:25:54.000000000 -0800
+++ /tmp/tmac/tmac.vgrind       2003-07-21 21:44:20.033232920 -0700
@@ -127,7 +127,7 @@
 '       lt 9.5i
 '       ev
 '       pl 8i
-'no\}
+'no \}
 'sI
 '\"    If point size values haven't already been established, set them
 '\"    to suitable default values.  The defaults are smaller for two column
@@ -139,7 +139,7 @@
 '       el \{\
 '               nr vP 9
 '       no\}
-'no\}
+'no \}
 '\"    Force comment state indicators into the correct
 '\"    initial state.  Convert the comment start macro
 '\"    to its final form.
@@ -185,10 +185,10 @@
 '       ll +0.4i
 '       lt +0.4i
 '       ev
-'no\}
+'no \}
 '\"'bd B 3
 '\"'bd S B 3
-'nf            \" When not run standalone, the host macro package
+'nf            \" When not run standalone, the host macro package
 '              \" may well do this for us.
 'nr vC 0       \" We're not in a comment.
 'nr v2 0                                \" start in left column
@@ -227,7 +227,7 @@
 '       nr v2 0 1       \" reset column counter
 '       mk vH           \" save vertical position for later restoration
 '       ll \\n(vKu
-'.no\}
+'.n o\}
 'v.     \" Put out the column header
 ..
 '\"----------------
@@ -301,7 +301,7 @@
 '               ll \\n(vLu
 '               v>
 '       no\}
-'no\}
+'no \}
 'el     'v>
 ..
 '\"----------------
diff -pru /usr/lib/tmac/v /tmp/tmac/v
--- /usr/lib/tmac/v     2000-01-05 16:06:08.000000000 -0800
+++ /tmp/tmac/v 2003-07-21 21:44:20.413232483 -0700
@@ -18,521 +18,521 @@
 .\"    (c) 1983,1984,1985,1986,1987,1988,1989  AT&T.
 .\"              All rights reserved.
 .\" View Graph and Slide Macros - @(#)vmca.src 1.12
-.ifn .ds Tm \uTM\d
-.ift .ds Tm \v'-0.5m'\s-8TM\s+8\v'0.5m'
-.deVS
+.if n .ds Tm \uTM\d
+.if t .ds Tm \v'-0.5m'\s-8TM\s+8\v'0.5m'
+.de VS
 .)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"
+.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
+.de Vh
 .)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"
+.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
+.de Sh
 .)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"
+.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
+.de Vw
 .)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"
+.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
+.de Sw
 .)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"
+.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
+.de VH
 .)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"
+.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
+.de SH
 .)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"
+.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
+.de VW
 .)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"
+.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
+.de SW
 .)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"
+.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
+.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
+.wh 0i
+.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
+.lg 0
+.ta 0.5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i
+.ce 0
+.in 0i
+.ll 7.54i
+.po 0i
+.lt 7.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 %
+.sp 0.5v
+.po 0.23i
+.lt 7.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 "'|''|'"
+.sp |0.68i+\\n()ou
+.po 0.26i+\\n()Lu+\\n()Ou
+.lt 7.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 "'_''_'"
+.sp |1i+\\n()Ou+\\n()ou
+.if !\\n(.A .)e
+.po 0.1i
+.lt 7.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
+.sp |1i+\\n()ou
+.if !\\n(.A .)e
+.po 0.23i+\\n()Lu
+.lt 7.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
+.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
+.sp .5v
+.nr )n \\n(nlu
 ..
-.de)Z
-.wh\\n()Eu
-.nr)w 0
-.ev1
+.de )Z
+.wh \\n()Eu
+.nr )w 0
+.ev 1
 .)g
-'sp|\\n()Uu
-.if!\\n(.A .)e
-.po0.23i+\\n()Lu
-.lt7.06i-\\n()Lu-\\n()Lu
-.tl++
+'sp |\\n()Uu
+.if !\\n(.A .)e
+.po 0.23i+\\n()Lu
+.lt 7.06i-\\n()Lu-\\n()Lu
+.tl ++
 .po
-'sp|\\n()Uu-\\n()Ou
-.if!\\n(.A .)e
-.po0.1i
-.lt7.4i
-.if\\n()W .)t "'_''_'"
+'sp |\\n()Uu-\\n()Ou
+.if !\\n(.A .)e
+.po 0.1i
+.lt 7.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 "'|''|'"
+'sp |\\n()Uu+0.32i
+.po 0.26i+\\n()Lu+\\n()Ou
+.lt 7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou
+.if \\n()H .)t "'|''|'"
 .po
-.if!\\n()H 'sp 1v
-'sp1v
+.if !\\n()H 'sp 1v
+'sp 1v
 .ev
-.if\\nX .pl \\n()Gu
-.if\\nX .wh -0.5i )m
-.wh0i )P
+.if \\nX .pl \\n()Gu
+.if \\nX .wh -0.5i )m
+.wh 0i )P
 ..
-.de)m
+.de )m
 .bp
 ..
-.de)z
-.pl\\n(.pu+2i
+.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
+.if \\n()i  \{.ps 10
+.lt 6i
+.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) \
+.po 0i
+.ll 6i
+.ce 0
+.in 0i
+.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; \
+.if \\n(.A .if !\\n()v ==> *** Previous foil full; \
 check for overflow.
-.sp|\\n(.pu-2i
-.lt7.68i
+.sp |\\n(.pu-2i
+.lt 7.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
+.de )t
+.if !\\n(.A .if \\n(.$-1 .)e
+.if !\\n(.A .tl \\$1
+..
+.de )e
+.po 0i
+.lt 1i
+.tl '~'''
+'sp -1v
 .po
 .lt
 ..
-.de)P
-.pl2i
-.if\\nX .pl \\n()Gu
+.de )P
+.pl 2i
+.if \\nX .pl \\n()Gu
 ..
-.de)j
+.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
+.if \\n()i .if \\n(nl \{.ps 10
+.lt 6i
+.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\}
+.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) \
+.if !\\n()i \{.po 0i
+.ll 6i
+.ce 0
+.in 0i
+.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; \
+.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
-.tr~ 
+.po \}
+.if \\n(nl .bp
+.nr )w 1
+..
+.de )g
+.ft \\*()f
+.cs \\*()f
+.ps 8
+.vs 10p
+.ss 16
+.tr ~ 
 ..
-.deT
+.de T
 .br
-.if\\n(nlu-\\n()nu .sp .5v
-.nr]a \\n(.s
+.if \\n(nlu-\\n()nu .sp .5v
+.nr ]a \\n(.s
 .ps
-.nr]b \\n(.s
+.nr ]b \\n(.s
 .ps
-.nr)u \\n(.iu
-.in0i
-.ps+4
+.nr )u \\n(.iu
+.in 0i
+.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
+.in \\n()uu
+.ps \\n(]b
+.ps \\n(]a
+.sp .5v
+.nr )n \\n(nlu
+..
+.de S
+.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
+.ss 16
+.nr )a .8i+\\n()Ku
+.nr ]c \\n(.s
 .ps
-.nr]d \\n(.s
+.nr ]d \\n(.s
 .ps
-.nr)A \\n(.s*\\n()Q/\\n(]X
-.ps\\n()A
-.nr)b \w\\*()B~u
+.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
+.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
+.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
+..
+.de I
+.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
+.de A
 .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
+.if !\\n(.$ .if \\n(nlu-\\n()nu .sp \\*(]Au
+.nr )n \\n(nlu
+.po \\n()au
+.in 0u+\\n()ku
+.ll \\n()pu
+.lt \\n()pu
 ..
-.deB
+.de B
 .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"
+.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
+.de C
 .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"
+.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
+.de D
 .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"
+.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
+.de )I
+.nr ]a \\n(.s
 .ps
-.nr]b \\n(.s
+.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
+.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
+.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
+.de U
+.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
+..
+.de DV
+.if \w\\$1 .ds ]A \\$1
+.if \w\\$2 .ds ]B \\$2
+.if \w\\$3 .ds ]C \\$3
+.if \w\\$4 .ds ]D \\$4
+..
+.de DF
+.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
+.de SP
+.sp \\$1
 ..
-.deBR
+.de BR
 .br
 ..
-.deTA
-'ta\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+.de TA
+'ta \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
 ..
-.deCE
-.ce\\$1
+.de CE
+.ce \\$1
 ..
-.deTI
-.ti\\$1
+.de TI
+.ti \\$1
 ..
-.deFI
+.de FI
 .fi
 ..
-.deNF
+.de NF
 .nf
 ..
-.deAD
-'ad\\$1
+.de AD
+'ad \\$1
 ..
-.deNA
+.de NA
 'na
 ..
-.deHY
-'hy\\$1
+.de HY
+'hy \\$1
 ..
-.deNH
+.de NH
 'nh
 ..
-.deSO
-'so\\$1
+.de SO
+'so \\$1
 ..
-.deNX
-'nx\\$1
+.de NX
+'nx \\$1
 ..
-.ds)F FOIL
-.if\n(.A .ds )F FOIL
-.ds)N BTL
+.ds )F FOIL
+.if \n(.A .ds )F FOIL
+.ds )N BTL
 .nr _Y 1900+\n(yr
-.ds)Y \n(mo/\n(dy/\n(_Y
-.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
+.ds )Y \n(mo/\n(dy/\n(_Y
+.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
diff -pru /usr/lib/tmac/vgrind /tmp/tmac/vgrind
--- /usr/lib/tmac/vgrind        2000-01-05 16:06:08.000000000 -0800
+++ /tmp/tmac/vgrind    2003-07-21 21:44:20.443233002 -0700
@@ -127,7 +127,7 @@
 '       lt 9.5i
 '       ev
 '       pl 8i
-'no\}
+'no \}
 'sI
 '\"    If point size values haven't already been established, set them
 '\"    to suitable default values.  The defaults are smaller for two column
@@ -139,7 +139,7 @@
 '       el \{\
 '               nr vP 9
 '       no\}
-'no\}
+'no \}
 '\"    Force comment state indicators into the correct
 '\"    initial state.  Convert the comment start macro
 '\"    to its final form.
@@ -185,10 +185,10 @@
 '       ll +0.4i
 '       lt +0.4i
 '       ev
-'no\}
+'no \}
 '\"'bd B 3
 '\"'bd S B 3
-'nf            \" When not run standalone, the host macro package
+'nf            \" When not run standalone, the host macro package
 '              \" may well do this for us.
 'nr vC 0       \" We're not in a comment.
 'nr v2 0                                \" start in left column
@@ -227,7 +227,7 @@
 '       nr v2 0 1       \" reset column counter
 '       mk vH           \" save vertical position for later restoration
 '       ll \\n(vKu
-'.no\}
+'.n o\}
 'v.     \" Put out the column header
 ..
 '\"----------------
@@ -301,7 +301,7 @@
 '               ll \\n(vLu
 '               v>
 '       no\}
-'no\}
+'no \}
 'el     'v>
 ..
 '\"----------------