#!perl -pl
map$-+=/[TJQK]/?10:/A/?!!++$a:$_,/./g;$-+=10while$-<12&&$a--;$a=$-=!($_=$->21?Bust:$-)