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