/A/s/^/!/
:
y/A23456789TJQK/@A23456789999/
s/\w/@&/g
s/^!@\{,11\}$/T&/
t
:0
s/!*@/<<123456789@01>/
s/\(.\)<.*\1\(@*.\).*>/\2/
t0
/30\|2[2-9]/cBust