<>;map$\+=$_-1~~@a?0:$_,@a=glob<>;print