#include<bits/stdc++.h>
#define For(i,j,k) for(int i=(j);i<=(k);i++)
#define foR(i,j,k) for(int i=(j);i>=(k);i--) 
#define vi vector<int>
#define pb push_back
#define pii pair<int,int> 
#define mkp make_pair
#define SZ(x) ((int)x.size())
using namespace std;
inline int read() {
	char c;int res=0;bool flag=0;
	while(c=getchar(),c<48)(c=='-')&&(flag=1);
	do res=(res<<3)+(res<<1)+(c^48);
	while(c=getchar(),c>47);
	flag&&(res=-res); return res; 
}
const int P=1e9+7; 
int add(int x,int y) {return (x+y)%P; }
int sub(int x,int y) {return (x-y+P)%P; }
int mul(int x,int y) {return 1ll*x*y%P; }
int addmod(int &x,int y) {return x=add(x,y); }
const int MN=10+5; 
const int dx[]={1,0,-1,0}; 
const int dy[]={0,-1,0,1}; 
char mp[MN][MN]; int n,m,op[MN],gt[MN],ok,sx,sy,ex,ey,lim;
int vis[1000005]; 
int hsh(int x,int y,int d,int h) {
	return h+d*lim+y*lim*4+x*lim*4*(m+1); 
}
void I(int &x) { x++; if(x==lim+1) x=1; }
void chk(int DEBUG=0) {
	memset(vis,0,sizeof(int)*(10+4*(n+1)*(m+1)*lim)); 
	int pc=1,d=0,nowx=sx,nowy=sy;
//	if(DEBUG) cerr<<"?";
//	#ifdef wasa855
//	if(DEBUG) {
//		For(i,1,lim) {
//			cout<<op[i]<<' '<<gt[i]<<endl;	
//		}
//	}
//	#endif
	while(nowx!=ex||nowy!=ey) {
		int st=hsh(nowx,nowy,d,pc); 
//		#ifdef wasa855
//		if(DEBUG) {
//			cout<<lim<<' '<<nowx<<' '<<nowy<<' '<<d<<' '<<pc<<endl;
//			cout<<nowx<<' '<<nowy<<endl;
//			cout<<endl;
//		}
//		#endif
		if(vis[st]) {
			return;
		}
		vis[st]=1; 
		if(op[pc]==0||op[pc]==4) {
			int nx=nowx+dx[d],ny=nowy+dy[d];
			if(mp[nx][ny]=='#') {I(pc); continue;} 
			if(op[pc]==0) nowx=nx,nowy=ny,I(pc); 
			else pc=gt[pc]; 
		} else if(op[pc]==1) {
			d++; if(d==4) d=0; 
			I(pc); 
		} else if(op[pc]==2) {
			d--; if(d==-1) d=3; 
			I(pc); 
		} else if(op[pc]==3) {
			pc=gt[pc]; 
		}
	}
	if(nowx==ex&&nowy==ey) ok=1; 
}
void dfs(int x) {
	if(x==lim+1) return chk();
	For(i,0,4) {
		op[x]=i;
		if(op[x]==2&&op[x-1]==1) continue; 
		if(op[x]==1&&op[x-1]==2) continue; 
		if(i>=3) {
			For(y,1,lim) {
				if(y!=x) {
					gt[x]=y; 
					dfs(x+1); 
					if(ok) return;
				}
			}
		} else {
			dfs(x+1); 
			if(ok) return;		
		}
		 
	}
}
void works() {
	n=read(),m=read();
	For(i,0,n+1) For(j,0,m+1) mp[i][j]='#'; 
	For(i,1,n) scanf("%s",mp[i]+1); 
	For(i,0,n+1) mp[i][m+1]='#'; 
	For(i,0,n+1) mp[i][0]='#';
	For(i,1,m) mp[0][i]='#';  
	For(i,1,m) mp[n+1][i]='#';
	For(i,1,n) For(j,1,m) {
		if(mp[i][j]=='S') {
			sx=i,sy=j; 
			mp[i][j]='.'; 		
		}
		if(mp[i][j]=='G') {
			ex=i,ey=j; 
			mp[i][j]='.'; 
		}
	}
//	For(i,1,n) For(j,1,m) {
//		cerr<<i<<' '<<j<<' '<<mp[i][j]<<endl;	
//	}
//	cerr<<sx<<' '<<sy<<' '<<ex<<' '<<ey<<endl;
	for(lim=1;lim<=6;lim++) {
		dfs(1); 
		if(ok) {
			printf("%d\n",lim); 
			For(i,1,lim) {
				if(op[i]==0) printf("FORWARD\n"); 
				if(op[i]==1) printf("RIGHT\n"); 
				if(op[i]==2) printf("LEFT\n"); 
				if(op[i]==3) printf("GOTO %d\n",gt[i]); 
				if(op[i]==4) printf("IF-OPEN %d\n",gt[i]); 
			}
//			chk(1); 
			return; 
		}	
	}
}
signed main() {
	#ifdef wasa855
		freopen("pro.in","r",stdin); 
		freopen("pro.out","w",stdout); 
	#endif
	int T=1;
	while(T--) {
		works(); 	
	}
	return 0; 	
}