(*a/* ) {\catcode`\@=2\output={\setbox0=\box255}\eject\shipout\hbox{\TeX}@\end}
(PostScript) /Times-Roman 40 selectfont 100 400 moveto show showpage <~ % */ );
int main() /* ~> ( */{/*})<~*/ printf("C\n"); return 0; /* ~> ( *) {%} begin (*
} % *) writeln('pascal'); end. { a small c-pascal-ps-tex polyglot by misof */ }

(*a/* ) {\catcode`\@=2\output={\setbox0=\box255}\eject\shipout\hbox{\TeX}@\end}
(PostScript) /Times-Roman 40 selectfont 100 400 moveto show showpage <~ % */ );
#include <stdio.h>
int main() /* ~> ( */{/*})<~*/ printf("C\n"); return 0; /* ~> ( *) {%} begin (*
} % *) writeln('pascal'); end. { a small c-pascal-ps-tex polyglot by misof */ }

(*a/* ) {\catcode`\@=2\output={\setbox0=\box255}\eject\shipout\hbox{\TeX}@\end}
(PostScript) /Times-Roman 40 selectfont 100 400 moveto show showpage <~ % */ );
#include <stdio.h>
int main() /* ~> ( */{/*})<~*/ printf("C\n"); return 0; /* ~> ( *) {%} begin (*
} % *) writeln('pascal'); end. { a small c-pascal-ps-tex polyglot by misof */ }

(*a/* ) {\catcode`\@=2\output={\setbox0=\box255}\eject\shipout\hbox{\TeX}@\end}
(PostScript) /Times-Roman 40 selectfont 100 400 moveto show showpage <~ % */ );
#include <stdio.h>
int main() /* ~> ( */{/*})<~*/ printf("C\n"); return 0; /* ~> ( *) {%} begin (*
} % *) writeln('pascal'); end. { a small c-pascal-ps-tex polyglot by misof */ }