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