_,*m=*$<
s=1
i=?r
1until($*[i]=(a=m[$*[i]||0][s*4,3])[0]%8;i+=a[1]-61;0>s=a[2]-64)
$><<$*