$T=<>;
$N=<>;
@c=glob<>;
@v=glob<>;
for$i(0..$N-1){
	for(;$v[$i];$v[$i]>>=1){
		for$t(reverse 0..$T-1){
			$\+=$-=$t+$c[$i]<=$T&&($d[$t+$c[$i]]+=$-=($d[$t]+$v[$i])-$d[$t+$c[$i]])-$\
		}
	}
}
print