$l=<>;$_=++$-for@b[glob<>];$\+=($l-=$-=$r[$_]=$l-$_)*(@b+2-@r)for@b;print