From 5ee228254cd26de027c36ecdc54f5eee89b3b5fb Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 4 Nov 2016 11:42:48 +0000
Subject: [PATCH] wip

---
 .gitignore | 1 +
 generate   | 6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)
 create mode 100644 .gitignore

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..b25c15b
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+*~
diff --git a/generate b/generate
index c429cf1..86c43ff 100755
--- a/generate
+++ b/generate
@@ -1,12 +1,12 @@
 #!/usr/bin/perl -w
 use strict;
-my $charset = '.+-:~09mAZ';
 
-foreach my $len (0..10) {
+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/$charset/;
+	$s =~ y/0-9/.+:~09mAZ-/;
 	print $s,"\n" or die $!;
     }
 }
-- 
2.30.2