%!  Polyglottal Quine - TeX and PostScript:  Joseph S. Miller
{\def\]#1{}\](%)}/Courier findfont 10 scalefont setfont newpath{
\](%)}72 720 moveto/\nopagenumbers\bye{clear showpage}def{
\](%)}/r{(#)search{2 index 0 get 49 sub a exch get 4 2 roll pop{
\](%)}pop dup length 1 exch 1 sub getinterval r}if}def{
\](%)}/p{search exch show{currentpoint exch pop 12 sub 72{
\](%)}pop exch moveto p}if}def{
\tt\obeylines\def\[#1]#2]#3[#4]#5
#6{\](%)}}(\
#5!  Polyglottal Quine - TeX and PostScript:  Joseph S. Miller
#3#2def#2]#11#3#4#2](#5)#4/Courier findfont 10 scalefont setfont newpath#3
#2](#5)#472 720 moveto/#2nopagenumbers#2bye#3clear showpage#4def#3
#2](#5)#4/r#3(#1)search#32 index 0 get 49 sub a exch get 4 2 roll pop#3
#2](#5)#4pop dup length 1 exch 1 sub getinterval r#4if#4def#3
#2](#5)#4/p#3search exch show#3currentpoint exch pop 12 sub 72#3
#2](#5)#4pop exch moveto p#4if#4def#3
#2tt#2obeylines#2def#2[#11]#12]#13[#14]#15
#16#3#2](#5)#4#4(#2
#6#4
#2[#2#1]#2char92]#2char123 [#2char125 ]#2#5
#3#2[#2#11]#2#12]#2#13[#2#14]#2#15
#3#2#16#4#4#2](#5))(#4)search pop/s exch def#3
#2](#5)#4/a[(#1)(#2#2)(#3)(#4)(#5)s]def[s r]#3(#2n)p#4forall#3
#4#2nopagenumbers#2bye}
\[\#]\char92]\char123 [\char125 ]\%
{\[\#1]\#2]\#3[\#4]\#5
{\#6}}\](%))(})search pop/s exch def{
\](%)}/a[(#)(\\)({)(})(%)s]def[s r]{(\n)p}forall{
}\nopagenumbers\bye