s/./98765432a&;/g
s/\(\w\)*\(\w*\1\)\|;/\2/ig
/.\{22\}/cBust
/.\{12\}/!s/.*A/10&/
s/[^0]/-/g
:
s/-/<<123456789-01>/
s/\(.\)<.*\1\(-*.\).*>/\2/
t