<>;$l+=$-=$_[$_]-$l,$\+=$-=($_[$_]=++$r)-$l-$\for glob<>;print