#!perl -p0167
$\=$%;$%+=$w;$w+=$c+=y/c//}{