# include "robot.h"
# include <bits/stdc++.h>
using namespace std;
constexpr int A[]={0,2,3,4,5},B[]={0,6,7,8,9},C[]={0,10,11,12,13},rev[]={0,3,4,1,2};
constexpr char ch[]="HWSEN";
int getF(int x){return (x-2&3)+1;}
bool isA(int x){return x>=2 && x<=5;}
bool isB(int x){return x>=6 && x<=9;}
bool isC(int x){return x>=10 && x<=13;}
void program_pulibot()
{
	vector<int> S(5);
	for(S[0]=0;S[0]<=13;S[0]++)
	for(S[1]=-2;S[1]<=13;S[1]++)
	for(S[2]=-2;S[2]<=13;S[2]++)
	for(S[3]=-2;S[3]<=13;S[3]++)
	for(S[4]=-2;S[4]<=13;S[4]++)
		if(S[0]==0)
		{
			if(S[1]==-2 && S[4]==-2) set_instruction(S,A[1],ch[0]);
			else if(S[2]==-2 && S[3]==-2)
			{
				if(isA(S[1])) set_instruction(S,1,ch[1]);
				else if(isA(S[4])) set_instruction(S,1,ch[4]);
			}
			else for(int i=1;i<=4;i++)
				if(isA(S[i]))
				{
					set_instruction(S,B[i],ch[i]);
					break;
				}
		}
		else if(isA(S[0]))
		{
			int k=getF(S[0]);
			if(isC(S[k]))
			{
				bool ok=0;
				for(int i=1;i<=4 && !ok;i++)
					if(S[i]>=2 && getF(S[i])==rev[i])
						set_instruction(S,C[k],ch[i]),ok=1;
				if(!ok) set_instruction(S,0,ch[k]);
			}
			else
			{
				bool ok=0;
				for(int i=1;i<=4 && !ok;i++)
					if(S[i]==1) set_instruction(S,C[k],ch[0]),ok=1;
				for(int i=1;i<=4 && !ok;i++)
					if(S[i]==0) set_instruction(S,S[0],ch[i]),ok=1;
				for(int i=1;i<=4 && !ok;i++)
					if(isA(S[i]) && getF(S[i])==rev[i])
						set_instruction(S,S[0],ch[i]),ok=1;
				if(!ok) set_instruction(S,B[k],ch[S[1]==-2 && S[4]==-2?0:k]);
			}
		}
		else if(isB(S[0]))
		{
			int k=getF(S[0]);
			if(isC(S[k]))
			{
				bool ok=0;
				for(int i=1;i<=4 && !ok;i++)
					if(S[i]>=2 && getF(S[i])==rev[i])
						set_instruction(S,C[k],ch[i]),ok=1;
				if(!ok) set_instruction(S,0,ch[k]);
			}
			else
			{
				bool ok=0;
				for(int i=1;i<=4 && !ok;i++)
					if(isB(S[i]) && getF(S[i])==rev[i])
						set_instruction(S,S[0],ch[i]),ok=1;
				if(!ok) set_instruction(S,A[k],ch[S[1]==-2 && S[4]==-2?0:k]);
			}
		}
		else if(isC(S[0]))
		{
			int k=getF(S[0]);
			bool ok=0;
			for(int i=1;i<=4 && !ok;i++)
				if(S[i]>=2 && getF(S[i])==rev[i])
					set_instruction(S,S[0],ch[i]),ok=1;
			if(!ok)
			{
				if(S[1]==-2 && S[4]==-2) set_instruction(S,1,'T');
				else set_instruction(S,!isC(S[k]),ch[k]);
			}
		}
}