$T=<>;<>; for$c(glob<>){$/=$"; for($v=<>;$v;$v>>=1){ for$t(0..$T-$c){ $d[$t]+=$-=$d[$t+$c]+$v-$d[$t] } } } print"@d"+0