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

// 内部定数
#define D_ON			1										// 汎用フラグ - ON
#define D_OFF			0										// 汎用フラグ - OFF
#define D_SIZE_MAX		25										// 最大サイズ
#define D_WAY_CNT		4										// 方向種類数
#define D_WAY_R			0										// 方向 - 右
#define D_WAY_D			1										// 方向 - 下
#define D_WAY_L			2										// 方向 - 左
#define D_WAY_U			3										// 方向 - 上

// 内部変数
static FILE *szpFpI;											// 入力
static char sc2Done[D_SIZE_MAX * 2][D_SIZE_MAX * 2];			// 処理済フラグ

// 内部変数 - テスト用
#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
fIn(
)
{
	char lc1Buf[1024];

	fgets(lc1Buf, sizeof(lc1Buf), szpFpI);
	if (lc1Buf[0] == 'M') {
		return -1;
	}

	// 進めるセル数 - 取得
	int liCnt;
	sscanf(lc1Buf, "%d", &liCnt);

	return liCnt;
}

// 行動
int
fAct(
	char pcAct					// <I> 行動内容
)
{
	char lc1Buf[1024];

	// 行動
	sprintf(lc1Buf, "%c\n", pcAct);
	fOut(lc1Buf);

	// 進めるセル数 - 取得
	return fIn();
}

// 移動量 - 取得
int
fGetMove(
	int piWay					// <I> 方向
	, int *pipMx				// <I> 移動量X
	, int *pipMy				// <I> 移動量Y
)
{
	// 初期化
	*pipMx = 0;
	*pipMy = 0;

	// 移動量 - セット
	switch (piWay) {
		case D_WAY_R:	*pipMx = 1;		break;
		case D_WAY_D:	*pipMy = 1;		break;
		case D_WAY_L:	*pipMx = -1;	break;
		case D_WAY_U:	*pipMy = -1;	break;
	}

	return 0;
}

// 移動
int
fMove(
	int piX						// <I> 位置X
	, int piY					// <I> 位置Y
	, int piWay					// <I> 方向
	, int piCnt					// <I> 進めるセル数
)
{
	int i, liRet;

	// 処理済フラグ - セット
	sc2Done[piX][piY] = D_ON;

	// ４方向をチェック
	for (i = 0; i < D_WAY_CNT; i++) {

		// 方向
		int liWay = (piWay + i) % D_WAY_CNT;

		// 進めるセル数
		if (piCnt > 0) {

			// 移動先 - 取得
			int liMx, liMy;
			fGetMove(liWay, &liMx, &liMy);
			int liX = piX + liMx;
			int liY = piY + liMy;

			// 処理済フラグ - チェック
			if (sc2Done[liX][liY] == D_OFF) {

				// 進む
				piCnt = fAct('F');
				if (piCnt < 0) {
					return 0;
				}

				// 移動先のマス
				liRet = fMove(liX, liY, liWay, piCnt);
				if (liRet == 0) {
					return 0;
				}

				// 戻る
				fAct('B');
			}
		}

		// 回転
		piCnt = fAct('R');
	}

	return -1;
}

// 実行メイン
int
fMain(
)
{
	// 進めるセル数 - 取得
	int liCnt = fIn();

	// 移動
	fMove(D_SIZE_MAX, D_SIZE_MAX, D_WAY_D, liCnt);

	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;
}