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

---
 generate | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 generate

diff --git a/generate b/generate
new file mode 100755
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 $!;
+    }
+}
-- 
2.30.2