sub i{$_=<>;chop;if(/^\d+$/&&$_<10000){return sprintf("%04d",$_)}print"!\n";&i}$c=i;$d=i;for($c..$d){$_="bar$_.jpg";print"$_\n"unless(-e)}