wip

diff --git a/generate b/generate
new file mode 100755 (executable)
index 0000000..c429cf1
--- /dev/null
+++ b/generate
@@ -0,0 +1,12 @@
+#!/usr/bin/perl -w
+use strict;
+my $charset = '.+-:~09mAZ';
+
+foreach my $len (0..10) {
+    foreach (my $val=0; ; $val++) {
+       my $s = sprintf "%0${len}d", $val;
+       last if length $s > $len;
+       $s =~ y/0-9/$charset/;
+       print $s,"\n" or die $!;
+    }
+}