#!perl -pl/\B./;s/$&/P/g;y/TKA/IRT/;$_=reverse;@a=sort split;/$a[-1]/;$_=4-"@-"/3
TH QC JH 2H KC 5S QS 9C QD 2D TD 5D 9S 5D AD QS 3D 4C 3H JH 9S 4S TS JS 5H 9H 2C AD 5S 4C 3H QD
3 3 1 4 1 4 2 1
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!