$T=<>;<>;map{$c=$_;$/=$";$%=<>*2;map${-$_}+=$-=${-$_-$c}+$%-${-$_},0..$T-$c while$%/=2}glob<>;print$0+0