#include<bits/stdc++.h>
#define ll long long
#define Il inline
#define Re register
#define mem(u,v) memset(u,v,sizeof(u))
#define rep(i,a,b) for(Re ll i=(a),KKK##i=(b);i<=KKK##i;i++)
#define drep(i,a,b) for(Re ll i=(a),KKK##i=(b);i>=KKK##i;i--)
#define go(u) for(ll i=head[u],v=e[i].to;i;i=e[i].nxt,v=e[i].to)
#define _go(u) for(ll i=Head[u],v=E[i].to;i;i=E[i].nxt,v=E[i].to)
#define __go(u) for(ll i=Head[u],v=e[i].to;i;i=e[i].nxt,v=e[i].to)
#define writesp(x) write(x),putchar(' ')
#define writeln(x) write(x),puts("")
using namespace std;
//#define getchar nc
inline char nc(){static char buf[10000000],*p1=buf,*p2=buf;return p1==p2&&(p2=(p1=buf)+fread(buf,1,10000000,stdin),p1==p2)?EOF:*p1++;}
Il ll read(){ll sum=0,f=0;char ch=getchar();for(;!isdigit(ch);ch=getchar())f|=(ch=='-');for(;isdigit(ch);ch=getchar())sum=((sum<<1)+(sum<<3)+(ch^48));return f?-sum:sum;}
void write(const ll x){if(x<0){putchar('-');write(-x);return;}if(x>9)write(x/10);putchar(x%10+'0');}
char getc(){char c=getchar();while(c!='#'&&c!='.'&&c!='G'&&c!='S')c=getchar();return c;}
#define N 22
string S[15]={"","GOTO 1","GOTO 2","GOTO 3","GOTO 4","GOTO 5","IF-OPEN 1","IF-OPEN 2","IF-OPEN 3","IF-OPEN 4","IF-OPEN 5","LEFT","RIGHT","FORWARD"};
ll n,m,sx,sy,tx,ty,tot=5,ans[7],fx[4]={1,0,-1,0},fy[4]={0,-1,0,1},b[7];char a[N][N];bool vis[12][12][4][7];
bool pd(ll x,ll y){return x>0&&y>0&&x<=n&&y<=m&&a[x][y]!='#';}
bool chk(ll dep){
	mem(vis,0);ll x=sx,y=sy,dir=0,nw=1;
	while(1){
		if(nw>dep)nw=1;
		if(vis[x][y][dir][nw])return 0;
		vis[x][y][dir][nw]=1;
		if(a[x][y]=='G')return 1;
		if(b[nw]<=5){nw=b[nw];if(nw>dep)return 0;continue;}
		if(b[nw]==11){dir--;if(dir<0)dir+=4;nw++;continue;}
		if(b[nw]==12){dir++;if(dir>=4)dir-=4;nw++;continue;}
		if(b[nw]==13){
			ll nx=x+fx[dir],ny=y+fy[dir];
			if(pd(nx,ny))x=nx,y=ny;nw++;
			continue;
		}
		if(b[nw]<=10){
			ll nx=x+fx[dir],ny=y+fy[dir],h=b[nw]-5;
			if(h>dep)return 0;
			if(pd(nx,ny))nw=h;else nw++;
		}
	}
	return 0;
}
void dfs(ll dep){
	if(dep-1>tot)return;
	if(chk(dep-1)){
		if(dep-1<=tot){
			tot=dep-1;
			rep(i,1,dep-1)ans[i]=b[i];
		}
		return;
	}
	rep(i,1,13)b[dep]=i,dfs(dep+1);
}
int main(){
	n=read();m=read();
	rep(i,1,n){
		rep(j,1,m){
			a[i][j]=getc();
			if(a[i][j]=='S')sx=i,sy=j;
		}
	}
	dfs(1);writeln(tot);
//	rep(i,1,tot)cout<<ans[i]<<' ';puts("");
	rep(i,1,tot)cout<<S[ans[i]]<<endl;
}