perl -e'$|++;split//,int rand 10**pop;sub f{$.=++$.%10;print$.;sleep 1,print"\b";$.==$_[0]||&f;print 
shift;@_&& &f}&f;print"\n"' 10