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

// 内部定数
#define D_DIM_CNT		4										// 桁数

// 内部構造体 - 桁情報
typedef struct Dim {
	char mcOne;													// 文字 - １
	char mcFive;												// 文字 - ５
	int miRate;													// 倍率
} Dim;

// 内部変数
static FILE *szpFpI;											// 入力
static Dim sz1Dim[D_DIM_CNT];									// 桁情報

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

// 出力
int
fOut(
	char *pcpLine				// <I> １行
)
{
	char lc1Buf[1024];

#ifdef D_TEST
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, pcpLine)) {
		siRes = -1;
	}
#else
	printf("%s", pcpLine);
#endif

	return 0;
}

// 数値化
int
fToNum(
	char *pcpNum				// <I> 文字列
)
{
	int i, j;

	int liSum = 0;
	for (i = 0; ; i++) {
		for (j = 0; j < D_DIM_CNT; j++) {
			if (pcpNum[i] == sz1Dim[j].mcOne) {
				if (j > 0 && pcpNum[i - 1] == sz1Dim[j - 1].mcOne) {
					liSum += sz1Dim[j].miRate - sz1Dim[j - 1].miRate * 2;
				}
				else {
					liSum += sz1Dim[j].miRate;
				}
				break;
			}
			else if (pcpNum[i] == sz1Dim[j].mcFive) {
				if (i > 0 && pcpNum[i - 1] == sz1Dim[j].mcOne) {
					liSum += sz1Dim[j].miRate * 3;
				}
				else {
					liSum += sz1Dim[j].miRate * 5;
				}
				break;
			}
		}
		if (j == D_DIM_CNT) {
			break;
		}
	}

	return liSum;
}

// 文字列化
int
fToStr(
	int piNum					// <I> 数値化
	, char *pcpRet				// <O> 文字列
)
{
	int i;

	if (piNum >= 4000) {
		strcpy(pcpRet, "ERROR\n");
		return 0;
	}

	int liNo = 0;
	for (i = D_DIM_CNT - 1; i >= 0; i--) {
		if (piNum >= sz1Dim[i].miRate * 9) {
			pcpRet[liNo] = sz1Dim[i].mcOne;
			pcpRet[liNo + 1] = sz1Dim[i + 1].mcOne;
			liNo += 2;
			piNum -= sz1Dim[i].miRate * 9;
		}
		else if (piNum >= sz1Dim[i].miRate * 5) {
			pcpRet[liNo] = sz1Dim[i].mcFive;
			liNo++;
			piNum -= sz1Dim[i].miRate * 5;
		}
		else if (piNum >= sz1Dim[i].miRate * 4) {
			pcpRet[liNo] = sz1Dim[i].mcOne;
			pcpRet[liNo + 1] = sz1Dim[i].mcFive;
			liNo += 2;
			piNum -= sz1Dim[i].miRate * 4;
		}
		while (piNum >= sz1Dim[i].miRate) {
			pcpRet[liNo] = sz1Dim[i].mcOne;
			liNo++;
			piNum -= sz1Dim[i].miRate;
		}
	}
	pcpRet[liNo] = '\n';
	pcpRet[liNo + 1] = '\0';

	return 0;
}

// 実行メイン
int
fMain(
)
{
	int i;
	char lc1Buf[1024];

	// 桁情報 - セット
	sz1Dim[0].mcOne = 'I';
	sz1Dim[0].mcFive = 'V';
	sz1Dim[0].miRate = 1;
	sz1Dim[1].mcOne = 'X';
	sz1Dim[1].mcFive = 'L';
	sz1Dim[1].miRate = 10;
	sz1Dim[2].mcOne = 'C';
	sz1Dim[2].mcFive = 'D';
	sz1Dim[2].miRate = 100;
	sz1Dim[3].mcOne = 'M';
	sz1Dim[3].mcFive = '@';
	sz1Dim[3].miRate = 1000;

	// データ数 - 取得
	int liDCnt;
	fgets(lc1Buf, sizeof(lc1Buf), szpFpI);
	sscanf(lc1Buf, "%d", &liDCnt);

	// 数値化 - 取得
	int liSum = 0;
	for (i = 0; i < liDCnt; i++) {
		fscanf(szpFpI, "%s", lc1Buf);
		liSum += fToNum(lc1Buf);
	}
	fgets(lc1Buf, sizeof(lc1Buf), szpFpI);

	// 文字列化
	fToStr(liSum, lc1Buf);

	// 出力
	fOut(lc1Buf);

	return 0;
}

// １回実行
int
fOne(
)
{
	int liRet;
	char lc1Buf[1024];

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

	// 実行メイン
	liRet = fMain();

	// 残データ有無
#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", siTNo);
	}
	else {
		printf("NG %d\n", siTNo);
	}
#endif

	return 0;
}

// プログラム開始
int
main()
{

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

	return 0;
}