/LM 72 def                                              % LM=72
/Tempstr 30 string def                              %30 hosszúságú sztring definiálása
/Helvetica findfont 12 scalefont setfont      %12-es méret? Helvetica tipusú karakterkeszlet
/crlf {
currentpoint 13 sub
exch pop LM exch moveto} def
/aryshow                                                  % kiiratás eljárása
{ /ary exch def
0 1 ary length 1 sub                                  % for ciklus a tömbön
{ary exch get                                            % a tömb elemt kiveszi a veremb?l
Tempstr cvs                                              % szöveggé konvertálás
show crlf} for                                            % kiiratás
}def
LM 600 moveto
[13 27 4 15 67 78 90 ]
aryshow
showpage