#include <float.h>
#include <limits.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

// 内部定数
#define D_CARD_MAX		52										// 最大カード数

// 内部構造体 - カード情報
typedef struct Card {
	char mc1Card[8];											// カード
} Card;

// 内部変数
static FILE *szpFpI;											// 入力
static Card sz1Card[D_CARD_MAX];								// カード
static int siCCnt;												// カード数

// 内部変数 - テスト用
#ifdef D_TEST
	static int siRes;
	static FILE *szpFpA;
#endif

// カード - 数値化
int
fGetVal(
	char *pcpCard				// <I> カード
)
{
	int liSum;

	// マーク
	switch (pcpCard[0]) {
	case 'D':							// ダイヤ
		liSum = 0;
		break;
	case 'C':							// クローバー
		liSum = 100;
		break;
	case 'H':							// ハート
		liSum = 200;
		break;
	case 'S':							// スペード
		liSum = 300;
		break;
	}

	// 数字
	switch (pcpCard[1]) {
	case 'A':							// 1
		liSum += 1;
		break;
	case 'T':							// 10
		liSum += 10;
		break;
	case 'J':							// 11
		liSum += 11;
		break;
	case 'Q':							// 12
		liSum += 12;
		break;
	case 'K':							// 13
		liSum += 13;
		break;
	default:							// 2-9
		liSum += pcpCard[1] - '0';
		break;
	}

	return liSum;
}

// ソート関数 - 昇順
int
fSortFnc(
	const void *pzpVal1			// <I> 値１
	, const void *pzpVal2		// <I> 値２
)
{
	Card *lzpVal1 = (Card *)pzpVal1;
	Card *lzpVal2 = (Card *)pzpVal2;

	// 数値化
	int liVal1 = fGetVal(lzpVal1->mc1Card);
	int liVal2 = fGetVal(lzpVal2->mc1Card);

	// 昇順
	if (liVal1 > liVal2) {
		return 1;
	}
	else if (liVal1 < liVal2) {
		return -1;
	}

	return 0;
}

// 実行メイン
int
fMain(
	int piTNo					// <I> テスト番号 1～
)
{
	int i;
	char lc1Buf[1024], lc1Out[1024];

	// 入力 - セット
#ifdef D_TEST
	sprintf(lc1Buf, ".\\Test\\T%d.txt", piTNo);
	szpFpI = fopen(lc1Buf, "r");
	sprintf(lc1Buf, ".\\Test\\A%d.txt", piTNo);
	szpFpA = fopen(lc1Buf, "r");
	siRes = 0;
#else
	szpFpI = stdin;
#endif

	// カード数 - 取得
	fgets(lc1Buf, sizeof(lc1Buf), szpFpI);
	sscanf(lc1Buf, "%d", &siCCnt);

	// カード - 取得
	for (i = 0; i < siCCnt; i++) {
		fscanf(szpFpI, "%s", &sz1Card[i].mc1Card);
	}
	fgets(lc1Buf, sizeof(lc1Buf), szpFpI);

	// カード - ソート
	qsort(sz1Card, siCCnt, sizeof(Card), fSortFnc);

	// 結果 - セット
	sprintf(lc1Out, "%s", sz1Card[0].mc1Card);
	for (i = 1; i < siCCnt; i++) {
		sprintf(lc1Buf, " %s", sz1Card[i].mc1Card);
		strcat(lc1Out, lc1Buf);
	}
	strcat(lc1Out, "\n");

	// 結果 - 表示
#ifdef D_TEST
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, lc1Out)) {
		siRes = -1;
	}
#else
	printf("%s", lc1Out);
#endif

	// 残データ有無
#ifdef D_TEST
	lc1Buf[0] = '\0';
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, "")) {
		siRes = -1;
	}
#endif

	// テストファイルクローズ
#ifdef D_TEST
	fclose(szpFpI);
	fclose(szpFpA);
#endif

	// テスト結果
#ifdef D_TEST
	if (siRes == 0) {
		printf("OK %d\n", piTNo);
	}
	else {
		printf("NG %d\n", piTNo);
	}
#endif

	return 0;
}

int
main()
{

#ifdef D_TEST
	int i;
	for (i = D_TEST_SNO; i <= D_TEST_ENO; i++) {
		fMain(i);
	}
#else
	fMain(0);
#endif

	return 0;
}