f=$<.map{|l|l.chop.bytes}
j,*X=->t{->x,y{X+=[[t ??C:?R,x,y%=4]*?\s]*-2[y];q=->{t&&f=f.transpose};q[];g=f[x];f[x]=g[4-y,4]+g[0,4-y];q[];0}}
r=j[p]
d=j[1]
12.times{|s|i=f.index{|g|j=g.index 65+s}
t=s%4
d[j,h=1[g=i-s/=4]]+r[i,n=1[m=t-j]&~h]+d[t,g+=h]+r[i+h,m-n]+d[t,-g]+d[j,-h]}
r[3,-f[3].index(77)]
3.times{|x|79-x/2<f[3][1+x%=2]&&[2,-1].map{|i|d[x,1];r[3,-1];d[x,-1];r[3,i]}}
puts X.size,X