($h,$w)=glob<>;!@-?$x=/R/*"@-":($c=vec$_,++$x%$w,8)&4||last,$y++for(<>)x2e3;print$c&1?($y%$h||$h,$",$x%$w||$w):loop