:
s/(\(-*\))/\1--/
t
s/-\|).*/<<123456789-01>/
s/\(.\)<.*\1\(-*.\).*>/\2/
t