c,*a=*$<
i=$$
$*[i]=c[3]%8while c=a[$*[i+=c[4]-61]||0][c[5]*4-259,9]
$><<$*