.de (x \" *** begin index entry
.if \n@>4 .tm >> (x, .z=\\n(.z
.\" please note these cases MUST be in this order
. ev 2 \" if in a diversion, save & process later
.de )x \" *** end index entry
.if \n@>4 .tm >> )x, .z=\\n(.z
. if \w"\\$2">(\\n(.l-\\n(.i-\\n(.k) \
. br \" if in a diversion, save & process later
.de xp \" *** print the index
.ta \\n(.lu-\\n(xuuR \\n(.luR
. nr xu 0.5i \" index undent