For mpm.

tmac/me/index.me

@@ -0,0 +1,70 @@
+.nr _0 \n(c.
+.\"	@(#)index.me	2.6	12/10/80
+.\" This version has had comments stripped; an unstripped version is available.
+.de (x
+.ie !"\\n(.z"" \
+\{\
+.	ev 2
+\!\\!.(x \\$1
+.\}
+.el \
+\{\
+.	ds |X x
+.	if \\n(.$ \
+.		ds |X \\$1
+.	am %\\*(|X )x
+.	sp \\n(xsu
+.\}
+..
+.de )x
+.ie "\\n(.z"" \
+\{\
+.	ds |x \\n%
+.	if \\n(.$ \
+.		ds |x \\$1
+.	if "\\*(|x"_" \
+.		ig ..
+.	am %\\*(|X ..
+.	if \w"\\$2">(\\n(.l-\\n(.i-\\n(.k) \
+.		ti +\\n(xuu
+\\\\a\\\\t\\$2\\*(|x
+...
+.	rm |x
+.	rm |X
+.\}
+.el \
+\{\
+\!\\!.)x \\$1 \\$2
+.	br
+.	ev
+.\}
+..
+.de xp
+.br
+.@C 2
+.ls 1
+.vs \\n(.su*\\n($Ru
+.fi
+.ds |X x
+.if \\n(.$ \
+.	ds |X \\$1
+.xl -(\\n(xuu+\w'...'u)
+.di |x
+.%\\*(|X
+.br
+.di
+.rm %\\*(|X
+.xl \\n($lu
+.rm |X
+.ev
+.nf
+.in 0
+.ta \\n(.lu-\\n(xuuR \\n(.luR
+.|x
+.fi
+.in
+.rm |x
+..
+.if \n(xu<=0 \
+.	nr xu 0.5i
+.nr c. \n(_0