_,*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) $><<$*
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page