#!perl -pl
use bigint;my$s;1 while$s=chr($_%37+87).$s,$_/=37;$_=$s;y/W-`{/0-9A/