case $# in
[12])	;;
*)	echo usage: rework old.wr new.wr
esac

trap 'rm -f $$.?& exit 1' 0 1 2 3 15
diff $1 $2 >$$.0
sed -n '
/< /{
	s///
	w '$$.1'
}
/> /{
	s///
	w '$$.2'
}
' $$.0
sed -n '
/^[gsvw] [159] /{
	s/.* \([^ ][^ ]*\/..*[^ ]\/[^ ][^ ]*\).*/\1/
	s/ .* / \
 /
	s/.*/ & /
	p
}
' $$.1 >$$.4
fgrep -f $$.4 $1 >$$.5
rm $$.4&
sort -b $$.5 -o $$.5
sort -b $$.1 -o $$.1
comm -23 $$.5 $$.1 >$$.6
rm $$.5&
sort -b +2 $$.6 $$.1 -o $$.7
rm $$.1&
sed -n '1,3p' $1 >$$.9
awk '{$2=$2%2+1;print}' $$.7 >$$.8
cat $$.9 $$.8 >UN.wr
rm $$.8&
sort -b +2 $$.6 $$.2 >$$.7
rm $$.[26]&
cat $$.9 $$.7 >RE.wr
