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