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