s/.*/compare = 0   swap = 0   data:/
:
s/\<.\>/0&/
${s/\>/-/2
s/\n/<9876543210>/2
/\<\(\(.*\)\(.\)\w*\)<.*\3.*\(.\).*>\(\2\4\w*\)/{s//\5	\1/
s/\>/-/4}
s/<.*>/	/
:1
s/-/<123456789-01>/
s/\(.\)<.*\1\(-*.\).*>/\2/
t1
h
s/0\B\|\s/ /gp
g
/\>\n/b
s/\(.*\)	/\1 /
T
s/	/\n/g
t
d}
N
b