:
s/<\(.*\)>$`/\1<\1$`>/
t
s/\(<.*\)>\(\($'\)\(.*\)\|\(.\)\)/\4\5\1\3\5>\4/
t
s/.//51g
p
s/^/<>/
/\$/b
d