_,*s=*$<
w=s[0].size
k=/R/=~t=s*''
t.chars{i=k/w+1;j=k%w+1;?$>t[k=i%s.size*w+j%~-w]&&(p i,j;exit)}
$><<:loop