<>;print$_<$z?$_:$z,$/for$z=2e6,0,map{$/=$";$z-=$-=$z-$_-<>;$_}(glob<>),$z