9 /Courier findfont $fs scalefont setfont
13 print "gsave 1 setgray 0 $fs rlineto stroke grestore\n" or die $!;
17 print "gsave (" or die;
20 print ") show grestore 0 -$fs rmoveto\n" or die $!;
23 print "1 setgray 0 $fs rmoveto 1 1 rlineto stroke showpage\n" or die $!;