Blob
1 '''\" ptx.src (@(#)ptx.src 1.1) - format permuted index macro2 .tr ~3 .nr)y \n(.lu-.65i4 .nr)x \n()yu/2u5 .dss2 ~~~6 .dss4 ~7 .dss5 ~8 .dexx9 .dss110 .if\w\\$2 .ds s1 ~\|11 .dss312 .if\w\\$4 .ds s3 ~\|13 .dsy \\*(s4\f3\a\fP\\*(s514 .ta\\n()yu-\w\\*(s5u15 \h\\n()xu-\w\\$1\\*(s1\\$2\\*(s2u\\$1\\*(s1\\$2\\*(s2\\$3\\*(s3\\$4\\*y\\$516 ..17 .nf