#!perl -pl map$-+=/[TJQK]/?10:/A/?!!++$a:$_,/./g;$-+=10while$-<12&&$a--;$a=$-=!($_=$->21?Bust:$-)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page