1;{while($0-=10^(length($0-1)-1))print}1