$q
1d
:0
N
$!b0
y/\n/ /
s/^/compare = 0 swap = 0 data: /
s/\<\w\>/0&/g
:
s/= ../&-/
s/\> \</<9876543210>/
/\<\(\(\w*\)\(.\)\w*\)<.*\3.*\(.\).*>\(\2\4\w*\)\>/{s//\5!\1/
s/= ../&-/2}
s/<.*>/!/
:1
s/-/<123456789-01>/
s/\(.\)<.*\1\(-*.\).*>/\2/
t1
H
:2
/\> \</b
s/\(.*\)!/\1#/
y/!/ /
t2
g
s/0\B\|[!#]/ /g
D
Note that non-ascii characters in the above source code will be escaped (such as \x9f).