#include<cstdio>
#include<cstdlib>
#include<cstring>
const int maxn=12,dx[]={1,0,-1,0},dy[]={0,1,0,-1};
int n,m,sx,sy,tx,ty;
char s[maxn][maxn],op[6][8]={"","GOTO","IF-OPEN","FORWARD","LEFT","RIGHT"};
int a[6],b[6];
bool vis[maxn][maxn][4][5];
bool check(int lim){
	memset(vis,0,sizeof(vis));
	int d=0,x=sx,y=sy;
	while(true){
		for(int i=1;i<=lim;){
			if(vis[x][y][d][i])return false;
			if(x==tx&&y==ty)return true;
			vis[x][y][d][i]=true;
			int x_=x+dx[d],y_=y+dy[d];
			if(a[i]==1){
				i=b[i];
				continue;
			}else if(a[i]==2){
				if(x_>=1&&x_<=n&&y_>=1&&y_<=m&&s[x_][y_]!='#'){
					i=b[i];
					continue;
				}
			}else if(a[i]==3){
				if(x_>=1&&x_<=n&&y_>=1&&y_<=m&&s[x_][y_]!='#'){
					x=x_;
					y=y_;
				}
			}else if(a[i]==4){
				d=(d+1)&3;
			}else{
				d=(d+3)&3;
			}
			i++;
		}
	}
}
void dfs(int x,int lim){
	if(x==lim+1){
		if(check(lim)){
			printf("%d\n",lim);
			for(int i=1;i<=lim;i++){
				if(a[i]<=2)printf("%s %d\n",op[a[i]],b[i]);
				else puts(op[a[i]]);
			}
			exit(0);
		}
		return;
	}
	for(int i=1;i<=2;i++)
		for(int j=1;j<=lim;j++){
			a[x]=i,b[x]=j;
			dfs(x+1,lim);
		}
	for(int i=3;i<=5;i++){
		a[x]=i;
		dfs(x+1,lim);
	}
}
int main(){
	scanf("%d%d",&n,&m);
	for(int i=1;i<=n;i++)scanf("%s",s[i]+1);
	for(int i=1;i<=n;i++)
		for(int j=1;j<=m;j++)
			if(s[i][j]=='S')sx=i,sy=j;
			else if(s[i][j]=='G')tx=i,ty=j;
	for(int i=1;i<=4;i++)dfs(1,i);
	puts("5");
	puts("LEFT");
	puts("IF-OPEN 5");
	puts("RIGHT");
	puts("GOTO 2");
	puts("FORWARD");
	return 0;
}