<>;$\+=abs($%+=$_-1)for glob<>;print