1'''\" ptx.src (@(#)ptx.src 1.1) - format permuted index macro 2.tr ~ 3.nr)y \n(.lu-.65i 4.nr)x \n()yu/2u 5.dss2 ~~~ 6.dss4 ~ 7.dss5 ~ 8.dexx 9.dss1 10.if\w\\$2 .ds s1 ~\| 11.dss3 12.if\w\\$4 .ds s3 ~\| 13.dsy \\*(s4\f3\a\fP\\*(s5 14.ta\\n()yu-\w\\*(s5u 15\h\\n()xu-\w\\$1\\*(s1\\$2\\*(s2u\\$1\\*(s1\\$2\\*(s2\\$3\\*(s3\\$4\\*y\\$5 16.. 17.nf 18