s/^/10/
:
s/-/<<123456789-01>/
s/\(.\)<.*\1\(-*.\).*>/\2/
s/\(.\)\1/\1-0/
t
/9876/q
p
s/$/-/
b