:
s/\(\(.\).*<\)\2\|\(.B\).*B\w/B\1\3/
t
s/.*B\(\w\).*>/\1/
s/\(.*\)\(.* \)\1/\2/
/^0* $/cYES
s/../0987654321<&>/
t
cNO