#!perl -pla sub e{($u,$v)=@_;$v&&$v%64*$u+e($u*64%($m=1e14-3),$v>>6)}@F=map{((e@F[$_%2*3,$_])+e@F[2-$_*5/4%2,$_^1])%$m}0..5for 1..$F[6];$_="@F[4,5]"