:
s/[1-9]/&-/g
y/123456789/012345678/
s/-0/9-/
t
s/$/013476A8FD73D5DCM9MB9B76LDDMNCF5RAGGbBMHJ6J8FMGCeLIFK9bGeNPFL8DMhHMEaLN9kBMPfMcHabGCfMMRbIbIRHPPtHibJ/
:1
s/0*-\w//
t1
s/.//2g
s/[A-J]/1&/
s/[K-T]/2&/
s/[a-j]/3\u&/
s/[kt]/4\u&/
y/ABCDEFGHIJKLMNPRT/01234567890123579/