# now that is golfing. perl -e '$a="0035";until("$a">50){print++$a,$/}'