-l15e'print|substr$_||=1x($l=pop),~rand$l,1,$A%10 while++$A%1e6||--$l'