#!/usr/bin/perl -w
use strict;

foreach my $len (0..7) {
    print STDERR "generate len $len\n";
    foreach (my $val=0; ; $val++) {
	my $s = sprintf "%0${len}d", $val;
	last if length $s > $len;
	$s =~ y/0-9/.+:~09mAZ-/;
	print $s,"\n" or die $!;
    }
}