_,*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):0}
$><<:loop