numbering

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index c1d962c02e76ecf04951968f0651012b1100ecac..658a2797d88220131667feea00f1d2843aebf0bd 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -354,6 +354,7 @@ END
 }
 
 sub tile {
+  my $index = scalar @_;
   my $pos = 0;
   my $o = '';
   my $showpage = sub {
@@ -361,7 +362,7 @@ sub tile {
 showpage
 END
   };
-  while (my $d = shift @_) {
+  while (my $d = pop @_) {
     if ($pos >= 5) {
       $pos -= 5;
       $showpage->();
@@ -383,9 +384,15 @@ END
     }
     $o .= "\n".$d."\n";
     $o .= <<END;
+
+    /Courier-Bold findfont 6 scalefont setfont
+    -0.98 0.94 dc moveto
+    ($index) show
+
 grestore
 END
     $pos++;
+    $index--;
   }
   $showpage->();
   $o;
@@ -439,8 +446,8 @@ print <<END or die $!;
 END
 
 print tile(
-          green_book(),
           red_book(),
+          green_book(),
           purple_book(),
           blue_book(),
          ) or die $! if 1;