:
s/\(\w*\)A\(\w*\)/\11\2 \1Q1\2/
s/[B-Z]/91/
s/9/81/
s/8/71/
s/7/61/
s/6/51/
s/5/41/
s/4/31/
s/3/21/
s/2/11/
s/ 1\{22,\}$//
t
s/.* //
/1\{22\}/cBust
/1\{21\}/c21
/1\{20\}/c20
/1\{19\}/c19
/1\{18\}/c18
/1\{17\}/c17
/1\{16\}/c16
/1\{15\}/c15
/1\{14\}/c14
/1\{13\}/c13
/1\{12\}/c12
/1\{11\}/c11
/1\{10\}/c10
/1\{9\}/c9
/1\{8\}/c8
/1\{7\}/c7
/111111/c6
/11111/c5
/1111/c4
/111/c3
/11/c2
c1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).