R=[]
class Array
def rotR(r,n)
	R<<'R %d %d'%[r,n];a=self.dup;a[r]=a[r].rotate(-n);a
end
def rotD(c,n)
	R<<'C %d %d'%[c,n];a=self.transpose;a[c]=a[c].rotate(-n);a.transpose
end
def search(n)
	4.times{|y|4.times{|x|return [x,y] if self[y][x]==n}}
end
def sw(c)
	k=3;self.rotD(c,1).rotR(k,1).rotD(c,3).rotR(k,2).rotD(c,1).rotR(k,1).rotD(c,3).rotR(k,1)
end
end
m=$<.map{|e|e.chomp.chars.map{|c|c.ord-65}};mss=12;mse=16
mss.times{|i|
	sx,sy=m.search i;ty,tx=i.divmod 4
	if sx==tx
		next if sy==ty;m=m.rotR sy,1;sx=-~sx%4
	end
	if sy==ty
		m=m.rotD(sx,1).rotD(tx,1).rotR(sy+1,(tx-sx)%4).rotD(sx,3).rotD(tx,3)
	else
		m=m.rotD(tx,sy-ty).rotR(sy,(tx-sx)%4).rotD(tx,4-sy+ty)
	end
}
sx0,sy0=m.search mss;sx1,sy1=m.search mss+1;(sx0-sx1)%4==1&&m=m.sw(sx0+1);(sx0-sx1)%4==2&&m=m.sw(sx1+1);sx,sy=m.search mss;sx!=0&&m=m.rotR(3,4-sx);sx0,sy0=m.search mss+2;sx0!=2&&m.sw(0);p R.size;puts R