(*) (PostScript) /Times-Roman findfont 40 scalefont setfont newpath 100 400 moveto show 
% *) begin writeln('Pascal'); end.

(*) (PostScript) /Times-Roman findfont 40 scalefont setfont newpath 100 400 moveto show
% *) begin writeln('Pascal'); end.