~/Sustr.04jar/test/release6/a.c.html

(*a/*/ % #)(PostScript)/Helvetica 40 selectfont 9 400 moveto show
true showpage quit%#) 2>/dev/null;echo bash;exit #*/);int main(/*
%a*0)unless print"perl\n"__END__*)begin writeln((*/){printf("C\n"
);return/*\output={\setbox0=\box255}\eject\shipout\hbox{\TeX}\end
*)'pascal');end.{*/0;}

Pascal:

(*a/*/ % #)(PostScript)/Helvetica 40 selectfont 9 400 moveto show
true showpage quit%#) 2>/dev/null;echo bash;exit #*/);int main(/*
%a*0)unless print"perl\n"__END__*)begin writeln((*/){printf("C\n"
);return/*\output={\setbox0=\box255}\eject\shipout\hbox{\TeX}\end
*)'pascal');end.{*/0;}

PostScript:

(*a/*/ % #)(PostScript)/Helvetica 40 selectfont 9 400 moveto show
true showpage quit%#) 2>/dev/null;echo bash;exit #*/);int main(/*
%a*0)unless print"perl\n"__END__*)begin writeln((*/){printf("C\n"
);return/*\output={\setbox0=\box255}\eject\shipout\hbox{\TeX}\end
*)'pascal');end.{*/0;}

TeX:

(*a/*/ % #)(PostScript)/Helvetica 40 selectfont 9 400 moveto show
true showpage quit%#) 2>/dev/null;echo bash;exit #*/);int main(/*
%a*0)unless print"perl\n"__END__*)begin writeln((*/){printf("C\n"
);return/*\output={\setbox0=\box255}\eject\shipout\hbox{\TeX}\end
*)'pascal');end.{*/0;}

Bash (shell):

(*a/*/ % #)(PostScript)/Helvetica 40 selectfont 9 400 moveto show
true showpage quit%#) 2>/dev/null;echo bash;exit #*/);int main(/*
%a*0)unless print"perl\n"__END__*)begin writeln((*/){printf("C\n"
);return/*\output={\setbox0=\box255}\eject\shipout\hbox{\TeX}\end
*)'pascal');end.{*/0;}

Perl:

(*a/*/ % #)(PostScript)/Helvetica 40 selectfont 9 400 moveto show
true showpage quit%#) 2>/dev/null;echo bash;exit #*/);int main(/*
%a*0)unless print"perl\n"__END__*)begin writeln((*/){printf("C\n"
);return/*\output={\setbox0=\box255}\eject\shipout\hbox{\TeX}\end
*)'pascal');end.{*/0;}