#!perl -alp
sub u{($a,$b)=@F[@_,$m=0];($m,$a,$b)=map$_%($z=9x13
.7),$m+$a*($b%1e5),$a*1e5,$b/1e5while$b;$m}@F=map$_%$z,u(0)+u(1,2),u(1)+u(1,3),u(2)+u(3,2),u(2,1)+u(3,3),u(4)+u(1,5),u(2,4)+u(3,5)for
1..$F[6];$_="@F[4,5]"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).