my $o = general_book($green, [qw(5 9 15)]);
$o .= <<END;
-gsave 0.2 0.15 dc translate ${\ chip($pumpkin,0) } grestore
-gsave 0.2 0.40 dc translate ${\ chip($green,0) } grestore
+gsave 0.25 0.15 dc translate ${\ chip($pumpkin,0) } grestore
+gsave 0.25 0.40 dc translate ${\ chip($green,0) } grestore
/Times-Bold findfont
dup
6 scalefont setfont
- 0.35 0.17 dc moveto (last) show
+ 0.40 0.17 dc moveto (last) show
%
8 scalefont setfont
- 0.35 0.09 dc moveto (3) show
+ 0.40 0.09 dc moveto (3) show
/Times-Roman findfont
38 scalefont setfont
0.45 0.14 dc moveto (}) show