:
s/-/<123456789-01>/
s/\(.\?\)<.*\1\(-*.\).*>/\2/
t
P
/\n\{9\}/Q
s/$/-\n/m
b