perl -e'$#a=$d=pop;sub r{int rand 9}while($c<$d){$c++if$a[$c]==r;@a[$c..$d]=(r)x$d;print@a,"\r"}print$/' 10