#!/usr/bin/perl
my $n = 0;
my $cmdTemplate = "convert -size 300x300 canvas:white -font helvetica -pointsize 210 -gravity north -draw \"text -30,10 'SYM'\" -pointsize 100 -gravity east -draw \"text 0,0 'MOD'\" -pointsize 100 -gravity south -draw \"text 0,0 'DIV'\" NUM.jpg";
for my $c (split //, "#_23456789abcdefghijklmnopqrstuvwxyz") {
  my $cmd = $cmdTemplate;
  $cmd =~ s/SYM/$c/;
  $cmd =~ s/MOD/$n%6/;
  $cmd =~ s/DIV/int($n/6)/;
  $cmd =~ s/NUM/$n++/;
  system($cmd);
}
system("rm -f all.jpg");
system("montage *jpg -geometry +6+6 all.jpg");
foreach $n (0...35) {
  system("rm ${n}.jpg");
}