'''\"	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