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