<>;++$h{$_}for glob<>;map{//;print"$'$_ "x$h{$'.$_}for A,2..9,T,J,Q,K}D,C,H,S