Evaluated proc pokechain i {set n [format "%03d" $i]; set m [format "%03d" [+ $i 1]]; pokeujpeg http://www.serebii.net/xy/pokemon/$n.png 120 $m}