-l15e'split//,int rand 10**pop;print$a,map{(0..$_-1,$_+1..9)[rand 9]}@_ while++$i%4e4||@_&&($a.=shift@_)'