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