ll@H,@W,x,y;char@S[H*W],c;x=strchr(S,82)-S;y=x%W;for(x/=W;c=S[++x%H*W+ ++y%W],c&4;y%=W)x%=H;if(c%2)wt(x,y);else wt("loop");