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