#include <bits/stdc++.h>
#define ll int
#define ld long double
#define fi first
#define se second
#define pii pair<ll ,ll>
#define nmax int(2e3+7)
#define oo (ll)(1e18)
#define MOD (ll)(998244353)
#define pb push_back
#define m_p make_pair
#define pro "pushingrocks"
#define Kietej ios_base::sync_with_stdio(0);cin.tie(0);cout.tie(0);
using namespace std;
ll m,n;
char a[nmax][nmax];
namespace Sub1
{
ll res=0,dd[nmax][nmax];
ll dx[]={1,0};
ll dy[]={0,1};
bool Check(ll i,ll j)
{
return (i>=1 && i<=m && j>=1 && j<=n && dd[i][j]!=1);
}
void DFS(ll i,ll j)
{
if(i==m && j==n)
{
res=(res+1)%MOD;
return ;
}
dd[i][j]=1;
for(ll k=0; k<2; k++)
{
ll nx=i+dx[k];
ll ny=j+dy[k];
if(!Check(nx,ny))continue;
if(a[nx][ny]=='.')DFS(nx,ny);
else if(a[nx][ny]=='R')
{
vector<vector<char>> backup(m+1,vector<char>(n+1));
ll vt=-1;
if(k==0)
{
for(ll row=nx; row<=m; row++)
{
if(a[row][ny]=='.')
{
vt=row;break;
}
}
if(vt==-1)continue;
for(ll ii=1; ii<=m; ii++)for(ll jj=1; jj<=n; jj++)backup[ii][jj]=a[ii][jj];
for(ll row=vt; row>nx; row--)a[row][ny]=a[row-1][ny];
a[nx][ny]='.'; DFS(nx,ny);
for(ll ii=1; ii<=m; ii++)for(ll jj=1; jj<=n; jj++)a[ii][jj]=backup[ii][jj];
}
else
{
for(ll col=ny; col<=n; col++)
{
if(a[nx][col]=='.')
{
vt=col;break;
}
}
if(vt==-1)continue;
for(ll ii=1; ii<=m; ii++)for(ll jj=1; jj<=n; jj++)backup[ii][jj]=a[ii][jj];
for(ll col=vt; col>ny; col--)a[nx][col]=a[nx][col-1];
a[i][j+1]='.';DFS(nx,ny);
for(ll ii=1; ii<=m; ii++)for(ll jj=1; jj<=n; jj++)a[ii][jj]=backup[ii][jj];
}
}
}
dd[i][j]=0;
}
void Solve()
{
DFS(1,1);
cout<<res;
}
}
namespace Sub2
{
ll cntR2[nmax];
void Solve()
{
if(n==2)
{
ll cntR1=0;
for(ll i=1; i<=m; i++)
{
cntR2[i]=cntR2[i-1];
if(a[i][1]=='R')cntR1++;
if(a[i][2]=='R')cntR2[i]++;
}
ll dem=0;
for(ll i=1; i<=m-cntR1; i++)
{
if(a[i][2]=='R')continue;
if(cntR2[m]-cntR2[i]<=0)dem++;
}
cout<<dem%MOD;
}
else if(m==2)
{
ll cntR1=0;
for(ll i=1; i<=n; i++)
{
cntR2[i]=cntR2[i-1];
if(a[1][i]=='R')cntR1++;
if(a[2][i]=='R')cntR2[i]++;
}
ll dem=0;
for(ll i=1; i<=n-cntR1; i++)
{
if(a[2][i]=='R')continue;
if(cntR2[n]-cntR2[i]<=0)dem++;
}
cout<<dem%MOD;
}
}
}
namespace Sub3
{
ll R[nmax][nmax],D[nmax][nmax];
ll ColRocks[nmax][nmax],RowRocks[nmax][nmax];
ll DownLimit[nmax][nmax],RightLimit[nmax][nmax];
ll addDown[nmax][nmax],addRight[nmax][nmax];
void Solve()
{
for(ll i=m; i>=1; i--)
{
for(ll j=n; j>=1; j--)
{
RowRocks[i][j]=RowRocks[i][j+1];
ColRocks[i][j]=ColRocks[i+1][j];
if(a[i][j]=='R')
{
RowRocks[i][j]++;
ColRocks[i][j]++;
}
}
}
for(ll i=1; i<=m; i++)
{
for(ll j=1; j<=n; j++)
{
if(m-i-ColRocks[i+1][j]>0)DownLimit[i][j]=m-ColRocks[i+1][j];
else DownLimit[i][j]=i;
if(n-j-RowRocks[i][j+1]>0)RightLimit[i][j]=n-RowRocks[i][j+1];
else RightLimit[i][j]=j;
}
}
D[1][1]=1;
R[1][1]=1;
for(ll i=1; i<=m; i++)
{
for(ll j=1; j<=n; j++)
{
addDown[i][j]=(addDown[i][j]+addDown[i-1][j])%MOD;
addRight[i][j]=(addRight[i][j]+addRight[i][j-1])%MOD;
R[i][j]=(R[i][j]+addRight[i][j])%MOD;
D[i][j]=(D[i][j]+addDown[i][j])%MOD;
ll d1=DownLimit[i][j],d2=RightLimit[i][j];
if(d1>i)
{
addDown[i+1][j]=(addDown[i+1][j]+R[i][j])%MOD;
addDown[d1+1][j]=((addDown[d1+1][j]-R[i][j])%MOD+MOD)%MOD;
}
if(d2>j)
{
addRight[i][j+1]=(addRight[i][j+1]+D[i][j])%MOD;
addRight[i][d2+1]=((addRight[i][d2+1]-D[i][j])%MOD+MOD)%MOD;
}
}
}
cout<<(R[m][n]+D[m][n])%MOD;
}
}
int main()
{
Kietej
if (fopen(pro ".inp", "r"))
{
freopen(pro ".inp", "r", stdin);
freopen(pro ".out", "w", stdout);
}
cin>>m>>n;
for(ll i=1; i<=m; i++)
{
for(ll j=1; j<=n; j++)
{
cin>>a[i][j];
}
}
if(a[1][1]=='R' || a[m][n]=='R')
{
cout<<0;
return 0;
}
if(m==1 && n==1)
{
cout<<1;
return 0;
}
if(n<=10 && m<=10)
{
Sub1::Solve();
return 0;
}
else if(n==2 || m==2)
{
Sub2::Solve();
return 0;
}
else
{
Sub3::Solve();
return 0;
}
return 0;
}